Wie kann man TThread synchronize ausbauen ?

[sirius]

Was hälst denn davon?

Delphi-Quellcode:

 Tloader = Class(TThread)
  public
    Procedure Execute; override;
    Constructor Create;
  private
    m:Tmemorystream;
    procedure tosync;
  End;

//...

Procedure TILoeader.tosync;

Begin
  LoadTextureStream(m, {form1.}img);
End;

Procedure Tloader.Execute;
var f:Tfilestream;
Begin
  f := Tfilestream.create('Test.jpg', fmopenread);
  m := Tmemorystream.create;
  m.CopyFrom(f, f.size);
  m.position := 0;
  
  Synchronize(tosync);
  m.free;
  f.ree;
End;

Nur die referenz auf Form1 sollte man noch überdenken.