Communication between application instances

[alter]

I have a problem with FindWindow. I have Form1 of class TForm1 and when I use either FindWindow or FindWindowEx it always returns 0. I am using Qt interface.
Second thing is that in Windows I can write custom messages and broadcast them to all windows however in Delphi it is done by writing code for TApplication.OnMessage event. I haven't found it here so the question is can I do that somehow?
Last thing is how can I make communication between different instances of my application under Linux? Or maybe Lazarus itself provides some routines that I could use.

[theo]

how can I make communication between different instances of my application under Linux? Or maybe Lazarus itself provides some routines that I could use.

There are TSimpleIPCClient and -Server in the System tab.

[alter]

Thx, works:-)

[theo]

I'm not an expert, but I think it needs some polling.

For the record: This seems to work for me:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
begin
  SimpleIPCServer1.Active:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SimpleIPCClient1.Active:=True;
  SimpleIPCClient1.SendStringMessage('test');
  SimpleIPCClient1.Active:=False;
end;

procedure TForm1.SimpleIPCServer1Message(Sender: TObject);
begin
  Memo1.Lines.Add(SimpleIPCServer1.StringMessage);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if SimpleIPCServer1.Active then SimpleIPCServer1.PeekMessage(1,true);
end;


[Troodon]

Do you really need the timer? Shouldn't the IPC Server onMessage handler pick up the message anyway?

[alter]

Do you really need the timer? Shouldn't the IPC Server onMessage handler pick up the message anyway?

Just tried without timer with Linux and it didn't work.

[bonmario]

There are TSimpleIPCClient and -Server in the System tab.

I've tried it on WinXP. It works fine if the 2 applications run on same PC, But if i put the 2 executables on a directory in my net and then i run a program from a PC and the other program in another PC it don't works. How can i do it works?

Thanks, Mario

[theo]

I've tried it on WinXP. It works fine if the 2 applications run on same PC, But if i put the 2 executables on a directory in my net and then i run a program from a PC and the other program in another PC it don't works. How can i do it works?

TCP/IP ?

[bonmario]

TCP/IP ?

You means with TTFTPSend?

Thanks, Mario

[theo]

You means with TTFTPSend?

You can use a simpler protocol. Afair, there is an echo server example in the synapse distr.

[bonmario]

I've tried the echo example, but in "TTCPEchoDaemon.Execute;", where it do "if canread(1000) then", canread is neber true and so the program does nothing