Fórum Erro ao tentar inserir arquivo JPEG #477526
29/04/2014
0
Boa tarde amigos estou tentando implementar um arquivo Jpeg no delphi no qual esta descrito abaixo
procedure TForm1.Image1DblClick(Sender: TObject);
var
jpg : TJPEG;
begin
inherited;
if OpenPictureDialog1.Execute then
BEGIN
jpg:= tjpegimage.create;
DM_FESTA.IBTbl_ProdutosFOTO.loadfromfile(OpenPictureDialog1.FileName);
jpg.loadfromfile(OpenPictureDialog1.FileName);
image1.Picture.Assign(JPG);
JPG.free;
DM_FESTA.IBTbl_Produtos.Edit;
mas ele gera esse erro:
[dcc32 Error] Unit1.pas(80): E2003 Undeclared identifier: 'TJPEG'
[dcc32 Error] Unit1.pas(85): E2003 Undeclared identifier: 'tjpegimage'
[dcc32 Error] Unit1.pas(85): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(86): E2003 Undeclared identifier: 'loadfromfile'
[dcc32 Error] Unit1.pas(87): E2066 Missing operator or semicolon
Alguem poderia me ajudar??
procedure TForm1.Image1DblClick(Sender: TObject);
var
jpg : TJPEG;
begin
inherited;
if OpenPictureDialog1.Execute then
BEGIN
jpg:= tjpegimage.create;
DM_FESTA.IBTbl_ProdutosFOTO.loadfromfile(OpenPictureDialog1.FileName);
jpg.loadfromfile(OpenPictureDialog1.FileName);
image1.Picture.Assign(JPG);
JPG.free;
DM_FESTA.IBTbl_Produtos.Edit;
mas ele gera esse erro:
[dcc32 Error] Unit1.pas(80): E2003 Undeclared identifier: 'TJPEG'
[dcc32 Error] Unit1.pas(85): E2003 Undeclared identifier: 'tjpegimage'
[dcc32 Error] Unit1.pas(85): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(86): E2003 Undeclared identifier: 'loadfromfile'
[dcc32 Error] Unit1.pas(87): E2066 Missing operator or semicolon
Alguem poderia me ajudar??
Flavio Oliveira
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)