[firebase-br] RES: Erro ao salvar blob
Paulo Portella
pportellaa.firebase em gmail.com
Ter Abr 22 14:15:55 -03 2008
1o.) Vc nao disse qual o sub-type do seu campo....
20.) imaginando que talvez vc venha a perguntar uma maneira melhor de se
programar, adianto a resposta,
costumo usar desse jeito:
var
bmp :TBitmap;
picture : TPicture;
begin
if OpenPictureDialog.Execute then
begin
if application.MessageBox('Confirma a inserção desta
imagem?','Imagem',MB_ICONQUESTION + MB_YESNO) = mrYes then
begin
if not(dmc.cdsprodutos.state in [dsedit, dsInsert]) then
dmc.cdsProdutos.Edit;
bmp:=TBitmap.Create;
Picture := graphics.TPicture.Create;
picture.LoadFromFile(openpicturedialog.FileName);
bmp.Assign(Picture.Graphic);
dmc.cdsProdutosIMAGEM.Assign(bmp);
bmp.Free;
picture.Free;
end;
end;
end;
Mais detalhes sobre a lista de discussão lista