Comment économiser de l'image jpg de base de données, puis de le charger dans Delphi en utilisant FIBplus et TImage?

Comment puis-je enregistrer une image jpg de base de données, puis de le charger dans Delphi en utilisant FIBplus et TImage?

InformationsquelleAutor Grrey | 2008-09-15
  1. 3
    var
  S : TMemoryStream;
begin
  S := TMemoryStream.Create;
  try
    TBlobField(AdoQuery1.FieldByName('ImageField')).SaveToStream(S);
    S.Position := 0;
    Image1.Picture.Graphic.LoadFromStream(S);
  finally
    S.Free;
  end;
end;

    si vous utilisez des images JPEG, ajouter JPG unité de utilise clause de votre fichier unité.

    InformationsquelleAutor Ali
  2. 0

    Cette page l'explique. Utilisation SaveToStream et un TMemoryStream au lieu de SaveToFile si vous ne voulez pas de fichiers temporaires. TImage.L'image a un LoadFromStream qui charge l'image à partir du flux dans le TImage pour l'affichage.

    InformationsquelleAutor Lars Truijens
  3. -1

    Jetez un oeil ici.
    Je pense que vous devez le convertir en un flux de données, les stocker, et vice-versa.

    InformationsquelleAutor Roger Ween
  4. -1

    Delphi 7 table paradox

    insérer dbimage jpeg

    var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
  if openpicturedialog1.Execute then
  begin
    Sicil_frm.DBNavigator1.BtnClick(nbEdit);
    image1.Picture.LoadFromFile(openpicturedialog1.FileName);
    try
       BlobStream := dm.sicil.CreateBlobStream(dm.sicil.FieldByName('Resim'),bmWrite);
       FileStream := TFileStream.Create(openpicturedialog1.FileName,fmOpenRead or fmShareDenyNone);
       BlobStream.CopyFrom(FileStream,FileStream.Size);
       FileStream.Free;
       BlobStream.Free;
       Sicil_frm.DBNavigator1.BtnClick(nbPost);
       DM.SicilAfterScroll(dm.sicil);
     except
       dm.sicil.Cancel;
     end;
  end;
end;

    Erreur "image Bitmap est nat valide"

    InformationsquelleAutor alper