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

[Carlos H. Cantu]

Na area de artigos tem exemplos de como trabalhar com imagens em
blobs.

[]s
Carlos H. Cantu
www.FireBase.com.br - www.firebirdnews.org
www.warmboot.com.br - blog.firebase.com.br

RR> Boa Noite COmunidade,


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

RR> Mais nao consegui nem gravar.

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

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

RR> Tenho um botao com este comando.

RR>   Var
RR>     Imagem:TPicture;
RR>     SelectedFile: String;

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

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

RR>       end;

RR> ===============================================

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

RR> *******************************************************

RR> E nada aguem poderia esta me ajundando por favor.