Foto em Delphi

[Tatinha 0]

Olá http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Estou tentando colocar foto em uma aplicação Delphi, usando o componente DbImagem, mas da um erro no codigo.

 

Alguém poderia me ajudar?

 

 

:mellow:

[kabessa 0]

cola o erro aeeeeeeeeee q fica mais facil

[Tatinha 0]

Esse é o codigo fonte:no evento onclick do botãoOpenDialog1.Execute; DMTransflexa.ClntDtStMotorista.Last; DMTransflexa.ClntDtStMotorista.Edit; DMTransflexa.ClntDtStMotorista.FieldByName('foto').AsString:=OpenDialog1.FileName; // DBImage1.Picture.LoadFromFile(OpenDialog1.FileName);no evento onactive do formulario: OpenDialog1.FileName:=DMTransflexa.ClntDtStMotorista.FieldByName('foto').AsString; //DBImage1.Picture.LoadFromFile(OpenDialog1.FileName);

[kabessa 0]

qual banco você esta usando??você soh quer salvar a imagem??

[kabessa 0]

se for em paradox um exemplo bom

 

http://www.codigolivre.com.br/abrefontes.p...id=10&catid=164

[Tatinha 0]

Estou usando o banco de dados MySql!!!!Quero guardar a foto no banco.

[jocelio 0]

Olá tente assim:troque a linha de código:DMTransflexa.ClntDtStMotorista.FieldByName('foto').AsString:=OpenDialog1.FileName;por:DMTransflexa.ClntDtStMotorista.FieldByName('foto').LoadFromFile(OpenDialog1.FileName);espero ter ajudado !!jocelio :]

[Dopi 0]

DMTransflexa.ClntDtStMotorista.FieldByName('foto').LoadFromFile(OpenDialog1.FileName);

Talvez seja necessário instruir ao TField que ele é um Blob....

TBlobField( DMTransflexa.ClntDtStMotorista.FieldByName('foto') ).LoadFromFile(OpenDialog1.FileName);

[Aroldo Zanela 0]

Colegas,

 

Com Firebird 1.5 + IBX, num sistema de gerenciamento eletrônico da documentação (GED) que fiz aqui para a empresa eu armazeno qualquer coisa (EXE, PDF, ZIP, JPG, BMP, etc) da seguinte forma:

 

(qCadastro.FieldByName('coluna_blob') as TBlobField).LoadFromFile(odDocumento.FileName);