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.