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
