[firebase-br] trabalhar com imagem no fb

[Paulo Portella]

Depois eu mando a conta para o depósito


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;




2008/6/9 Cássio <cassio.hc em gmail.com>:

> Como faço? quero armazenar a foto no firebird...
>
> vlw.
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>