Como fazer pra gravar uma imagem num campo Blob? Fiz uma função para isso, a seguir:
procedure
LoadPictureToDataset(FileName: TFileName; Dataset: TDataset; PictureFieldName:String
);begin
if
StrIsEmpty(FileName)then
raise
Exception.Create('Nome de arquivo não pode ser vazio.'
);
Assert(Dataset <>Nil
);
Assert(Dataset.FindField(PictureFieldName) <>Nil
,'Nome de campo inválido: '
+ PictureFieldName);
Assert(not
(Dataset.FieldByName(PictureFieldName)is
TGraphicField),'Campo '
+ PictureFieldName +' não suporta imagens'
);
TBlobField(Dataset.FieldByName(PictureFieldName)).LoadFromFile(FileName);end
;
Nenhum comentário:
Postar um comentário