2 Prozeduren gleichzeitig

[max2621]

Hallo,

Ich möchte mittels einer FTP Verbindung vom Server eine Datei für 10 Sekunden herunderladen und anschliessend die grösse der bis dahin geladenen Datei ermitteln.
Auf dem Formular habe ich sowohl die FTP Komponente, als auch eien Timer der von 10 bis null zurückzählt plaziert. Mir ist nun völlig unklar wie ich die beiden Schritte (FTP und Timer verbinde), on work begin habe ich probiert. Wahrscheinlich falsch. Bin wie man sieht Anfänger.

Mein code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Username := 'User';
  IdFTP1.Password := 'Pass';
  IdFTP1.Host := 'myIP';
  IdFTP1.Port := 22;
  IdFTP1.Connect;
end;

procedure TForm1.IdFTP1AfterClientLogin(Sender: TObject);
begin

  IdFTP1.Get('Test.exe', 'C:\EPG\Test.exe', true);
  IdFTP1.Disconnect;
end;

procedure TForm1.test(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
  Timer1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
zaehler:= zaehler - 1;
Label1.Caption:= IntToStr(zaehler) + ': Sekunden';
// Wenn der Countdown vorbei ist...

if zaehler <= 0 then begin
Timer1.Enabled:=false;
zaehler:=10;
Label1.Caption:= IntToStr(zaehler) + ': Sekunden';
end;

end;

Bin für jede Hilfe dankbar,

Max2621

[wido]

Das Zauberwort heißt Multi Threading :).

Siehe dazu z.B. das empfehlenswerte Tutorial von Luckie:
http://www.michael-puff.de/Developer...mit_Delphi.pdf

[Panthrax]

Das hier sollte dir helfen, eine Lösung zu finden:

• #644200 Re: Probleme beim Warten auf 2 Threads Beachte hier bitte, das die Ausgangsfrage nicht ganz in die gleiche Richtung geht wie deine. Das Beispiel in diesem Beitrag sollte gut zeigen wie man die Klasse TThread erweitert und verwendet.
• #652098 AsyncCalls - Asynchrone Funktionsaufrufe in Delphi Eine etwas andere Methode Threads zu verwenden.

Tipp: Wenn du dir das Tutorial von Luckie zum Thema "Threads" ansiehst, schau' dir nur Kapitel 7 "Das VCL-Thread-Objekt" (Seiten 44 bis 48) an und versuche dann dein Problem zu lösen. Der andere Teil ist nur empfehlenswert, wenn du Hintergrundwissen im Allgemeinen brauchst oder willst. Schlussendlich solltest du bei einer Lösung ankommen, welche die TThread-Klasse verwendet. (Auch AsyncCalls macht das.) Das bleibt dann nämlich übersichtlich und einfach.

[max2621]

Vielen Dank für Eure Hilöfe,
bin fleissig am lesen.

Euer Max2621