Облегченный вариант от Snowy для конвертации BMP->PNG
| Код |
unit PngGDIP;
interface
uses Windows;
const WINGDIPDLL = 'gdiplus.dll';
type
Status = (
Ok,
GenericError,
InvalidParameter,
OutOfMemory,
ObjectBusy,
InsufficientBuffer,
NotImplemented,
Win32Error,
WrongState,
Aborted,
FileNotFound,
ValueOverflow,
AccessDenied,
UnknownImageFormat,
FontFamilyNotFound,
FontStyleNotFound,
NotTrueTypeFont,
UnsupportedGdiplusVersion,
GdiplusNotInitialized,
PropertyNotFound,
PropertyNotSupported
);
TStatus = Status;
GpStatus = TStatus;
ImageCodecInfo = packed record
Clsid : TGUID;
FormatID : TGUID;
CodecName : PWCHAR;
DllName : PWCHAR;
FormatDescription : PWCHAR;
FilenameExtension : PWCHAR;
MimeType : PWCHAR;
Flags : DWORD;
Version : DWORD;
SigCount : DWORD;
SigSize : DWORD;
SigPattern : PBYTE;
SigMask : PBYTE;
end;
TImageCodecInfo = ImageCodecInfo;
PImageCodecInfo = ^TImageCodecInfo;
GpImage = Pointer;
DebugEventLevel = (
DebugEventLevelFatal,
DebugEventLevelWarning
);
DebugEventProc = procedure(level: DebugEventLevel; message: PChar); stdcall;
GdiplusStartupInput = packed record
GdiplusVersion : Cardinal; // Must be 1
DebugEventCallback : DebugEventProc; // Ignored on free builds
SuppressBackgroundThread: BOOL; // FALSE unless you're prepared to call
// the hook/unhook functions properly
SuppressExternalCodecs : BOOL; // FALSE unless you want GDI+ only to use
end; // its internal image codecs.
TGdiplusStartupInput = GdiplusStartupInput;
PGdiplusStartupInput = ^TGdiplusStartupInput;
NotificationHookProc = function(out token: ULONG): Status; stdcall;
NotificationUnhookProc = procedure(token: ULONG); stdcall;
GdiplusStartupOutput = packed record
NotificationHook : NotificationHookProc;
NotificationUnhook: NotificationUnhookProc;
end;
TGdiplusStartupOutput = GdiplusStartupOutput;
PGdiplusStartupOutput = ^TGdiplusStartupOutput;
EncoderParameterValueType = Integer;
TEncoderParameterValueType = EncoderParameterValueType;
EncoderParameter = packed record
Guid : TGUID; // GUID of the parameter
NumberOfValues : ULONG; // Number of the parameter values
Type_ : ULONG; // Value type, like ValueTypeLONG etc.
Value : Pointer; // A pointer to the parameter values
end;
TEncoderParameter = EncoderParameter;
PEncoderParameter = ^TEncoderParameter;
EncoderParameters = packed record
Count : UINT; // Number of parameters in this structure
Parameter : array[0..0] of TEncoderParameter; // Parameter values
end;
TEncoderParameters = EncoderParameters;
PEncoderParameters = ^TEncoderParameters;
function GdipGetImageEncodersSize(out numEncoders: UINT; out size: UINT): GPSTATUS; stdcall;
function GdipGetImageEncoders(numEncoders: UINT; size: UINT; encoders: PIMAGECODECINFO): GPSTATUS; stdcall;
function GdiplusStartup(out token: ULONG; input: PGdiplusStartupInput; output: PGdiplusStartupOutput): Status; stdcall;
procedure GdiplusShutdown(token: ULONG); stdcall;
function GdipLoadImageFromFile(filename: PWCHAR; out image: GPIMAGE): GPSTATUS; stdcall;
function GdipSaveImageToFile(image: GPIMAGE; filename: PWCHAR; clsidEncoder: PGUID; encoderParams: PENCODERPARAMETERS): GPSTATUS; stdcall;
function GetImageEncodersSize(out numEncoders, size: UINT): TStatus;
function GetImageEncoders(numEncoders, size: UINT; encoders: PImageCodecInfo): TStatus;
function GetEncoderClsid(format: String; out pClsid: TGUID): integer;
implementation
function GdipGetImageEncodersSize; external WINGDIPDLL name 'GdipGetImageEncodersSize';
function GdipGetImageEncoders; external WINGDIPDLL name 'GdipGetImageEncoders';
function GdiplusStartup; external WINGDIPDLL name 'GdiplusStartup';
procedure GdiplusShutdown; external WINGDIPDLL name 'GdiplusShutdown';
function GdipLoadImageFromFile; external WINGDIPDLL name 'GdipLoadImageFromFile';
function GdipSaveImageToFile; external WINGDIPDLL name 'GdipSaveImageToFile';
function GetImageEncodersSize(out numEncoders, size: UINT): TStatus;
begin
result := GdipGetImageEncodersSize(numEncoders, size);
end;
function GetImageEncoders(numEncoders, size: UINT; encoders: PImageCodecInfo): TStatus;
begin
result := GdipGetImageEncoders(numEncoders, size, encoders);
end;
function GetEncoderClsid(format: String; out pClsid: TGUID): integer;
var
num, size, j: UINT;
ImageCodecInfo: PImageCodecInfo;
Type
ArrIMgInf = array of TImageCodecInfo;
begin
num := 0; // number of image encoders
size := 0; // size of the image encoder array in bytes
result := -1;
GetImageEncodersSize(num, size);
if (size = 0) then exit;
GetMem(ImageCodecInfo, size);
if(ImageCodecInfo = nil) then exit;
GetImageEncoders(num, size, ImageCodecInfo);
for j := 0 to num - 1 do
begin
if( ArrIMgInf(ImageCodecInfo)[j].MimeType = format) then
begin
pClsid := ArrIMgInf(ImageCodecInfo)[j].Clsid;
result := j; // Success
end;
end;
FreeMem(ImageCodecInfo, size);
end;
end.
|
И пример использования.
| Код |
Program shot;
uses
Windows, PngGDIP in 'PngGDIP.pas';
var
token: dword;
input: TGdiplusStartupInput;
image: GPIMAGE;
Clsid: TGUID;
begin
image := nil;
FillChar(input, SizeOf(input), 0);
input.GdiplusVersion := 1;
GdiplusStartup(token, @input, nil);
GdipLoadImageFromFile('1.bmp', image);
GetEncoderClsid('image/png', Clsid);
GdipSaveImageToFile(image, '2.png', @ClsId, nil);
GdiplusShutdown(token);
end.
|
|