Bild aus SQLte laden

[Schuby]

Ich habe mal bei allen 3 Bilder
das raus genommen, //Image1.Picture.Assign(jpg);

Das Programm war sofort da, brauche nicht mehr zu wachten.

Tja ich brauche aber die vorschaubilder


mfg

[Delphi.Narium]

Wir wissen aber nu schonmal, dass das Problem nicht (wie ursprünglich vermutet) datenbankseitig zu suchen ist.

[Schuby]

Tja was kann man da machen ? ich brauche die kleinen Vorschaubilder

mfg

[Delphi.Narium]

Ehrlich gesagt: Bisher keine Ahnung

Schonmal dem Tip von Der schöne Günther gefolgt und per Debugger und Einzelschritt durch die Routine gegangen?

Welche der Zeilen "verbrät" da die meiste Zeit?

[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