Lê imagem em tabela Access. Campo do tipo Objeto OLE
Tenho um tabela alunos no Access 2000 com um campo do tipo ´Objeto OLE´ no qual eu gravo a foto do aluno com o comando a seguir ´if (OpenPictureDialog1.Execute) then
begin
TBlobField(DM_Equipe.Qry_Aluno.FieldByName(´Alu_Foto´)).Value := OpenPictureDialog1.FileName;
end;´. Meu problema está sendo visualizar essa foto no componente Image1. Como fazer isso??? A foto deve corresponder ao registro corrente...
begin
TBlobField(DM_Equipe.Qry_Aluno.FieldByName(´Alu_Foto´)).Value := OpenPictureDialog1.FileName;
end;´. Meu problema está sendo visualizar essa foto no componente Image1. Como fazer isso??? A foto deve corresponder ao registro corrente...
Merli
Curtidas 0
Respostas
Cleidsonbsilva
09/04/2005
Essa foto está em formato JPEG ?
Se tiver observe o meu exemplo, uso essa rotina em um programa meu.
var B : TStream;
jpg: tjpegimage;
Begin
IMAGE1.Picture.Assign(nil);
jpg := nil;
B := dm1.qryImagens.CreateBlobStream(dm1.qryImagens.FieldByName(´IMAGEM_BLOB´), BMREAD);
IF B.Size > 0 THEN
BEGIN
try
Jpg := TJpegImage.Create;
Jpg.LoadFromStream(b);
IMAGE1.Picture.Assign(jpg);
except
end;
END
ELSE
IMAGE1.Picture.Assign(nil);
jpg.Free;
b.Destroy;
Espero ter ajudado...
Se tiver observe o meu exemplo, uso essa rotina em um programa meu.
var B : TStream;
jpg: tjpegimage;
Begin
IMAGE1.Picture.Assign(nil);
jpg := nil;
B := dm1.qryImagens.CreateBlobStream(dm1.qryImagens.FieldByName(´IMAGEM_BLOB´), BMREAD);
IF B.Size > 0 THEN
BEGIN
try
Jpg := TJpegImage.Create;
Jpg.LoadFromStream(b);
IMAGE1.Picture.Assign(jpg);
except
end;
END
ELSE
IMAGE1.Picture.Assign(nil);
jpg.Free;
b.Destroy;
Espero ter ajudado...
GOSTEI 0