Из bmp в jpg Опции

[Vardes]

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls;
 
type
TForm1 = class(TForm)
  Button1: TButton;
  Image1: TImage;
  procedure Button1Click(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
uses JPEG;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  JPEG: TJPEGImage;
  Bitmap: TBitmap;
begin
  JPEG := TJPEGImage.Create;
  Bitmap := TBitmap.Create;
  try
	Bitmap.LoadFromFile('C:\Program Files\Common Files\alarm.bmp');
	JPEG.Assign(Bitmap);
	Image1.Picture.Assign(JPEG);
  finally
	JPEG.Free;
	Bitmap.Free;
  end;
end;
 
end. 

Вверху приведена прога для конвертации изображения из bmp в jpeg, при использовании стандартных функций Delphi...
У меня такой вопрос...Как можно просмотреть исходники функций Delphi для конвертации из BMP в JPEG, а то курсавик писать и хорошо было бы обзавестись некой базой....

[andriano]

Исходники можно посмотреть обычным текстовым редактором.
Те исходники, что Borland считает, что могут быть полезны пользователям, находятся в папке source.
Насчет исходников jpeg-кодирования, написанных на Паскале, мне ничего не известно. Возможно, их и в природе не существует.