Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Из bmp в jpg

Автор: Vardes 21.04.2008 4:00

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 21.04.2008 12:08

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

Автор: hardcase 21.04.2008 20:53

JPEG написан на C++ и слинкован в dcu модуль.
Его исходники нужно искать в C++ Builder'е.

Автор: Vardes 22.04.2008 1:29

А может у кого есть исходники по конвертации из JPEG в BMP и обратно?

Автор: andriano 22.04.2008 10:21

Я думаю, если как следует поискать в И-нете, найти можно (вряд ли на русскоязычных ресурсах), только зачем?
Для большинства практически важных случаев вполне хватает использования dll.

Автор: Vardes 22.04.2008 15:19

Цитата(andriano @ 22.04.2008 7:21) *

Я думаю, если как следует поискать в И-нете, найти можно (вряд ли на русскоязычных ресурсах), только зачем?
Для большинства практически важных случаев вполне хватает использования dll.

Dll может конечно и хватает...только вот мне курсовик надо писать, вряд ли препод будет доволен пользованием dll,ему надо весь алгоритм реализовать...

Автор: andriano 23.04.2008 0:44

Это надолго. sad.gif

Достаточно серьезное задание. Это какая специальность?

Автор: Vardes 23.04.2008 1:43

Цитата(andriano @ 22.04.2008 21:44) *

Это надолго. sad.gif

Достаточно серьезное задание. Это какая специальность?

"230105 Программное обеспечение вычислительной техники и автоматизированных систем"
Да....серьёзно, оно становится ещё более серьёзным, т.к. до 12 мая основную часть курсовика надо сдать....

Автор: andriano 23.04.2008 12:07

Ну, в принципе задание как раз по специальности, так что оно и не должно быть легким.

Автор: hardcase 24.04.2008 0:16

Тупо набрал в ФФ http://jpeg.org/

Автор: Vardes 11.05.2008 3:25

Опять вернусь у к теме...Разобрал полностью алгоритм кодирования Jpeg, я просто в шоке, около 8 этапов кодирования...Вообще для Delphi есть множество библиотек для работы с Jpeg, может кто подскажет, где мона взять исходники данной библиотеки??? НУ очень надо...

Автор: andriano 11.05.2008 11:12

Тебе уже ответили. Притом два человека сразу.
Предлагаешь пойти по второму кругу?

Автор: Vardes 11.05.2008 19:29

Мне исходники на Delphi нужны..., многие часы уже затратратил на поиск, а результата нет norespect.gif

Автор: andriano 11.05.2008 23:40

Исходники пишутся. Собственными руками. По крайней мере, этот процесс, в отличие от поиска, гарантирует результат через вполне обозримое время.