Array
(
)

Ler campo Blob no Delphi 2010

Diogo Contato
   - 13 nov 2009

Bom Dia pessoal, estou com problemas ao ler o campo blob de uma determinada tabela no Delphi 2010, ao compilar no Delphi 7 funciona normalmente. Tentei passar o subtipo do campo para 0 e mesmo assim não funcionou. O campo blob, estou utilizando para identificar a digital da leitura biométrica. A gravação da digital faz sem problemas.   Estou utilizando o conector DBExpress e o banco é o Firebird 2.1   Att. Diogo Henrique Contato

Anderson
   - 13 nov 2009

O Firebird aceita qualquer coisa (na gravação) em campos do tipo BLOB SubType 0 (ele grava e não reclama).
Mas na leitura o papo é outro pois, o componente que pega os dados deve receber eles já formatados.
Alguns drivers (Devart) fazem automaticamente alguns ajustes no retorno, outros não (e aí da creps).

Exemplo de uma rotina para recuperar a imagem:

.
.
.
Le_Imagem(ClientDataSetClientes,ImageFoto,'FOTO');
.
.
.

Procedure Le_Imagem(ob_cld:TClientDataSet;ob_img:TImage;sc_campo:string);

var
  ob_BlobStream:TClientBlobStream;
  ob_jpg:TJPegImage;

begin
    ob_jpg:=TJPegImage.Create;
    ob_BlobStream:=TClientBlobStream.Create(TBlobField(ob_cld.FieldByName(sc_campo)),bmRead);
    ob_jpg.LoadFromStream(ob_BlobStream);
    ob_img.Picture.Assign(ob_jpg);
    FreeAndNil(ob_BlobStream);
    FreeAndNil(ob_jpg);
end;

Importante:

O campo no arquivo .FDB que contém as fotos deve ser obrigatóriamente do tipo BLOB SubType 0

Trabalhe com apenas um tipo de imagem (jpg por exemplo) ou terá que tratar o retorno de cada tipo com uma
conversão diferente (bmp é um jeito, gif é outro, jpg ...)

0
|
0