Yarlen Cdt

Registrado: 06 Ago 2003Mensajes: 1
|
Publicado: Jue 07 Ago, 2003 12:18 am Asunto: como enviar mensajes tipo chat en una red interna |
|
|
estoy ayudando en la elaboracion de un programa el cual cuenta con un mensajero instantaneo, los mensajes ya son enviados y los avisos tambien, pero necesito saber como hacer para que no me aparesca el aviso de que tengo un mensaje cada que la otra persona escribe y tambien necesito que me ayuden en el caso de que cuando yo mando un mensaje a todos los que estan conectados tambien me llega a mi, el codigo es el siguiente:"
Qry_mensaje->Active=false;
Qry_mensaje->Active=true;
Qry_mensaje->First();
if(CB_usuarios->Text=="Todos")
{
while(!Qry_mensaje->Eof)
{
NMMsg1->Host = Qry_mensaje->FieldByName("US_IPADDRESS")->AsString;
NMMsg1->FromName = Frm_password->usuario+" "+Frm_password->nombre;
NMMsg1->PostIt(Edit1->Text);
Qry_mensaje->Next();
}
}
else
{
Qry_mensaje->Filtered=false;
Qry_mensaje->Filter="US_USUARIO='"+CB_usuarios->Text+"'";
Qry_mensaje->Filtered=true;
NMMsg1->Host = Qry_mensaje->FieldByName("US_IPADDRESS")->AsString;
NMMsg1->FromName = Frm_password->usuario+" "+Frm_password->nombre;
NMMsg1->PostIt(Edit1->Text);
Qry_mensaje->Filtered=false;
}
Edit1->Text="";
espero que me puedan ayudar. |
|