Delphi - Como detectar si un campo blob está vacío

 
Vista:

Como detectar si un campo blob está vacío

Publicado por Jesus (16 intervenciones) el 30/09/2004 13:24:35
Estoy haciendo una aplicación en delphi 7 con Ado y como base de datos Access 2000 en la cual tengo una serie de tablas en las que tengo definidos campos Memo (en los que guardo imagenes jpg) y tengo el problema que no sé como detectar si el campo está vacío o no para habilitar el Timage correspondiente (para visualizar la image o no en el formulario). El código que utilizo es el siguiente :
begin
image1.Visible := False;
try
Image1.Visible := True;
try
aJpeg := TJPEGImage.Create;
aStream := TMemoryStream.Create;
dmDiscos.ADOTDiscosBPORTADA.SaveToStream(aStream);
aStream.Seek(0,soFromBeginning);
aJpeg.LoadFromStream(aStream);
try
Image1.Picture.Assign(aJpeg);
except
on e:EInvalidGraphic do
begin
ShowMessage(e.Message);
image1.Visible := False;
end;
end;
finally
Image1.Repaint;
aJpeg.Free;
aStream.Free;
end;
except
Image1.Visible := False;
end;
end;

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como detectar si un campo blob está vacío

Publicado por Virum (484 intervenciones) el 30/09/2004 17:47:22
No se si te refieres a esto.

Esto eá para una tabla InterBase, adaptalo a Access.

if IBDSAlumnosFOTO.IsNull then

IBDSAlumnos -> DataSet
FOTO -> nombre del campo Blob

Suerte. Virum
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar