Hallo,

wie kann ich ein Bitmap an eine Thread Klasse übergeben?

LG Chris

Als Member der Klasse oder besser als Parameter einer Methode

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Classes, Graphics;

type
  TMyThread = class(TThread)
  private
    { private-Deklarationen }
  protected
    procedure Execute; override;
  end;

type
  TFarbe = record
    Red : Integer;
    Green : Integer;
    Blue : Integer;
  end;

implementation

{ TMyThread }

procedure TMyThread.Execute;
  var Bitmap : TBitmap;
      x, y : Integer;
      Farbe : TFarbe;
      Arith : Integer;
begin
  for x:=0 to Bitmap.Width do
    begin
      for y:=0 to Bitmap.Height do
        begin
          with Farbe do
            begin
              Red:=GetRValue(Bitmap.Canvas.Pixels[x, y]);
              Green:=GetGValue(Bitmap.Canvas.Pixels[x, y]);
              Blue:=GetBValue(Bitmap.Canvas.Pixels[x, y]);

              Arith:=Round((Red + Green + Blue) / 3);
            end;
          Bitmap.Canvas.Pixels[x, y]:=RGB(Arith, Arith, Arith);
        end;
    end;
end;

end.

So sieht mein Code nun aus. Das Bitmap wo drauf gemalt wird nun aber übergeben. Wie mache ich das?

TMyThread = class(TThread)
private
{ private-Deklarationen }
FBild: TBitmap;
protected
procedure Execute; override;
published
property Bild: TBitmap read FBild write FBild;
end;
...

markieren

Delphi-Quellcode:

procedure TMyThread.Execute;
[s] var Bitmap : TBitmap;[/s]
      x, y : Integer;
      Farbe : TFarbe;
      Arith : Integer;
begin
  for x:=0 to Bild.Width do

MyThread.Bild := Bitmap;

ok,

super danke funktioniert.

Mein Problem war, dass ich nicht wusste das man auch verhindert kann das der Thread gleich beim aufrufen des Constructors ausgeführt wird.