Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

segunda-feira, 26 de outubro de 2015

DELPHI - Carregar um campo blob como imagem - Load a blob field as image

Reações: 
//Função onde é passado o campo blob e retorna Stream
function BlobToImage(ABlob: TBlobField): TStream;
begin
  Result := nil;
  try
    if ABlob.BlobSize > 0 then
    begin
      Result := TMemoryStream.Create;

      ABlob.SavetoStream(Result);
    end
    else
      Result := nil;
  except
    Result := nil;
  end;
end;

//Exemplo de uso
procedure FormShow(Sender: TObject);
var
  FStream : TStream;
begin
  Self.Image1.Visible := False;
  try
  //Passando o campo Blob para função acima
    FStream := BlobToImage(CDSBlob);
    if FStream <> nil then
      Self.Image1.Picture.Bitmap.LoadFromStream(FStream);
    Self.Image1.Visible := Self.Image1.Picture <> nil;
  finally
    if FStream <> nil then
      FStream.Free;
  end;
  
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer