O exemplo neste artigo descreve como o delphi implementa a conversão de gráficos no formato BMP em gráficos no formato JPG. Compartilhe com todos para sua referência. O método de implementação específico é o seguinte:
Copie o código do código da seguinte forma:
procedimento ConvertBMPtoJPG(SFileName,DFileName:string);
Var
J:TJpegImage;
I:TBitmap;
S,D:Corda;
começar
s:=SFNomeDoArquivo;
d:=DFNomeArquivo;
J:=TJpegImage.Create;
I:=TBitmap.Create;
I.LoadFromFile(s);
J.Atribuir(I);
I.Livre;
d:=alterararquivoext(d,'.jpg');
J.SaveToFile(d);
Mensagens de processo de aplicação;
J.Livre;
fim;
Espero que este artigo seja útil para a programação Delphi de todos.