Registriert seit: 10. Jun 2007
5 Beiträge
Delphi 7 Professional
|
IdTCPServer....Warum muss ich den einen WriteLn machen
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;
|