Indy Kommunikation

[CalganX]

Hi sakura,
genau das wollte ich eigentlich gesagt haben...
Schon mal danke im Vorraus...

Chris

[Sharky]

Hai Chris,

die TIdTCPServer Kompo hat ein Event mit dem Namen: OnExecute. Dort bekommst Du AThread vom Typ TIdPeerThread.


Und jetzt.... achtung......es geht los....

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
 msg : String;

begin
 msg := aThread.Connection.ReadLn;
end;

P.S.: Bei den Demos für die Indys ist auch ein Chat dabei.

[CalganX]

Hi,
aha... Danke. Tja, habe mir doch gedacht, dass es so einfach ist...
Werde das gleich mal ausprobieren. Leider habe ich die Chat-Demo nirgends gefunden, aber werde mir gleich die Demos zu Indy 9 holen und da noch mal gucken...

Chris

[Spoon]

und wie macht man genau sowas:

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); 
var 
msg : String; 

begin 
msg := aThread.Connection.ReadLn; 
end;

mit dem TIdTCPClient ?

Thx Spoon

[CalganX]

Du musst mit dem Client einfach eine Verbindung herstellen und einem aktiven Server mit
IdTCPClient1.WriteLn('Dein String' + #$A); // #$A ist das, was bei readln vom Server als erster Parameter kommt. Standardmäßig eben #$A eine Nacricht zu kommen lassen....

Chris

[Spoon]

daten senden kann ich, aber wie empfange ich per Client ??
Da fehlt mir nämlich genau dieses OnExecute Event des Server

Thx Spoon

[CalganX]

Öhm... Das kann aber irgendwie nicht sein...
Welche Version der Indys hast du denn? Am besten ist immer die neuste zu haben. Lad dir einfach von dieser Website die aktuelle Version 9.0.11 herunter... Geht sogar mit ISDN recht schnell...

Chris

[Sharky]

Zitat von Spoon:

daten senden kann ich, aber wie empfange ich per Client ??
Thx Spoon

Nun ja, ein Client soll ja eigentlich auch nichts empfangen sondern entwas senden.

[Mat]

jeder rechner ist einfach server und client gleichzeitig