Bild aus SQLte laden

[Schuby]

ich habe das jetzt mal gemacht
mit Taste F8 debug


Hier läuft er super durch

Delphi-Quellcode:

      jpg:=TJPEGImage.Create;
      m:=TMemoryStream.Create;
     try
      TBlobField(Datasource2.DataSet.FieldByName('BILD1')).SaveToStream(m);
      m.Position:= 0;
      if m.Size > 0 then
      begin
        jpg.LoadFromStream(m);
        Image1.Picture.Assign(jpg);
      end else
      begin
        Image1.Picture := nil;
      end;
      finally
        FreeAndNil(m);
        FreeAndNil(jpg);
      end;

Und hier läuft er sich zu tote
Zwischen repeat und until, ich denke beim Form Aufbau

Delphi-Quellcode:

unit Vcl.Forms;


      repeat
        try
          HandleMessage;
        except
          HandleException(Self);
        end;
      until Terminated;

mfg