(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
Delphi 11 Alexandria
|
5. Apr 2003, 16:03
Moin Armin,
hier einmal ein, sehr einfaches, Beispiel zu TThread:
Delphi-Quellcode:
type
TcsDownloadThread = class(TThread)
private
FsSource : string;
FsDest : string;
public
constructor Create(const AsSource : string; const AsDest : string);
procedure Execute; override;
end;
constructor TcsDownloadThread.Create(const AsSource, AsDest: string);
begin
FsSource := AsSource;
FsDest := AsDest;
FreeOnTerminate := true; // Thread freigeben, wenn beendet
inherited Create(false); // False = sofort starten
end;
procedure TcsDownloadThread.Execute;
begin
URLDownLoadToFile(nil,PChar(FsSource),PChar(FsDest),0,nil); // Datei herunterladen
Terminate; // dann beenden
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|