Thread execute wird nicht ausgeführt

**Lord_stelzer**

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:

zusammenfalten · markieren

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;

Thread execute wird nicht ausgeführt

Re: Thread execute wird nicht ausgeführt

Forumregeln