Hallo,

ich würde gerne eine Prozedur als Thread ausführen, damit die Anwendung selbst weiterhin reagiert.
Habe mir bereits das Tutorial von Luckie angeschaut, jedoch hilft es mir auch nicht viel weiter.

Hallo,

deine Frage ist etwas vage: "Ich habe ein Problem, kann mir jemand helfen" spiegelt ungefähr den Inhalt deines Problems... Also was genau willst du denn in dem Thread machen?

Gruß,

Hallo,

dachte der Titel des Themas würde das klar machen:
Wenn der User auf einen Button klickt, wird eine Prozedur ausgeführt. Diese Prozedur benötigt viel Zeit. Während des Vorgangs, reagiert aber die Hauptanwendung nicht mehr. Daher will ich diese Prozedur in einem extra Thread ausführen.

Quasi:
User klickt Button -> Thread "DoProcess" erstellen -> Thread Auzführen (hier wird die eigentliche Prozedur ausgeführt) -> Wenn Thread Fertig -> Thread Ende.

Hallo,

zum Thema Threads einfach mal bei Threads Tutorial vorbeischauen. Für den Anfang hat es mit sehr geholfen.

MfG wZ

wo liegt den das problem? weil eigentlich zielt luckies tut genau darauf ab! wo kommst du nicht weiter?

Wenn du eine konkrete Frage hast zu meinem Tutorial, was du nicht dabei verstanden hast, dann solltest du die auch stellen. Mit einem " jedoch hilft es mir auch nicht viel weiter" kann dir hier auch niemand weiterhelfen.

hi whissi,

versuchs mal so:

zusammenfalten · markieren

Delphi-Quellcode:

procedure blub;
var
  i: integer;
begin
  for i := 0 to 1000000 do
    Form1.ListBox1.Items.Add(IntToStr(i));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  id: cardinal;
begin
  createthread(nil, 0, @blub, nil, 0, id);
end;

Und genau so bitte nicht!

Erstmal sollte man niemals direkt CreateThread aufrufen.

Zitat von Delphi Hilfe:

BeginThread encapsulates the Win32 CreateThread API call, but unlike CreateThread, it sets the global IsMultiThread variable, thereby making the heap thread-safe.

Dann entspricht die Thread-Routine nicht der Vorgabe, wie eine Thread-Funktion auszusehen hat. Sollte zwar auch gehen, würde ich aber nicht empfehlen. Die sieht nämlich so aus:

Zitat von Delphi Hiilfe:

type TThreadFunc = function(Parameter: Pointer): Integer;

Dann wird ohne ein Schutzblock auf globale, sichtbare Ressourcen der VCL zugegriffen:
Form1.ListBox1.Items.Add(IntToStr(i)); Sollte zwar auch gut gehen, kann aber auch böse ins Auge gegehen. Stichwort an dieser Stelle CrtitcalSection oder für die Delphi Hilfe: TCriticalSection.

Ich blicke es nicht :/

Das PDF als solches ist verständlich. Jedoch hilft es mir nicht weiter. Ich weiß eben nicht, wie ich nun hingehe und einen Thread aufrufe, der eine Funktion/Prozedur abarbeitet.

Ich will eigentlich nur folgendes:
Durch eine Aktion auf dem Hauptformular (z.B. Button-Click), soll eine Prozedur in einem eigenen Thread ausgeführt werden (nur als Info: die auszuführende Prozedur erstellt eine HASH-Summe) und wenn die Prozedur durchgelaufen ist (=Hashsumme erstellt wurde), soll sich der Thread wieder beenden und das Hauptform wieder aktiv werden.

wenn du die hauptform derweil deaktivierst, kannst du dir den thread auch sparen, denn dann ist er total überflüssig!