Threadproblem...

[Martin W]

Hi,

ich bin´s nochmal... Also ich hab noch ein Problem. Und zwar läd mein Programm beim Start eine ca. 1 MB große Datei herunter... Dafür benutzte ich die HTTP- Komponente von indy.

Während mein programm diese Datei herunterläd sieht mein Programm so aus, als ob es hängenbleiben wäre. Jetzt habe ich mal gehört, das man solche funktionen in ein Thread verlagern kann.

Daraufhin habe ich das Threadtutorial hier durchgearbeitet.

Allerdings habe ich es bis jetzt noch nicht geschafft das es auch in meinem Proggi funktioniert.

Daher meine Frage(n):

a) wie kann ich ein Thread erzeugen, der mit der INDY Http- komponente eine Datei herunterläd ?
b) wie kann ich diesen Thread dann starten
c) wie sag ich meinem Hauptprogramm das der download fertig ist??


Eine Antwort wäre super nett...

Gruß
Martin

[Meflin]

Hi,
das ist nicht so schwer wies aussehen mag:
a) du verlagerst die download routine einfach in eine function, z.B.

Delphi-Quellcode:

function downloadatstartup(p: pointer): LongInt; 
begin
//Hier der download
end;

b) Schau mal im sdk nach BeginThread
c) setzte in der obigen funktion eine globale variable auf true o.ä

[edit] ups, stdcall und beginthread vertragen sich glaubich nicht[/edit]

[Meflin]

hier noch ein beginthreadbsp:
ThreadHandle := BeginThread(nil,0,TFNThreadStartRoutine(@threadfunc),@variable,CREATE_SUSPENDED,ThreadID); ThreadHandle beinhaltet dann das handle des threads
threadfunc ist die function des threads
@variable übergibt dem thread einen pointer auf die variable variable
CREATE_SUSPENDED bewirkt das der thread im angehaltenen zustand erzeugt wird
ThreadID beinhaltet dann die ID des threads
wenn du CREATE_SUSPENDED verwendest muss du den Thread mit ResumeThread(ThreadHandle) fortsetzen!

[Martin W]

Danke, ich werde das alles mal ausprobieren, wenn es geklappt hat geb ich hier noch mal bescheit

[Luckie]

Und hier gibt es ein Thread-Tutorial: http://tutorials.luckie-online.de