Exportar JPG para html ?

Delphi

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

Gigatel

Curtidas 0
POSTAR