Datenaustausch über INet?

[Teekeks]

Hallo!
Ich möchte gerne den Datenaustausch zwischen 2 Programmen via INet ermöglichen, habe aber keine Indy-Komponenten. (Ich benutze Lazarus...)

Wie gehe ich da am besten vor?

Gruß Teekeks

[SirThornberry]

gibt es unter Lazarus die WinSockets?

[Teekeks]

Ich glaube nicht, und es ist Linux (sry, hätte ich vl. schreiben sollen...)

[fatalerror]

lNet – Lightweight networking library
(ungetestet)

[Namenloser]

Probier mal Synapse - ich habe unter Delphi gute Erfahrungen damit gemacht. Für Lazarus ist es ebenfalls verfügbar.

[edit]Link hinzugefügt[/edit]

[Teekeks]

Zitat:

Zitat von fatalerror

lNet – Lightweight networking library
(ungetestet)

Hab ich jetzt erstmal Installiert, mal gucken...
Edit:
Hmmm, und wie geh ich nun damit um??

[fatalerror]

Zitat:

Hmmm, und wie geh ich nun damit um??

Kürzestanleitung

[Teekeks]

Gut, jetzt kann ich Verbinden und Disconnecten. Aber wie Kommuniziere ich jetzt? Message Senden, wär ja ok, aber dann?
Edit: Also, wie empfange ich eine Nachricht?

[Teekeks]

Hmmm, ich hab jetzt das hier:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TCP.Connect('localhost',5555);
  l.Items.Add('Verbinden mit localhost...');
  while TCP.Connecting do Application.ProcessMessages;
  l.Items.Add('Verbunden mit localhost.');
  TCP.Listen(5555);
  tcp.SendMessage('asd');
  l.Items.Add('Nachricht "asd" gesendet...');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  l.Items.Add('Verbindung abbrechen...');
  TCP.Disconnect;
  l.Items.Add('Verbindung abgebrochen.');
end;

procedure TForm1.TCPReceive(aSocket: TLSocket);
var m:string;
begin
  TCP.GetMessage(m,asocket);
  l.Items.Add('Nachricht "'+m+'" empfangen...');
end;

Aber anscheinend wird die Nachricht nicht empfangen...

[Astat]

Hallo Teekeks, schau dir bitte mal das Demo von den LNet-Componenten an.
..\examples\visual\tcpudp

Sollte dann einiges klarer sein!

lg. Astat