Datenkopie für Thread anders erzeugen

[moelski]

Moin !

Ok ich gebe zu der Titel ist etwas merkwürdig, aber ich wills mal erklären :wink:

Also ich habe im Anhang mal eine ganz einfache Anwendung hinzugefügt. Die macht nix anderes als per Thread ein Bild bzw. einen MemoryStream auf Platte zu speichern.
Nun muss man ja irgendwann mal den Thread einrichten und mit Daten versorgen. Das passiert hier:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var BlobThread  : TTestThread;
begin
  BlobThread := TTestThread.Create();
  Image1.Picture.Bitmap.SaveToStream(BlobThread.Stream);
  BlobThread.Priority     := tpLower;
  BlobThread.Resume;
end;

Das funktioniert soweit auch alles. Allerdings läuft die Zeile ...

Delphi-Quellcode:

Image1.Picture.Bitmap.SaveToStream(BlobThread.Stream);

... ja im MainThread ab.

Und meine Frage wäre nun ob es eine Möglichkeit gibt, das dieser Teil unabhängig vom MainThread abläuft.
Denn wenn man dort mal eine größere Bilddatei mit speichern will, dann hängt der Main Thread so lange wie die Kopie erzeugt wird.

Die Anwendung ist übrigens nichts wirklich sinnvolls. Mir gehts da eher um das Prinzip.

[quendolineDD]

Einfach umkerhren ;-)
Bisher arbeitest du im Mainthread mit der Methode des Bildes. Übergeb doch einfach deinem Thread das Bild und arbeite in einer Funktion im Thread das speichern ab.

[moelski]

Moin !

Zitat:

Übergeb doch einfach deinem Thread das Bild und arbeite in einer Funktion im Thread das speichern ab.

Wie genau meinst du das? Denn ichkann aus dem Thread nicht auf die Elemente des Formulars zugreifen. Also das geht nicht:

Delphi-Quellcode:

procedure TTestThread.Execute;
begin
  PIC.Picture.Bitmap.SaveToStream(BlobThread.Stream);
  Stream.Position := 0;
  Stream.SaveToFile('Test.bmp');
end;

Wobei PIC dann folgendes wäre :

Delphi-Quellcode:

PIC := Form1.Image1;

So gehts wie gesagt nicht.

[quendolineDD]

Deswegen sollst du es ja übergeben und nicht einfach auf die Elemente aus dem Thread heraus zugreifen.
Denk aber daran, wenn du zB

Delphi-Quellcode:

constructor Create(const Picture : TBitmap; const Name : AnsiString);

schreibst, das du dann im Hauptthread und in dem Thread auf den gleichen Speicherbereich zugreifst. Hier würden sich Semaphore oder Mutexe gut machen.

[moelski]

Moin !

Ok lassen wir die Semaphore-Thematik mal eben aussen vor.

Delphi-Quellcode:

constructor TTestThread.Create(const Picture : TBitmap);
begin
  inherited Create(True);
  FreeOnTerminate := True;

  Stream := TMemoryStream.Create;
  Picture.SaveToStream(Stream);
end;

procedure TTestThread.Execute;
begin
  Stream.Position := 0;
  Stream.SaveToFile('Test.bmp');
end;

procedure TForm1.Button1Click(Sender: TObject);
var BlobThread  : TTestThread;
begin
  BlobThread := TTestThread.Create(Image1.Picture.Bitmap);
  BlobThread.Priority     := tpLower;
  BlobThread.Resume;
end;

Das würde dann ja so aussehen. Soweit funktioniert das auch. Allerdings wird das Bild dennoch nicht im Thread kopiert.

[moelski]

Moin !

Muss mich korrigieren. So gehts:

Delphi-Quellcode:

TTestThread = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    Stream      : TMemoryStream;
    Pic         : TBitmap;
    constructor Create(const Picture : TBitmap);
    destructor Destroy; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TTestThread.Create(const Picture : TBitmap);
begin
  inherited Create(True);
  FreeOnTerminate := True;

  Stream := TMemoryStream.Create;
  Pic := Picture;
end;

procedure TTestThread.Execute;
begin
  Pic.SaveToStream(Stream);
  Stream.Position := 0;
  Stream.SaveToFile('Test.bmp');
end;

procedure TForm1.Button1Click(Sender: TObject);
var BlobThread  : TTestThread;
begin
  BlobThread := TTestThread.Create(Image1.Picture.Bitmap);
  BlobThread.Priority     := tpLower;
  BlobThread.Resume;
end;

Aber ist das dann niicht im Endeffekt das gleiche als wenn ich schreiben würde (in Execute):

Delphi-Quellcode:

Image1.Picture.Bitmap.SaveToStream(Stream);

Das führt ja nachweislich zu einem Crash.

Wo ist dann jetzt der Unterschied?

Übergebe ich so dem Create dann einen Pointer?

[jfheins]

Du könntest im Thread ein TBitmpa-Feld haben und beim erstellen des Threads das Bild mittels BitBlt reinkopieren ...

[moelski]

Moin !

Zitat:

Threads das Bild mittels BitBlt reinkopieren

Ne das ist nix.
Die Bilder sind nur zu Demo Zwecken! Das hat keinen tieferen Sinn. Damit kann man nur unkompliziert große Datenmengen erzeugen (Stichwort BMP).

[moelski]

Moin !

Ne also die letzte Variante geht auch nur (so denke ich mal) weil der Thread in der Programmunit definiert ist. Sobald der Thread in einer eigenen Unit ausgelagert ist klappt das Konstrukt nicht mehr.

[quendolineDD]

Wieso sollte das nicht funktionieren?