Inclua a Unit "Jpeg" no form.
Falow...
jader_ricarddo escreveu:
Boa tarde Amigos !
Estou desenvolvendo uma aplicação (D7 + Ibx + Fb 1.5).
Ainda não tenho muita experiência e me deparei com alguns problemas
na hora de gravar uma imagem e na hora de altera-la.
Para a inserção estou fazendo assim :
ImgFotPac: TImage;
OPDFotPac: TOpenPictureDialog;
If (OPDFotPac.FileName = '') Then
ModuloUtil.Sp_IU_Clientes.ParamByName('FOTPAC').Value := Null
Else
ModuloUtil.Sp_IU_Clientes.ParamByName('FOTPAC').LoadFromFile
(OPDFotPac.FileName,ftBlob);
Está funcionando para gravar os dados, peguei algumas apostilas,
livros e dicas para fazer isso então gostaria de saber o que
é "ftBlob" ?
Quando tento alterar me aparece o seguinte erro "JPEG error #42", o
que pode ser ?
O código para fazer a alteração é :
QComandos: TIBQuery;
BlobStream:= QComandos.CreateBlobStream(QComandosFOTPAC,bmReadWrite);
JPEGImage:= TJPEGImage.Create;
JPEGImage.LoadFromStream(BlobStream);
ImgFotPac.Picture.Assign(JPEGImage);
BlobStream.Free;
JPEGImage.Free;
Jader Ricardo
=================================
"Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já
foram."
Alexander Graham Bell
=================================
Welson de Avelar Soares Filho
Programador Delphi
Gemini Sistemas
<www.geminisistemas.com.br>
Juiz de Fora - Minas Gerais
=================================
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
