Thema: Delphi Bild aus SQLte laden

Einzelnen Beitrag anzeigen

Schuby

Registriert seit: 25. Dez 2018
93 Beiträge
 
#1

Bild aus SQLte laden

  Alt 1. Mai 2020, 14:49
Datenbank: SQLite • Version: ? • Zugriff über: FireDac
Hallo, ich habe eine kleine Anwendung Programmiert
wo ich eine SQLite Datenbank erstellt habe.

In dieser Datenbank kann ich max 3 Bilder (jpg) mit max 250kb
speichern, mehr als 250 kb lasse ich nicht zu.

Wenn ich einen Datensatz aufrufe dauert es sehr lange bis die 3 Bilder
anget´zeigt werden, ist das normal ? min 3 sec dauert es.
Hier mal mein Code, jpg wird zum speichern gebraucht

Delphi-Quellcode:
var jpg : TJPEGImage;
...

      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;

mfg
  Mit Zitat antworten Zitat