Jpeg Bilder aus Access Datenbank auslesen

[Sulki_2000]

Hallo,

hier ist meine Variante des Speicherns und Ladens in/aus einem Blobfeld einer Paradoxdatei.
Vielleicht hilft es beim experimentieren. Mit Access kenne ich mich nicht aus.
Ich hatte auch Schwierigkeiten beim Speichern und Laden von Jpeg-Bildern.
So hats funktioniert.

Gruß Sullki

Delphi-Quellcode:

procedure TForm1.SaveJPEG(FileName: string);
var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
  FileStream := TFileStream.Create(FileName,fmCreate);
  BlobStream := Table1.CreateBlobStream(Table1.FieldByName('Foto'),bmRead);
  FileStream.CopyFrom(BlobStream,BlobStream.Size-BlobStream.Position);
  BlobStream.Free;
  FileStream.Free;
end;

procedure Bild_laden;
var
  JpegImage: TJPEGImage;
  BlobStream: TStream;
begin
  if (not Table1.FieldByName('Foto').IsNull) then
    begin
      BlobStream := Table1.CreateBlobStream(Table1.FieldByName('Foto'),bmRead);
      JpegImage := TJPEGImage.Create;
      try
        try
        JpegImage.LoadFromStream(BlobStream);
        Image1.Picture.Assign(JpegImage);
        Image1.Visible := True;
        except
            //Fehlerbehandlung
           Label148.Caption := 'Fehlerhafter Inhalt';
        end;
      finally
        JpegImage.Free;
        BlobStream.Free;
      end;
    end
  else
    Image1.Visible := False;
end;