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;
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


0