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

gibt es unter Lazarus die WinSockets?

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

lNet – Lightweight networking library
(ungetestet)

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

[edit]Link hinzugefügt[/edit]

Zitat von fatalerror:

lNet – Lightweight networking library
(ungetestet)

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

Zitat:

Hmmm, und wie geh ich nun damit um??

Kürzestanleitung

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?

Hmmm, ich hab jetzt das hier:

zusammenfalten · markieren

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...

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

Sollte dann einiges klarer sein!

lg. Astat