Salvar arquivos em campo BLOB dando erro

Delphi

31/10/2005

Estou com problemas para salvar ´arquivos de qualquer tipo´ em um campo do tipo ´blob sub_type 0´
O problema é o seguinte, coloquei um OpenPictureDialog no form, e quando eu dou dois cliques no componente DbImage esse OpenPicture se abre e eu escolho a imagem e pressiono Ok até ai tudo bem, mas após pressionado OK me aparece uma mensagem de erro dizendo o seguinte: Access Violation Adress 00000000 read of adress.

O que pode estar acontecendo ou o que pode ser feito para se resolver esse meu problema.
Vejam o código abaixo:

if OpenDialog1.Execute then
begin
DmDocEnviado.ClientDataSetDocEnviadoENV_ARQUIVO.LoadFromFile(OpenDialog1.FileName);
DmDocEnviado.ClientDataSetDocEnviadoENV_FILENAME.AsString := ExtractFileName(OpenDialog1.FileName);
end;


Sabrinavolkmer

Sabrinavolkmer

Curtidas 0
POSTAR