quinta-feira, 24 de setembro de 2009

Lendo tipo blob do interbase

// Cria Variáveis
msFoto01: TMemoryStream;
msJPeg01: TJPEGImage;

try
// Cria Variável
msFoto01 := TMemoryStream.Create;
msFoto01 := TSQLBlobStream.Create(CAMPOBLOB,bmRead);

// Carrega Imagem no Comp. Image (BMP)
Foto01.Picture.Bitmap.LoadFromStream(msFoto01);
except
// Testa sua existência
if CAMPOBLOB.AsString <> '' then
begin
// Cria Variável
msJpeg01 := TJPEGImage.Create;
msJPeg01.LoadFromStream(TSQLBlobStream.Create(CAMPOBLOB,bmRead));
// Carrega Imagem (JPEG)
Foto01.Picture.Graphic := msJpeg01;
Foto01.Update;
FreeAndNil(msJPeg01);
end;
end;

Nenhum comentário:

Postar um comentário