Como inserir um imagem JPEG num Banco Access

[Geomar Canjundo]

Olá pessoal

Akguém pode ajudar-me em como inserir uma imagem JPG no Access.

Estava usando um código que por acaso estava funcionado legal, mas de repente passou a enviar uma mensagem de access violation.

O código que estou usando é o seguinte:

var

jpg: TJPEGImage;

begin

OpenPictureDialog1.Execute;

If OpenPictureDialog1.Filename>' ' then

begin

Jpg:=TJEGIMAGE.Create;

Jpg:=LoadformFile(OpenPictureDialog1.Filename);

ClipBoard.Assign(Jpg);

Foto.Picture.Assign(Jpg); // foto - nome do Objeto DBImage

Foto.PasteFromClipBoard;

Jpg.free;

else

Abort;

[ZueRa]

Olá amigo, bom dia.

Veja se isto irá lhe ajudar:

http://forum.imasters.uol.com.br/index.php?showtopic=338329

http://www.forumweb.com.br/foruns/index.php?showtopic=38783

http://forum.devmedia.com.br/viewtopic.php?p=285383

abraço!

[Pirambu!]

Geomar Canjundo, cara eu faço assim e da certo, atensão para os texto en negrito

[color="#FF0000"][b]Adiciona a USES: jpeg, clipbrd;[/b][/color]
......................................
procedure TFCad_Clientes.BitBtn13Click(Sender: TObject);
var
jpg: Tjpegimage;
begin
dados.Tabela1.Edit;
[b][color="#FF0000"]if OpenPictureDialog2.Execute then[/color][/b]
  begin
  jpg:= Tjpegimage.Create;
  jpg.LoadFromFile(openpictureDialog2.FileName);
  Clipboard.Assign(jpg);
  Dbimage2.PasteFromClipboard;
  jpg.Free;
  end;
dados.Tabela1.Post;
end;