thread

[Nisbo]

Moin Moin,

irgendwie komme ich mit den threads nicht so recht klar, habe da schon einiges gelesen aber so nen richtiges zu verstehendes beispiel habe ich da nicht gefunden :(

Bin leider mehr der Bsp-Typ, also Code lesen und verstehen
nach thread zu suchen ist eine qual, bei google und auch hier deswegen mal eine bitte an euch

könnte jemand mal einen ganz einfachen code mit zwei threads erstellen, also wenn man auf Button 1 clickt dann soll
showmessage('T1'); erscheinen und bei button 2 dann showmessage('T2');
also den kompletten code der unit hier posten ?

hoffe das ich das ganze dann besser verstehe

PS: habe D5 Standard

[Die Muhkuh]

ähm, das mit Threads zu machen, ergibt keinen sinn.

Threads sind z.B. für rechenintensive Aufgaben da, damit die Mainform nicht einfriert.

[Nisbo]

ja das ist schon klar, ich wollte ja nur ein einfaches übersichtliches Beispiel haben, selber nutzen möchte ich das wenn ich dateien aus dem internet runterlade denn da hängt das programm sonst, den cod emit showmessage tausche ich dann halt einfach aus ;)

[TBx]

guckst mal hier :-D

hoffe, das hilft Dir weiter

onlinekater

[Nisbo]

mal schauen ob ich aus der demo schlau werde, da ist mir eigendlich schon wieder zuviel code drinn, deswegen auch meine frage wegen den 2 buttons und showmessage, eventuell erbarmt sich ja noch einer ;)

[sakura]

Zitat:

Zitat von Nisbo

mal schauen ob ich aus der demo schlau werde, da ist mir eigendlich schon wieder zuviel code drinn, deswegen auch meine frage wegen den 2 buttons und showmessage, eventuell erbarmt sich ja noch einer ;)

Einfacher geht es kaum. Zwei Buttons sind schon einer mehr als in der einfachen Demo von Borland ;)

...:cat:...

[Nisbo]

sorry dann bin ich da wohl zu doof, diese 3 paintboxen verwirren mich da irgendwie ...

[jfheins]

Hier mal ein einfacher Thread Code:

Delphi-Quellcode:

type 
  TMyThread: class (TThread) 
    Status: String; 

    procedure Execute; override; 
    procedure VCL_Result; 
  end; 


procedure TMyThread.Execute; 
begin 
  Status := 'fange an'; 
  synchronize (VCL_Result);

  // Der Threadcode 
  Sleep(2000);

  Status := 'fertig'; 
  synchronize (VCL_Result); 
end; 

procedure VCL_Result, 
begin 
Form1.Label1.Caption := Status; 
end;

Wenn du das Sleep im Hauptthread ausführst, dann bleibt deine Benutzeroberfläche stehen, aber im Thread ist das getrennt ;)

[Nisbo]

hallo und erstmal danke für die antwort, aber das sind auch wieder solche kurzen ausschnitte die keine komplette übersicht sind und noobs wie mir nicht wirklich helfen, weswegen ich ja auch nach den beiden buttons und den gesamten code der unit gefragt hatte

[hoika]

Hallo,

dein Bsp mit den 2 Buttons ist halt für
Threads ungeeignet.
Threads werden meistens benutzt,
um ohne Nutzereinfluss mehrere Arbeiten gleichzeitig
zu machen.

Was willst du denn konkret machen ?

Heiko