Hiho
habe folgendes Problem: Ich kann via
Wirteln von Clienten an den Server einen String schicken aber mit dem selben Befehl nicht von Server zum Clienten. Warum nicht?
Delphi-Quellcode:
procedure TForm1.IdTCPServer2Execute(AThread: TIdPeerThread);
var s:string;
begin
with Athread.Connection do
begin
s:=readln; //das klappt
s:=uppercase(s);
if s='UPDATE' then
Writeln(ComponentToString(Listview2)); //das aber nicht mehr
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
with IdTCPClient2 do
begin
writeln('Update'); //das klappt auch
Try
Listview2.Create(StringToComponent(readln)); // Dies wieder nicht
finally
Disconnect
end;
end;
end;
Wo liegt der Fehler?