I've attached my pipe i use on the server i do
fPipeCreated:=false;
try
fMplayerPipe := TPipeServer.CreatePipeServer('','MPLAYER64',true);
except
on E: Exception do
begin
ShowMessage(E.Message);
end;
else
begin
fMplayerPipe.Destroy;
Result := false;
exit;
end;
end;
fMplayerPipe.PipeMesgage:=fEventHandle;
fEventHandle is where my pipe does sendmessage to .
on the client side
MplayerClientPipe:=TPipeClient.Create('','MPLAYER64');
MplayerClientPipe.SendString(<your data>);
MplayerClientPipe.free;
the pipe itself converts the data you send in to a message using sendmessage
----- Original Message -----
From: "Wildfire" <wildf...@windowsbbs.com>
To: "Lazarus mailing list" <lazarus@lists.lazarus.freepascal.org> Sent: Thursday, April 22, 2010 11:22 PM Subject: Re: [Lazarus] SendMessage Bug Work Around.
----- Original Message ----- From: "Justin Smyth" <delph...@smythconsulting.net>To: "Lazarus mailing list" <lazarus@lists.lazarus.freepascal.org> Sent: Thursday, April 22, 2010 1:43 PM Subject: [Lazarus] SendMessage Bug Work Around.if any one is interest in the code for this issue feel free to ask , i''m happy to share it.Hi Justin,I'd certainly be interested in a small example (just getting back to pascal after a long time and any source examples are appreciated).Perhaps you can attach it to the list? Failing that a private email would be welcome.-- Paddy -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
mplayerpipe.pas
Description: Binary data
-- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
