[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