Witam,
Postanowiłem do mojej aplikacji zastosować wątki, aby nie zawieszała się przy pobieraniu pliku z internetu. Wszystko ładnie pięknie, ale tylko na Windows 7. Na XP i Vista nie działa, tzn. program uruchamia się, ale wątek nie. Czym to może być spowodowane? Kompiluje w Delphi 2009 na Windows 7.
W type:
TWatek = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
implementation:
procedure TWatek.Execute;
begin
FreeOnTerminate := true;
if not terminated then
begin
Form1.pobieranieInformacji(self);
terminate;
end;
end;
oraz
procedure TForm1.StartWatku(Sender: TObject);
var Watek : TWatek;
begin
Watek := TWatek.Create(false);
end;
Nie wiem czy wszystko dobrze robię (mam nadzieje, że nie), bo dzisiaj dopiero nauczyłem się wykorzystywać wątki. Jeśli będzie Wam potrzebna procedura pobieranieInformacji to piszcie, ponieważ jest ona bardzo długa i nie chcę bez potrzeby jej tutaj wklejać.