Thema: Delphi Bild aus SQLte laden

Einzelnen Beitrag anzeigen

Schuby

Registriert seit: 25. Dez 2018
54 Beiträge
 
#10

AW: Bild aus SQLte laden

  Alt 1. Mai 2020, 17:10
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
  Mit Zitat antworten Zitat