F�rum Exportar JPG para html ? #330471

01/10/2006

a� galera tem como exportar figuras de um banco de dados ( interbase ) de um camplo blob, apara html ?
presciso de uma id�a inical..

este � o modo no qual vizualizo as em uma image, ser� que tem como fazer isto ?

Procedure T_FORM_VIZ_PC.ObtemFoto( NomeCampo: String; Var imgDestino: TImage );
Var
  jpgImg: TJPEGImage;
  stMem: TMemoryStream;
begin
  If TBlobField( DS_CAD_PC.DataSet.FieldByName( NomeCampo ) ).IsNull or (TBlobField(DS_CAD_PC.DataSet.FieldByName( NomeCampo)).BlobSize = 0) Then
  Begin
    imgDestino.Picture := Nil;
    Exit;
  End;
  jpgImg := TJPEGImage.Create;
  stMem := TMemoryStream.Create;
  try
    TBlobField( DS_CAD_PC.DataSet.FieldByName( NomeCampo ) ).SaveToStream( stMem );
    stMem.Position := 0;
    jpgImg.LoadFromStream( stMem );
    imgDestino.Picture.Assign( jpgImg );
  finally
    stMem.Free;
    jpgImg.Free;
  end;
end;

flw t+

Gigatel

Curtir t�pico

+ 0

Responder