Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#6
  Alt 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
  Mit Zitat antworten Zitat