[firebase-br] URGENTISSIMO - Duvida ao utilizar o Blob

Ricardo Rocha serpentedodeserto em gmail.com
Sex Ago 21 21:57:35 -03 2009


Boa Noite COmunidade,


Estou utilizando o Firebird-2.0.5.13206, Juntamente com o Delphi 7, e um 
DBImage, e Crei um campo do tipo BLOB que teoricamente era para poder esta 
gravando e recuperando Imagens JPG, JPEG ou BMP.

Mais nao consegui nem gravar.

Alguem teria alguma rotina para poder esta aplicando para poder esta 
gravando e recuperando o registro.

Pois ja passei o dia todo tentando sem exito ja não sei o que estou fazendo 
de errado.

Tenho um botao com este comando.

  Var
    Imagem:TPicture;
    SelectedFile: String;

  begin
    if PromptForFileName(SelectedFile,'Arquivos de Bitmap (*.bmp)|*.bmp|JPEG 
(*.JPG, *.JPEG, *.JPE, *.JFIF)|*.JPG; *.JPEG; *.JPE; *.JFIF|Todos os 
Arquivos (*.*)|*.*','','Localizar Fotografia ', 'C:\PROGRAMA\FOTOS\',False) 
then
      Begin
        Imagem:= TPicture.Create();
        Imagem.LoadFromFile(SelectedFile);
        ClipBoard.Assign(Imagem);
        DBImage1.PasteFromClipBoard;
        Imagem.Free;
        Exit;
      End
    else
      begin
        exit;
        Imagem.Free;
      End;
      //ShowMessage(\'Seleção Cancelada\');
  end;
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Tambei tentei este abaixo:

    if (OpenDialog1.Execute) and (SBGravar.Enabled = True) then
      begin
        Image2.Picture.LoadFromFile(OpenDialog1.FileName);
        Image2.PasteFromClipboard;

      end;

===============================================

dbimage com o datasource apontando para o dataset e o mesmo esta apontando 
para MDOQuery e pegando o campo BLOB no banco de dados.

*******************************************************

E nada aguem poderia esta me ajundando por favor. 







Mais detalhes sobre a lista de discussão lista