[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;