Indy 9 Server Klient Problem (Verbindung)

[axelf98]

Hallo!
Ich schreibe ein Serverporgramm wo ein Klient eine Nachricht hinschickt.
Klient: REQUEST_LOGIN
Server bekommt das mit und sendet ihm darauf hin eine kleine Datei zu.

Soweit bin ich bis jetzt.
Nachricht beim Server Request_Login kommt an. Er versucht dem Klienten zu antworten. Diese Antwort kommt nicht an.

Senden beim Klienten sieht so aus:

Delphi-Quellcode:

procedure TServerClientFenster.BefehlSenden(pBefehl: String);
begin
     if TCPClient.Connected then
     begin
         LoggeVerbindungen('Sende Befehl '+TCPClient.Host+' : '+inttostr(TCPClient.Port)+' :' +pBefehl);
         TCPClient.WriteLn(pBefehl);
     end;
end;

Beim Empfänger arbeite ich mit dem TIdPeerThread der beim ONExecute ankommt:

Delphi-Quellcode:

procedure TServerClientFenster.TCPServerExecute(AThread: TIdPeerThread);
var
    Command : String;
begin
     Command := AThread.Connection.ReadLn(#$A,5500);

     Athread.Connection.WriteLn('Blubb');   // Das kommt nicht an

end;

Ich hab die Vermutung, dass man nicht sofort an den TIDPeerThread wieder etwas senden kann. Wie kann ich dem Klienten antworten?
Er ist auf jeden Fall erreichbar, es gibt keine Firewall!

Danke für Hinweise :)

[Tormentor32]

Du musst auch im Client ein ReadLn oder ReadLine (weiß grad nicht) ausführen, um den Befehlstring zu empfangen! Aber pass auf, dass dein Programm nicht einfriert!

[axelf98]

Stimmt, so müsste es gehen. Dachte der Server beim Clienten (haben beide Server und Client) würde die Nachricht empfangen...

[axelf98]

Wie kann ich denn dann dem Clienten eine Datei schicken?

[DataCool]

Hi,

Server und Client haben beide die Methoden Read, ReadLn, ReadStream etc.

Gerade zu Indy9 habe ich zu dem Thema ein schönes Bsp. gemacht :

Versenden von Dateien unter Indy9

Greetz DataCool