Bild aus Datenbank in TImage Komponente

[Metallicwar]

zu (1): Zusätzliche Tabellenspalten möchte ich nicht unbedingt anlegen. Da gibt es doch bestimmt auch andere Wege, mein Problem zu beheben oder ?

zu (2): Wäre vll sogar besser^^

[stahli]

Evtl kannst Du die Streamgröße (.Size) abfragen. Wenn es weniger als 10 Bytes sind, weist Du den Stream nicht zu (wenn das sonst Fehler verursacht).

[Bummi]

ausgehend von JPG-Images ....

Delphi-Quellcode:

procedure TForm5.saveClick(Sender: TObject);
var
  s:TMemoryStream;
    i:TJPEGImage;
begin
  i:=TJPEGImage.Create;
  s:=TMemoryStream.Create;
  try
    d.Edit;
    TJPEGImage(Image1.Picture.Graphic).SaveToStream(s);
    Showmessage(IntToStr(s.Position));
    s.Position := 0;

    TBlobField(dBild).LoadFromStream (s);
    d.Post;
  finally
    s.Free;
    i.Free;

  end;

end;

procedure TForm5.Image1Click(Sender: TObject);
var
  s:TMemoryStream;
  i:TJPEGImage;
begin
  i:=TJPEGImage.Create;
  s:=TMemoryStream.Create;
  try
  TBlobField(dBild).SaveToStream(s);
  if s.Position > 0 then
      begin
        s.Position := 0;
        try
        i.LoadFromStream (s);
        Image2.Picture.Assign(i) ;
        except
        end;
      end;
  finally
  s.Free;
  i.Free
  end;
end;

[Metallicwar]

Hi Leute
Erstmal danke für die bisherige Hilfe und die Codes

habe vll noch eine Möglichkeit

Delphi-Quellcode:

var
Datei: TFileObject;
...
sBlobFile := 'c:\Test.jpg';
qryGetDAtaBild.SaveToFile(sBlobFile);

Datei := TFileObject.Create();
Datei := sBlobFile;

if FileSize(Datei) > 0 then
Frames.Image1.Picture.LoadFromFile(sBlobFile);

DeleteFile('c:\Test.jpg');

soooo, aber ich müsste wissen, welche Unit ich in die uses Klausel eintragen muss, weil TFileObject erkennt er nicht...