[firebase-br] ClientDataSet + Blob + Jpeg

[Paulo Portella]

Fiz de cabeça... tenta se funciona


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.cdsClientes.state in [dsedit, dsInsert]) then
dmc.cdsClientes.Edit;
        bmp:=TBitmap.Create;
        Picture := graphics.TPicture.Create;
        picture.LoadFromFile(openpicturedialog.FileName);
        bmp.Assign(Picture.Graphic);
        dmc.cdsClientesIMAGEM.Assign(bmp);
        bmp.Free;
        picture.Free;
    end;
  end;
end;