diff options
author | Kirill Volinsky <mataes2007@gmail.com> | 2014-06-12 17:49:53 +0000 |
---|---|---|
committer | Kirill Volinsky <mataes2007@gmail.com> | 2014-06-12 17:49:53 +0000 |
commit | 7de38a08b97e0554e318b8c25806cef5d47259e6 (patch) | |
tree | 2400708e16b437245da88623046e96fb833e23b9 /plugins/ExternalAPI/delphi/imgdecoder.pas | |
parent | 1b88f240b94fc04aa11ef352b720fda741c0ebc6 (diff) |
headers of not adopted plugins moved to !Deprecated
git-svn-id: http://svn.miranda-ng.org/main/trunk@9438 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/ExternalAPI/delphi/imgdecoder.pas')
-rw-r--r-- | plugins/ExternalAPI/delphi/imgdecoder.pas | 114 |
1 files changed, 0 insertions, 114 deletions
diff --git a/plugins/ExternalAPI/delphi/imgdecoder.pas b/plugins/ExternalAPI/delphi/imgdecoder.pas deleted file mode 100644 index eea6ec2610..0000000000 --- a/plugins/ExternalAPI/delphi/imgdecoder.pas +++ /dev/null @@ -1,114 +0,0 @@ -unit ImgDecoder;
-
-interface
-uses Windows;
-
-function IsImgDecoderAvailable:boolean;
-function ImgNewDecoder(var pDecoder:pointer):dword;
-function ImgDeleteDecoder(pDecoder:pointer):dword;
-function ImgNewDIBFromFile(pDecoder:pointer;Filename:PAnsiChar;var pImg:pointer):dword;
-function ImgDeleteDIBSection(pImg:pointer):dword;
-function ImgGetHandle(pImg:pointer;var pBitmap:HBITMAP;var ppDIBBits:pointer):dword;
-
-implementation
-
-const
- hModule:THANDLE=0;
-type
- tImgNewDecoder =function(var pDecoder:pointer):dword; stdcall;
- tImgDeleteDecoder =function(pDecoder:pointer):dword; stdcall;
- tImgNewDIBFromFile =function(pDecoder:pointer;Filename:PAnsiChar;var pImg):dword; stdcall;
- tImgDeleteDIBSection=function(pImg:pointer):dword; stdcall;
- tImgGetHandle =function(pImg:pointer;var pBitmap:HBITMAP;var ppDIBBits:pointer):dword; stdcall;
-
-const
- pImgNewDecoder :tImgNewDecoder = nil;
- pImgDeleteDecoder :tImgDeleteDecoder = nil;
- pImgNewDIBFromFile :tImgNewDIBFromFile = nil;
- pImgDeleteDIBSection:tImgDeleteDIBSection = nil;
- pImgGetHandle :tImgGetHandle = nil;
-
-function IsImgDecoderAvailable:boolean;
-begin
- result:=hModule<>0;
-end;
-
-function ImgNewDecoder(var pDecoder:pointer):dword;
-begin
- if @pImgNewDecoder<>nil then
- result:=pImgNewDecoder(pDecoder)
- else
- result:=0;
-end;
-
-function ImgDeleteDecoder(pDecoder:pointer):dword;
-begin
- if @pImgDeleteDecoder<>nil then
- result:=pImgDeleteDecoder(pDecoder)
- else
- result:=0;
-end;
-
-function ImgNewDIBFromFile(pDecoder:pointer;Filename:PAnsiChar;var pImg:pointer):dword;
-begin
- if @pImgNewDecoder<>nil then
- result:=pImgNewDIBFromFile(pDecoder,Filename,pImg)
- else
- result:=0;
-end;
-
-function ImgDeleteDIBSection(pImg:pointer):dword;
-begin
- if @pImgNewDecoder<>nil then
- result:=pImgDeleteDIBSection(pImg)
- else
- result:=0;
-end;
-
-function ImgGetHandle(pImg:pointer;var pBitmap:HBITMAP;var ppDIBBits:pointer):dword;
-begin
- if @pImgGetHandle<>nil then
- result:=pImgGetHandle(pImg,pBitmap,ppDIBBits)
- else
- result:=0;
-end;
-
-initialization
- hModule:=LoadLibrary('imgdecoder.dll');
- if hModule=0 then
- hModule:=LoadLibrary('plugins\imgdecoder.dll');
-
- if hModule<>0 then
- begin
- pImgNewDecoder :=GetProcAddress(hModule, 'ImgNewDecoder');
- pImgDeleteDecoder :=GetProcAddress(hModule, 'ImgDeleteDecoder');
- pImgNewDIBFromFile :=GetProcAddress(hModule, 'ImgNewDIBFromFile');
- pImgDeleteDIBSection:=GetProcAddress(hModule, 'ImgDeleteDIBSection');
- pImgGetHandle :=GetProcAddress(hModule, 'ImgGetHandle');
- end;
-
-finalization
- if hModule<>0 then
- FreeLibrary(hModule);
-end.
-{ Sample of using
-
-var
- pDecoder:pointer;
- pImg:pointer;
- bitmap:HBITMAP;
- pBits:pointer;
-begin
- if IsImgDecoderAvailable then
- begin
- ImgNewDecoder(pDecoder);
- if ImgNewDIBFromFile(pDecoder,PAnsiChar(ParamStr(1)),pImg)<>0 then
- begin
- ImgGetHandle(pImg,bitmap,pBits);
-// action
- ImgDeleteDIBSection(pImg);
- end;
- ImgDeleteDecoder(pDecoder);
- end;
-end.
-}
|