[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