Hallo,
ich hatte mal das gleiche Problem.
Ich habs sinngemäß so gelöst:
Delphi-Quellcode:
procedure TForm1.Timer_toggleTimer(Sender: TObject); var
S_Address: String;
begin
ClientSocket1.Active := false;
//ClientSocket schliessen
ClientSocket1.Socket.Close;
ClientSocket1.Close;
//Port und Adresse setzen
ClientSocket1.Port := SpinEdit_Port.Value;
ClientSocket1.Address := S_Address;
try
ClientSocket1.Open;
except
ClientSocket1.Active := false;
ClientSocket1.Socket.Close;
ClientSocket1.Close;
end;
end;
Sinngemäß deswegen, dass ich das früher so hatte, in der Zwischenzeit umgebaut habe. Aber es funktioniert noch so wie oben beschrieben.
Der Timer heisst bei mir Timer_toggle und ist so auf 5000 ms (5s) eingestellt
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<