Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc / usr / share / doc / fpc-3.0.0 / fcl-base / examples / ipcclient.pp
Size: Mime:
{$mode objfpc}
{$h+}
program ipcclient;

uses simpleipc;

begin
  With TSimpleIPCClient.Create(Nil) do
    try
      ServerID:='ipcserver';
      If (ParamCount>0) then
        ServerInstance:=Paramstr(1);
      Active:=True;
      SendStringMessage('Testmessage from client');
      Active:=False;
    finally
      Free;
    end;
end.