Verificar se existe imagem na tabela

Delphi

18/07/2003

Gostaria de saber como verificar se existe uma imagem num campo tipo blob, no oracle, image, no sql server e Blob sub_type 0, no firebird ?
Eu quero que se tiver a imagem, então ele entra na rotina.

Já tentei: if qryUsuarioFOTO.AsVariant <> ´´ then
if qryUsuarioFOTO.Value <> ´´ then
begin
Image1.Picture.Bitmap := Nil;
Image1.Picture.Bitmap.Assign(qryUsuarioFoto);
end;

E não dá certo. Sempre tem alguma coisa no campo, mesmo não tendo nenhuma imagem gravada lá.

obrigado


Andreyrf

Andreyrf

Curtidas 0

Respostas

Kanedasam

Kanedasam

18/07/2003

[color=blue:2e6aeeec92]if not qryUsuarioFOTO.IsNull then[/color:2e6aeeec92] [b:2e6aeeec92]// Propiedade tipo Boolean [/b:2e6aeeec92]
[color=blue:2e6aeeec92]begin
Image1.Picture.Bitmap := Nil;
Image1.Picture.Bitmap.Assign(qryUsuarioFoto);
end; [/color:2e6aeeec92]


GOSTEI 0
POSTAR