WorkerThread.Execute arbeitet keine procedure ab ?

[MrMooed]

'Nabend

Ich habe mich wegen eines Projektes mal an das Thema Multithreading gewagt

Nun habe ich das Problem, dass ich dem WorkerThread Parameter zum rechnen übergebe, aber sobald ich Worker.Resume auf 'True' setzte passiert garnichts. Kann es dadran liegen, dass ich in der .Execute eine andere procedure starte (die die eigentliche Berechnung durchführt) ?

Hier mal ein wenig Code:
Aufruf in main-unit:

Delphi-Quellcode:

procedure TForm1.Vollbild1Click(Sender: TObject);
var
  i: Integer;
  Thread: Array of WorkerThread;
begin
  SetLength(Thread, GetCPUCount);
  for i:=0 to Length(Thread)-1 do begin
    Thread[i] := WorkerThread.create(true);
    Thread[i].ThreadCount := GetCPUCount;
    Thread[i].Y_Min := Y_Min;
    Thread[i].Y_Max := Y_Max;
    Thread[i].X_Min := X_Min + i * (X_Min + X_Max) / GetCPUCount;
    Thread[i].X_Max := Thread[i].X_Min + i * (X_Min + X_Max) / GetCPUCount;
    Thread[i].Hoehe := Form1.Height;
    Thread[i].Breite := Form1.Width DIV GetCPUCount;
    Thread[i].Resume;
    end;
end

Bei der WorkerThread.Execute macht es keinen Unterschied ob ich die procedure damit aufrufe, oder ob ich sie direkt dadrin berechne o.o

[daywalker9]

Wie sieht denn dein WorkerThread aus?

[MrMooed]

Zitat von daywalker9:

Wie sieht denn dein WorkerThread aus?

Ist ein wenig lang, aber habe keine Ahnung ob / wie man hier einen Spoiler einfügt

Delphi-Quellcode:

unit mWorkerThread;

interface

uses
  classes, Graphics;

type
  WorkerThread = class(TThread)
  protected
    procedure Execute; override;
    procedure berechnePixel();
    function rechne(X_Ko, Y_Ko: double): Integer;
  public
    Bild : TBitMap;
    X_Min, Y_Min, X_Max, Y_Max: double;
    ThreadCount, Hoehe, Breite: Integer;
  end;

implementation

function WorkerThread.rechne(X_Ko, Y_Ko: double): Integer;
var
  i: Integer;
  nX, nY, X, Y, A: double;
begin
  i := 0;
  X := 0;
  Y := 0;
  while (i < 100) and (A < 4) do begin
    nX := (X*X) - (Y*Y) + X_Ko;
    nY := 2 * X * Y + Y_Ko;
    X := nX;
    Y := nY;
    A := X*X + Y*Y;
    Inc(i);
    end;
    result := i;
end;

procedure WorkerThread.berechnePixel();
var
   x, y: Integer;
   faktorX, faktorY, tmp: double;
begin
    x  := 0;
    tmp := Y_Min;
    Bild := TBitMap.Create;
    Bild.Width  := Hoehe;
    Bild.Height := Breite;
    faktorX := (Abs(x_Min)+Abs(x_Max)) / Bild.Width;
    faktorY := (Abs(y_Min)+Abs(y_Max)) / Bild.Height;
    while (x_Min <= x_Max) do begin
      y := 0;
      while (y_Min <= y_Max) do begin
        case rechne(x_Min, y_Min) of
          0..10:  Bild.Canvas.Pixels[x,y] := clBlack;
          11..20: Bild.Canvas.Pixels[x,y] := clOlive;
          21..30: Bild.Canvas.Pixels[x,y] := clYellow;
          31..40: Bild.Canvas.Pixels[x,y] := clLime;
          41..50: Bild.Canvas.Pixels[x,y] := clGreen;
          51..60: Bild.Canvas.Pixels[x,y] := clAqua;
          61..70: Bild.Canvas.Pixels[x,y] := clBlue;
          71..80: Bild.Canvas.Pixels[x,y] := clNavy;
          81..90: Bild.Canvas.Pixels[x,y] := clPurple;
          else    Bild.Canvas.Pixels[x,y] := $000000;
        end;
        y_Min := y_Min + faktorY;
        Inc(y);
      end;
      y_Min := tmp;
      x_Min := x_Min + faktorX;
      Inc(x);
    end;
end;

procedure WorkerThread.Execute;
begin
  berechnePixel;
end;

end.

[daywalker9]

Hast Du denn schon mal einen BReakpoint in WorkerThread.Execute gesetzt, um zu schauen, ob Du da rein kommst?

[DeddyH]

Und wozu ist die Bitmap gut, die nur erzeugt, aber nirgends dargestellt/gespeichert/freigegeben wird?

[Klaus01]

In der Methode "darstellen", wie und wo soll denn da ewtas dargestellt werden.
Es wird ein Instanz von TBitmap erzeugt - mit dem Inhalt etwas angestellt/berechnet.
Das war es dann schon.
Die Instannz wird nicht freigegeben noch wird etwas zu Ausgabe gebracht.

Wenn Du etwas in Deiner Hauptform darstellen willst, solltest Du dich
mit critcal section und/oder synchronize beschäftigen.

Grüße
Klaus

[DeddyH]

Sag ich doch