Hallo,
ich bin ratlos.
Ich probiere gerade mit den Indys
Der TCPClient soll auf Nachrichten vom Server warten. Klappt alles bestens. Aber sobald der Client connected ist habe ich eine CPU_Auslastung von 100%. Kann mir jemand da weiterhelfen?
Ich hab sowohl den Client als auch den Server völlig ausgehöhlt für die Anzeige hier:
Thread mit IdTCPClient
Delphi-Quellcode:
procedure BoTCPClient.Execute;
begin
Client:=TIdTCPClient.Create(
nil);
Client.Host:=Host;
Client.Port:=Port;
i:=0;
while not terminated
do
begin
if not(Client.Connected)
then
begin
try
Client.Connect;
// Anmeldestring senden i:=0;
except
on E:
Exception do
begin
Emsg:=E.
Message;
end;
end;
end;
Sleep(15000);
end;
if Client.Connected
then
begin
// Thread terminated
Client.Disconnect;
end;
// Synchronize(VerbE);
// PostMessage(hwd,SKY_CONNECT,0,0);
end;
Server
Delphi-Quellcode:
procedure TForm1.TCPServerExecute(AContext: TIdContext);
var
I: Integer;
st:integer;
begin
end;
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
// Server starten
begin
TCPServer.Active:=true;
lauf:=true;
REdit.SelAttributes.Color:=clgreen;
REdit.Lines.Add(DateTimeToStr(now)+': Server gestartet');
end;
Mir fällt nichts ein was da falsch sein könnte
Vielen Dank schon mal
Albrecht