Einzelnen Beitrag anzeigen

geniusone

Registriert seit: 10. Jun 2007
5 Beiträge
 
Delphi 7 Professional
 
#1

IdTCPServer....Warum muss ich den einen WriteLn machen

  Alt 22. Jun 2007, 17:42
Hallo, warum muss ich denn einen writeln senden (IsTCPServer), wenn ich was von einen client (IdTCPClient) empfangen möchte.

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);


begin
with AThread.Connection do
begin
//WriteLn('SERVER: Ready to receive');
WriteLn('SERVER: ' + edit1.Text);
MemStatus_S.Lines.Add('Sende Daten an Client (Empfangsbereitschaft)');
test:=Readln;
MemStatus_S.Lines.Add('Empfange Daten von Client');
MemNachricht_S.Lines.Add(test);
Disconnect;

end;
end;
  Mit Zitat antworten Zitat