So ich hab die Komentare im Code hinzugefügt
weiterhin habe ich noch 1 2 sachen versucht und zwar habe ich den Reconnect Code Etwas verändert:
Delphi-Quellcode:
procedure TForm1.Reconnect;
var
i:integer;
begin
if BReconnect=false then
begin
BReconnect:=true;
// Reset;
CSCom.Active:=false;
for I := 0 to 1000 do
begin
sleep(1);
application.ProcessMessages;
end;
BReconnect:=false;
CSCom.Active:=true;
end;
end;
dadurch wird bei CSCom.Active:=true kein Fehler ausgeworfen aber der Client connectet nicht neu!
Der auslöser des Fehlers muss also in Reset sein!
Vlt durch das entbinden und wieder zuweisens von CSCom?
Edit:
habe ein verkeinfachtes Project im anhang, wo der Fehler auch entsteht! vlt hilft es ja