|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
Delphiｿｽﾅ搾ｿｽｿｽｿｽｿｽDLLｿｽｿｽACｿｽｿｽｿｽｿｽﾅ暦ｿｽｿｽpｿｽｿｽｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
maco 2006/06/29(ｿｽｿｽ) 15:05:37
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽ
Delphiｿｽﾅ開ｿｽｿｽｿｽｿｽｿｽｿｽDLLｿｽｿｽACｿｽﾅ開ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅ暦ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
C(VC++)ｿｽﾅは、ｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽDLLｿｽｿｽLIBｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾉ会ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆで、
DLLｿｽｿｽﾌ関撰ｿｽｿｽｿｽﾈ単ｿｽﾉ呼び出ｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽADelphiｿｽﾉゑｿｽLIBｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽALIBｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾅはなゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽﾜゑｿｽｿｽALIBｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ鼾ｿｽADelphiｿｽｿｽDLLｿｽｿｽCｿｽﾅどのようｿｽﾉ呼び出ｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ}ｿｽ}ｿｽｿｽ 2006/06/29(ｿｽｿｽ) 17:42:09
ｿｽｿｽｿｽｿｽｿｽしｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽmｿｽｿｽｿｽｿｽLIBｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽ成ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌは痛ゑｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽﾅゑｿｽCｿｽｿｽDll,Delphiｿｽﾅ暦ｿｽｿｽpｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
DelphiDll(Delphi7)
http://oto.chu.jp/kujira/text/delphi/dll.htm
libraryProject1;
uses
Windows;
{$R*.res}
functionMsgYesNo(Text:PChar;Title:PChar):BOOL;stdcall;
begin
Result:=(MessageBox(0,Text,Title,MB_YESNOorMB_ICONQUESTION)=IDYES);
end;
exports
MsgYesNo;
begin
end.
cexe(MicrosoftVisualC++.NET)
http://hp.vector.co.jp/authors/VA019517/howtodll.html
#include"stdafx.h"
#include
HINSTANCEhDll;
LONG(__stdcall*MsgYesNo)(PCHAR,PCHAR);
int_tmain(intargc,_TCHAR*argv[])
{
printf("hello");
hDll=::LoadLibraryEx("project1.dll",NULL,0);
if(!hDll){
return0;
}
MsgYesNo=(LONG(__stdcall*)(PCHAR,PCHAR))::GetProcAddress(hDll,"MsgYesNo");
if(!MsgYesNo){
::FreeLibrary(hDll);
return0;
}
boolb=MsgYesNo("test","test");
::FreeLibrary(hDll);
return0;
}
maco 2006/07/04(ｿｽｿｽ) 18:57:07
ｿｽ}ｿｽ}ｿｽさゑｿｽAｿｽﾔ信ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾆは異なゑｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾈ会ｿｽｿｽﾌ包ｿｽｿｽ@ｿｽｿｽ
LIBｿｽtｿｽ@ｿｽCｿｽｿｽ(ｿｽCｿｽｿｽｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽ)ｿｽｿｽ成ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽyｿｽCｿｽｿｽｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽﾌ作成ｿｽz
ｿｽ@ｿｽPｿｽDdefｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽpｿｽｿｽ
ｿｽ@ｿｽQｿｽDｿｽRｿｽ}ｿｽｿｽｿｽhｿｽvｿｽｿｽｿｽｿｽｿｽvｿｽgｿｽﾅ以会ｿｽｿｽｿｽｿｽｿｽs
ｿｽ@ｿｽ@ｿｽ@lib/def:"DEFｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ"/out:"LIBｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ"
ｿｽﾜゑｿｽｿｽｿｽLｿｽｿｽｿｽ@ｿｽﾅ作成ｿｽｿｽｿｽｿｽLIBｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾆで、DLLｿｽﾉ宣言ｿｽｿｽｿｽ黷ｽｿｽﾖ撰ｿｽｿｽ利用ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽDelphi7ｿｽﾅゑｿｽDLLｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽ
libraryMakeDll;
uses
ｿｽ@SysUtils,Classes;
var
ｿｽ@Input1,Input2:Integer;
{$R*.res}
procedureSetData(i1,i2:Integer);cdecl;
begin
ｿｽ@Input1:=i1;
ｿｽ@Input2:=i2;
end;
functionCalc:Integer;cdecl;
begin
ｿｽ@Inc(Input1,Input2);
ｿｽ@Result:=Input1;
end;
exports
ｿｽ@SetData,Calc;
begin
end.
ｿｽｿｽｿｽｿｽｿｽｿｽVC++6ｿｽﾅのソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽ
#include
externlongCalc(void);
externvoidSetData(long,long);
main()
{
ｿｽ@SetData(100,10);
ｿｽ@printf("Calc=%d¥n",Calc());
}
ｿｽｿｽｿｽｿｽｿｽｿｽdefｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽeｿｽｿｽｿｽｿｽｿｽｿｽ
LIBRARYMakeDLL
DESCRIPTION"DLLｿｽTｿｽｿｽｿｽvｿｽｿｽ"
EXPORTS
SetData=SetData
Calc=Calc
===VC++6ｿｽﾅの趣ｿｽｿｽsｿｽｿｽｿｽｿｽ===
>Calc=110
