INSERIR ARQUIVO JPG EM TABELA PARADOX

Delphi

23/07/2003

Estou usando a rotina abaixo para gravar uma figura jpg emuma tabela paradox e esta dando erro; alguém poderia me ajudar no que esta errado.

uses jpeg

Mfoto := TBitmap.Create;
Image1.visible := true;
if OpenPictureDialog1.Execute then
begin
Mfoto.LoadFromFile(OpenPictureDialog1.FileName);
Image1.Picture.Assign(Mfoto);
end;

dmtabela.Tbfoto.append;
dmtabela.Tbfoto.fieldbyname(´Foto´).Assign(Mfoto);
dmtabela.Tbfoto.post;


sds[]

eugênio


José Ramos

José Ramos

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

23/07/2003

[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]......


GOSTEI 0
POSTAR