Fórum INSERIR ARQUIVO JPG EM TABELA PARADOX #171051

[b:50a034c3ba]uses [/b:50a034c3ba]jpeg

[b:50a034c3ba]var[/b:50a034c3ba]
MFoto : TPicture;
BMP ; TBitmap;
JPG : TJpegImage;

...

[b:50a034c3ba]try[/b:50a034c3ba]
Mfoto := TPicture.Create;
JPG : TJPEGImage.Crete;
BMP : TBItmap.Create;
Image1.visible := true;
if OpenPictureDialog1.Execute then
[b:50a034c3ba]begin [/b:50a034c3ba]
Mfoto.LoadFromFile(OpenPictureDialog1.FileName);
if (extractfileex(OpenPictureDialog1.FileName) = ´.jpeg´) or (extractfileex(OpenPictureDialog1.FileName) = ´.jpg´) then
[b:50a034c3ba]begin[/b:50a034c3ba]
JPG.Picture.Assign(Mfoto);
BMP.Assign(JPG);
[b:50a034c3ba]end; [/b:50a034c3ba]
Mfoto.LoadFromFile(OpenPictureDialog1.FileName);
[b:50a034c3ba]if[/b:50a034c3ba] (extractfileex(OpenPictureDialog1.FileName) = ´.bmp´) [b:50a034c3ba]then[/b:50a034c3ba][b:50a034c3ba]begin[/b:50a034c3ba]
BMP.Assign(Mfoto);
[b:50a034c3ba]end;
end;[/b:50a034c3ba]

dmtabela.Tbfoto.append;
dmtabela.Tbfoto.fieldbyname(´Foto´).Assign(BMP);
dmtabela.Tbfoto.post;
[b:50a034c3ba]finally[/b:50a034c3ba]
MFoto.Free;
BMP.Free;
JPG.Free;
[b:50a034c3ba]end;[/b:50a034c3ba]......