PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

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??
Flavio Oliveira

Flavio Oliveira

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar