|
ｿｽ@ｿｽｿｽDLLｿｽﾌ会ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽﾉは？ｿｽHｿｽH
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽSｿｽｿｽA 2005/03/17(ｿｽｿｽ) 14:09:19
http://hp.vector.co.jp/authors/VA009712/take/delphi/kabesys.htm#dlluse
ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄ、DLLｿｽ動的ｿｽCｿｽｿｽｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽﾅ鯉ｿｽﾉ、FreeLibrary()ｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAFreeLibraryｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ抵ｿｽｿｽOｿｽﾜでは趣ｿｽｿｽsｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽﾄでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽﾜゑｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎ、FreeLibraryｿｽｿｽｿｽｿｽsｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽBDLLｿｽﾌ難ｿｽｿｽIｿｽCｿｽｿｽｿｽ|ｿｽ[ｿｽgｿｽﾍ擾ｿｽｿｽﾟてなのでよくｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2005/03/17(ｿｽｿｽ) 14:44:19
ｿｽ@ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾇのようｿｽﾉ記ｿｽｿｽｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄ、ｿｽﾇのようｿｽﾈコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎ難ｿｽｿｽｿｽｿｽ謔､ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽﾍ趣ｿｽｿｽﾓのソｿｽ[ｿｽXｿｽｿｽLｿｽqｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽ 2005/03/17(ｿｽｿｽ) 16:33:36
FreeLibraryｿｽﾌ会ｿｽｿｽﾉソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽﾜで趣ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽA
FreeLibraryｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽけｿｽﾅはなゑｿｽｿｽAFreeLibraryｿｽﾈ前ｿｽﾌソｿｽ[ｿｽXｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽBww
DLLｿｽﾌ関撰ｿｽｿｽﾄび出ｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽPCharｿｽ^ｿｽﾈのに、ｿｽｿｽｿｽﾌまま包ｿｽｿｽｿｽｿｽｿｽｿｽ''ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽDｿｽDｿｽDｿｽD
ｿｽﾍゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽXｿｽ}ｿｽ¥
ｿｽｿｽ 2005/03/17(ｿｽｿｽ) 16:39:11
ｿｽQｿｽlｿｽﾜでゑｿｽ
ｿｽﾃ的ｿｽCｿｽｿｽｿｽ|ｿｽ[ｿｽgｿｽﾌ場合ｿｽﾍ、ｿｽﾇみ搾ｿｽｿｽﾝ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾌゑｿｽ
ｿｽﾈにゑｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽIｿｽﾌ場合ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽﾉは鯉ｿｽｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽIｿｽCｿｽｿｽｿｽ|ｿｽ[ｿｽgｿｽﾅゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽﾅ ｿｽﾇみ出ｿｽｿｽｿｽ鼾ｿｽﾍ、
ｿｽｿｽｿｽｿｽｿｽﾌ場合ｿｽﾍ、ｿｽKｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
hLibrary:=LoadLibrary('example.dll'); //DLLｿｽｿｽwｿｽｿｽ
if hLibrary<>0 then
try
ｿｽBｿｽBｿｽBｿｽｿｽｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽ
finally FreeLibrary(hLibrary);
end;
ｿｽｿｽｿｽｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾌどゑｿｽｿｽｿｽｿｽﾅ読み搾ｿｽｿｽｿｽｿｽ
ｿｽﾇゑｿｽｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽかｿｽｿｽﾈゑｿｽｿｽ鼾ｿｽｿｽ
DLLｿｽﾌ保托ｿｽｿｽpｿｽﾏ撰ｿｽｿｽｿｽpｿｽﾓゑｿｽｿｽｿｽ
formｿｽ@createｿｽｿｽｿｽｿｽ 0ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾇゑｿｽｿｽｿｽｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 0ｿｽﾉ設定しｿｽｿｽ
destoryｿｽｿｽｿｽﾉ ｿｽﾇみ搾ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽ
ｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽﾄ ｿｽｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽｿｽﾎ会ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾅゑｿｽ
ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽNｿｽｿｽｿｽ閧ｻｿｽｿｽｿｽﾈとゑｿｽｿｽｿｽﾅゑｿｽ
tryｿｽ¥ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽ
ｿｽｿｽｿｽSｿｽｿｽA 2005/03/17(ｿｽｿｽ) 17:11:35
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾏソｿｽ[ｿｽXｿｽKｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽﾋ、ｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾉｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽAｿｽAｿｽAｿｽiｿｽXｿｽ‾ｿｽ}ｿｽZｿｽｿｽｿｽADLLｿｽｿｽｿｽﾄどゑｿｽｿｽlｿｽｿｽnｿｽｿｽｿｽﾄゑｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾌで、ｿｽAｿｽAｿｽj
-----DLLｿｽﾌソｿｽ[ｿｽX-----
function Load_ICONImage(const FileName: PChar; p: Pointer):boolean; var
ico : TICON;
begin
ico := TIcon.Create;
try
ico.LoadFromFile(FileName);
TBitmap(p).Width := GetSystemMetrics(SM_CXICON);
TBitmap(p).Height := GetSystemMetrics(SM_CYICON);
DrawIconEx(TBitmap(p).Canvas.Handle,0,0,ico.Handle,0,0,0,0,3);
result := true;
finally
ico.Free;
end;
end;
//ｿｽｿｽｿｽｿｽﾈようｿｽﾈのゑｿｽAｿｽｿｽｿｽｿｽPNGｿｽｿｽJpegｿｽｿｽGifｿｽﾅゑｿｽｿｽｿｽﾄまゑｿｽｿｽB
exports
Load_ICONImage, Load_JPEGImage, Load_BITMAPImage, Load_PNGImage, Load_GIFImage;
begin
end.
ｿｽﾅ、ｿｽｿｽｿｽsｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽ
procedure TMain.OpenPictureFile(FileName : string);
type
TLoad_JPEGImage = function(const FileName: PChar; p: Pointer):boolean;
TLoad_PNGImage = function(const FileName: PChar; p: Pointer):boolean;
TLoad_GIFImage = function(const FileName: PChar; p: Pointer):boolean;
TLoad_ICONImage = function(const FileName: PChar; p: Pointer):boolean;
var
hLoadLib: THandle;
Load_JPEGImage: TLoad_JPEGImage;
Load_PNGImage : TLoad_PNGImage;
Load_GIFImage : TLoad_GIFImage;
Load_ICONImage: TLoad_ICONImage;
ext : string ;
bmp : TBitmap;
begin
ext := AnsiUpperCase(ExtractFileExt(FileName));
hLoadLib := LoadLibrary('LoadPicture.dll');
if hLoadLib = 0 then
begin
MessageBox(Handle,'DLLｿｽｿｽｿｽﾈゑｿｽｿｽ`','Error',MB_OK or MB_ICONERROR);
Exit;
end;
bmp := TBitmap.Create;
try
if ext = '.BMP' then
begin
bmp.LoadFromFile(FileName);
end;
if (ext = '.JPG') or (ext = '.JPEG') then
begin
@Load_JPEGImage := GetProcAddress(hLoadLib,'Load_JPEGImage'); //ｿｽﾖ撰ｿｽｿｽｿｽCｿｽｿｽｿｽ|ｿｽ[ｿｽg
if @Load_JPEGImage <> nil then //ｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
begin
Load_JPEGImage(PChar(FileName),Pointer(bmp));
end;
end;
if ext = '.PNG' then
begin
@Load_PNGImage := GetProcAddress(hLoadLib,'Load_PNGImage');
if @Load_PNGImage <> nil then
begin
Load_PNGImage(PChar(FileName),Pointer(bmp));
end;
end;
if ext = '.GIF' then
begin
@Load_GIFImage := GetProcAddress(hLoadLib,'Load_GIFImage');
if @Load_GIFImage <> nil then
begin
Load_GIFImage(PChar(FileName),Pointer(bmp));
end;
end;
if ext = '.ICO' then
begin
@Load_ICONImage := GetProcAddress(hLoadLib,'Load_ICONImage');
if @Load_ICONImage <> nil then
begin
Load_ICONImage(PChar(FileName),Pointer(bmp));
end;
end;
Image1.Picture.Assign(bmp);
finally
bmp.Free;
FreeLibrary(hLoadLib);
ShowMessage('Freeｿｽｿｽｿｽ黷ｽｿｽH');
end;
end;
ｿｽﾈ奇ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾆ、bmpｿｽﾉ画像ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ返ゑｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾈ〜ｿｽﾆゑｿｽｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾄみゑｿｽｿｽけｿｽﾅゑｿｽｿｽBｿｽﾅ、ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾆ、finallyｿｽﾟ最鯉ｿｽｿｽShowMessage()ｿｽﾍ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽOｿｽﾉ固まゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾈみに、tryｿｽ`finallyｿｽﾍ、ｿｽｿｽｿｽｿｽCreateｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽgｿｽｿｽｿｽﾆゑｿｽｿｽﾍ必ｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽBｿｽﾅ、ｿｽ‾ｿｽﾜゑｿｽｿｽﾄまゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽ 2005/03/17(ｿｽｿｽ) 17:23:39
finally
bmp.Free;
FreeLibrary(hLoadLib);
ｿｽｿｽ
finally
bmp.Free;
end;
finally
FreeLibrary(hLoadLib);
end;
ｿｽﾊ々ｿｽﾉゑｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽADLLｿｽﾌ包ｿｽｿｽｿｽ
export; ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽH
function Load_ICONImage(const FileName: PChar; p: Pointer):boolean; var
ico : TICON;ｿｽ@export;
ｿｽﾝゑｿｽｿｽｿｽｿｽﾉ？
ｿｽｿｽｿｽSｿｽｿｽA 2005/03/17(ｿｽｿｽ) 17:43:56
ｿｽｿｽﾉ、
hLoadLib := LoadLibrary('LoadPicture.dll');
try
bmp := TBitmap.Create;
try
ｿｽ@ｿｽ@ｿｽ`ｿｽ`
finally
bmp.free;
end;
finally
FreeLibrary(hLoadLib);
end;
ｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾏ会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
function Load_ICONImage(const FileName: PChar; p: Pointer):boolean; export;
var
ico : TICON;ｿｽ@
begin
ｿｽEｿｽEｿｽE
end;
ｿｽﾆゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾏ会ｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
