RE:comunicacion en red
Publicado por
Akiel (1 intervención) el 11/02/2008 05:51:26
Hola, este tip lo enkontré en el trukomanía de nuestros kolegas de Q3 y lo modifiké un pokito....
envía mensajes tipo winpopup!!!
iserta res edits y un memo!
procedure MandaWinpopup( ServidorRemoto,
Destinatario,
Remitente,
Mensaje : String);
var
sTemp : string;
Mango : THandle;
Cuantos : DWord;
begin
sTemp := '\'+ServidorRemoto+'mailslotmessngr';
Mango := CreateFile( PChar(sTemp),
GENERIC_WRITE,
FILE_SHARE_READ,
NIL,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if Mango = INVALID_HANDLE_VALUE then
raise Exception.create( 'Error abriendo el slot');
sTemp:=Remitente+#0+Destinatario+#0+Mensaje;
try
Cuantos := 0;
if (NOT WriteFile(Mango,
Pchar(sTemp)^,
Length(sTemp),
Cuantos,
NIL)) or
(Cuantos <> Length(sTemp)) then
raise Exception.create( 'Imposible enviar el mensaje');
finally
CloseHandle(Mango);
end;
end;
begin
for i:= 0 to Memo1.Lines.Count do
s:= s+memo1.Lines[i]+chr(13);
try
MandaWinpopup(edit1.Text,edit2.Text,edit3.Text,s);
except
MessageDlg('No se ha podido enviar el mensaje',mtError,[mbOK],0);
end;
end;