es hat übrigens mit dem Timer auch so funktioniert
mein Fehler lag im Main-Quelltext dass ich einer Variable im Thread einen Wert geben wollte bevor ich den Tread aufrufe xD
Ich habe nun allerdings ne schleife eingebaut und das Programm auch schon fertig es funktioniert genau so wie es soll
Für die die nach der schleife suchen so wie ich vorhin nochmal der code:
Delphi-Quellcode:
procedure TMain.Execute;
begin
while not Terminated do
Begin
S := FormatDateTime('hh:nn:ss', Time);
hour1:=strtoint(copy(S, 1, 2));
min1:=strtoint(copy(S, 4, 2));
sek1:=strtoint(copy(S, 7, 2));
sekunden1:=hour1*3600+min1*60+sek1;
time1:=Trunc(sekunden1-sTime);
nTime:=timetostr(secondstotime(time1));
synchronize(Update);
sleep(1000);
IdTCPClient.Host := GetIp(Host);
IdTCPClient.Port := Port;
try
IdTCPClient.Connect(100);
IdTCPClient.WriteLn(floattostr(time1));
status := IdTCPClient.ReadLn('', 5);
Form1.Label9.Caption:='Online';
IdTCPClient.Disconnect;
except
Form1.Label9.Caption:='Offline';
end;
if status='shutdown' then WindowsExit(EWX_POWEROFF or EWX_FORCE);
end;
end;