[NumLock]

GdipGraphic - модуль для работы с изображениями BMP, JPEG, GIF, TIFF, PNG.

Класс: TGdipGraphic = class(TGraphic)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

public   property GpImage: GpImage read FGpImage;   property <b>ImageRawFormat</b>: TGUID read GetImageRawFormat;   constructor Create; override;   destructor Destroy; override;   procedure Assign(Source: TPersistent); override;   procedure <b>Draw</b>(ACanvas: TCanvas; const Rect: TRect); override;   procedure <b>LoadFromStream</b>(Stream: TStream); override;   procedure <b>SaveToStream</b>(Stream: TStream); override;   procedure <b>SaveToStreamEncoder</b>(Stream: TStream; clsidEncoder: TGUID);   procedure <b>SaveToFileEncoder</b>(Filename: String; clsidEncoder: TGUID);   procedure <b>LoadFromClipboardFormat</b>(AFormat: Word; AData: THandle;     APalette: HPALETTE); override;   procedure <b>SaveToClipboardFormat</b>(var AFormat: Word; var AData: THandle;     var APalette: HPALETTE); override;   procedure <b>LoadFromResource</b>(ResName: String); end;

Возможности:
-поддержка в TImage
-поддержка прозрачности
-чтение из файла, потока, ресурса (RT_RCDATA)
-сохранение в файл, поток в нужном формате (BMP, JPEG, GIF, TIFF, PNG)
-определение формата изображения
-отображение на TCanvas
-изменение размеров при отображении
-копирование в буфер обмена как CF_BITMAP
-вставка из буфера обмена CF_BITMAP

Константы кодировщика:

Код:

1 2 3 4 5

EncoderBMP: TGUID = '{557CF400-1A04-11D3-9A73-0000F81EF32E}'; EncoderJPEG: TGUID = '{557CF401-1A04-11D3-9A73-0000F81EF32E}'; EncoderGIF: TGUID = '{557CF402-1A04-11D3-9A73-0000F81EF32E}'; EncoderTIFF: TGUID = '{557CF405-1A04-11D3-9A73-0000F81EF32E}'; EncoderPNG: TGUID = '{557CF406-1A04-11D3-9A73-0000F81EF32E}';

Константы декодера:

Код:

1 2 3 4 5

DecoderBMP: TGUID = '{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}'; DecoderJPEG: TGUID = '{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}'; DecoderGIF: TGUID = '{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}'; DecoderTIFF: TGUID = '{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}'; DecoderPNG: TGUID = '{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}';

Скачать:
http://narod.ru/disk/64758205001.4db...aphic.rar.html

Демки:
http://narod.ru/disk/64756924001.a86...htest.rar.html
http://narod.ru/disk/64756916001.99d...cTest.rar.html

Пример кода:

Код:

1 2 3 4 5 6 7 8 9 10 11

uses   GdipGraphic,   var   GdipImage: TGdipGraphic; begin   GdipImage:=TGdipGraphic.Create;   GdipImage.LoadFromFile('Landscape.png');   GdipImage.SaveToFileEncoder('Landscape.tif', EncoderTIFF);   GdipImage.Free; end;

[angvelem]

Я подозреваю, это API-шный вариант, переделанный для всех под VCL, или, по-крайней мере, то из чего в последстви был сделан API вариант.

P.S. Если уж выкладывешь DCU-шку, то хотя бы делай и под другие версии Дельфи также. Мне оно в любом варианте не нужно (посмотрел и стёр) , но остальные не все пользуются 7 версией Дельфи.

[lmikle]

Интересно, но с исходником бы...
Готовые dcu не использую, т.к. у меня стоит измененный jpeg.dcu (и некоторые другие модули) со всеми вытекающими...

[NumLock]

префикс Gdip означает Windows GDI+

[angvelem]

Хороший ответ, главное ни к чему.

[NumLock]

это по поводу:

Я подозреваю, это API-шный вариант, переделанный для всех под VCL, или, по-крайней мере, то из чего в последстви был сделан API вариант.

чтобы в догадках не мучиться)))

[angvelem]

Какой я провидец , знал какой будет ответ. А про API вариант написал, думая что в своих проектах используешь такой вариант юнита. Тем более он несложный.

[NumLock]

для Delphi 2009 : http://narod.ru/disk/41180449001/Gdi...c2009.rar.html