aus procedure thread machen

[Kidix]

Hi,


ich habe folgendes Problem...ich habe ne Procedure...darin wird mit einer komponente idhttp eine datei vom server geladen und in eine datei reingeschrieben...

da dies selbst mit der antifreeze kompo die anwendung zum freezen bringt hab ich mir gedacht, dass ich das ganze in einen thread packe..


doch wie kann ich jetzt diese procedure in einen thread verwandeln?

tut hab ich schon gelesen, half mir nicht wirklich viel!

Gruß

Kidix

[Meflin]

nunja, welches hast du denn gelesen?

wenn du eines gelesen hast, solltest du aber wissen, dass man einem thread immer eine function, keine procedure übergibt ;)

[stefan2005]

hi,
vor allem Luckies Tutorials sind da sehr zu empfehlen !

eine Funktion kannste ungefähr so als Thread starten:

Delphi-Quellcode:

...
var ThreadID : Cardinal;
...
BeginThread(nil,0,@meineFunktion,nil,0,ThreadID);
...

dann könntest/solltest du dir noch die Parameter von BeginThread für Flags,Stackgröße,... anschauen !

cu,
stefan2005

[Kidix]

ich bekomms so einfach nicht hin...

er sagt variable fehlt....

[stefan2005]

hi,
und was für eine Variable fehlt ?
// bzw. wo feht die variable ?

cu,
stefan2005

[Kidix]

Zitat:

Zitat von stefan2005

hi,
und was für eine Variable fehlt ?
// bzw. wo feht die variable ?

cu,
stefan2005

ja das frag ich mich ja auch.... steht ja nicht dabei....

[Airblader]

Zitat:

Zitat von stefan2005

hi,
und was für eine Variable fehlt ?
// bzw. wo feht die variable ?

cu,
stefan2005

Ich habe das eifnach mal grad versucht, ich denke ich habe den selben Fehler wie er:

Zitat:

[Fehler] XXX.pas(725): Variable erforderlich

Das Schema ist wie oben beschrieben.
Beim Fehler springt er mit dem Cursor dann vor die hintere 0 (die vor dem ThreadID steht)

air

[stefan2005]

hi,
komisch :gruebel:

bei mir funktioniert es so einwandfrei (Delphi 6):

Delphi-Quellcode:

program ThreadTest;
{$APPTYPE CONSOLE}
uses Windows;

var ThreadID : Cardinal;

function meineFunktion: Integer;
begin
  Writeln('Der neue Thread');
end;

begin
  Writeln('Der Hauptthread');
  BeginThread(nil,0,@meineFunktion,nil,0,ThreadID);
  Readln;
end.

cu,
stefan2005

[Kidix]

hmm, was kann ich jetzt dagegen machen?

[stefan2005]

hi,
funktioniert der Quellcode oben bei dir nicht ?

was hast du denn für eine Delphi Version ?

cu,
stefan2005

[Kidix]

Delphi 4... ne oben das gleiche

[stefan2005]

hi,
probier dann mal die 0 durch eine Variable mit dem Wert 0 zu erstetzen.

Delphi-Quellcode:

var ThreadID : Cardinal;
    CreationFlags : Cardinal = 0;
...
BeginThread(nil,0,@meineFunktion,nil,CreationFlags,ThreadID);
...

wenn das nicht funktioniert, wieviele und welche Übergabeparameter an BeginThread werden den erwartet ?

cu,
stefan2005

[Kidix]

hier unten hab ich es angehängt!

[Meflin]

also meine threadaufrufe sehen so aus:

Delphi-Quellcode:

ThreadHandle := BeginThread(nil, 0, TFNThreadStartRoutine(@ThreadFunc), nil, 0, ThreadID);

anstatt des zweiten nils kann man dort dem thread einen parameter übergeben (genauergesagt einen pointer auf eine variable)

[Kidix]

ich habs jetzt auch hinbekommen, deine variante geht!