quinta-feira, 24 de setembro de 2009

Gravando imagem blob no interbase

// Cria Variável
msFoto01: TMemoryStream;
msFoto02 := TMemoryStream.Create;

// Carrega Imagem para o Comp. Image
Image.Picture.Graphic.SaveToStream(msFoto02);
SQLInsert.ParamByName('pImagem').LoadFromStream(msFoto02,ftBlob);

Nenhum comentário:

Postar um comentário