Fórum Imagem em XML DataPacket #348753

procedure TFEmpresa.DSCDSIdent_EmpDataChange(Sender: TObject;
  Field: TField);
var
   BlobStream : TBlobStream;
   JpegImage : TJPEGImage;
begin
     BlobStream := TBlobStream.Create(CDSIdent_EmpLOGO, bmRead);
     if BlobStream.Size <> 0 then
     begin
          JpegImage := TJPEGImage.Create;
          try
             JpegImage.LoadFromStream(BlobStream);
             Image1.Picture.Assign(JpegImage);
          finally
             BlobStream.Free;
             JpegImage.Free;
          end;
     end;
end;




procedure TFEmpresa.SBLOGOClick(Sender: TObject);
Var
   FileStream : TFileStream;
   BlobStream : TBlobStream;
begin
     if CDSIdent_Emp.State in [dsInactive] then
        CDSIdent_Emp.Open;

     if not CDSIdent_Emp.State in [dsEdit] then
        CDSIdent_Emp.Edit;

     if OpenPictureDlg.Execute then
     begin
          // abre stream com a imagem do arquivo
          FileStream := TFileStream.Create(OpenPictureDlg.FileName, fmOpenRead or fmShareDenyWrite);
          // abre stream de gravação do blob
          BlobStream := TBlobStream.Create(CDSIdent_EmpLOGO, bmWrite);
          try
             // copia dados do stream de arquivo para o blob
             BlobStream.CopyFrom(FileStream, FileStream.Size );
          finally
             FileStream.Free;
             BlobStream.Free;
          end;
     end
     else
        Abort;
end;