|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
DLLｿｽｿｽEXEｿｽﾆでクｿｽｿｽｿｽXｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽｿｽｿｽLｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽｿｽｿｽXｿｽｿｽ 2009/08/18(ｿｽｿｽ) 16:30:44
ｿｽｿｽｿｽしｿｽｿｽDLLｿｽｿｽEXEｿｽﾅ使ｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ(ｿｽｿｽｿｽｿｽDelphi2007)ｿｽB
DLLｿｽｿｽvarｿｽｿｽﾅクｿｽｿｽｿｽXｿｽｿｽ骭ｾｿｽｿｽｿｽADLLｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾄ使ｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽA
ｿｽｿｽｿｽﾌクｿｽｿｽｿｽXｿｽｿｽｿｽpublicｿｽﾉ宣言ｿｽｿｽｿｽｿｽｿｽﾏ撰ｿｽｿｽｿｽEXEｿｽｿｽｿｽｿｽｿｽｿｽQｿｽﾆゑｿｽｿｽﾈゑｿｽｿｽﾄはなゑｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾏ撰ｿｽｿｽﾌ値ｿｽｿｽPｿｽﾂ１ｿｽﾂｿｽｿｽ^ｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽDLLｿｽﾉ設ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
DLLｿｽｿｽEXEｿｽﾆでクｿｽｿｽｿｽXｿｽｿｽｿｽｿｽLｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾅゑｿｽｿｽｿｽｿｽ轤ｲｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
-----------------------------------------------
[ｿｽﾈ会ｿｽDLLｿｽﾌソｿｽ[ｿｽXｿｽﾉなゑｿｽﾜゑｿｽｿｽiｿｽ齦費ｿｽj]
libraryｿｽ@TestUtils;
ｿｽiｿｽﾈ暦ｿｽｿｽj;
var
ｿｽ@myClass:TMyClass;ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@//<--ｿｽｿｽｿｽﾌクｿｽｿｽｿｽXｿｽｿｽEXEｿｽｿｽｿｽｿｽQｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ
procedureｿｽ@Initialize;ｿｽ@stdcall;
begin
ｿｽ@myClassｿｽ@:=ｿｽ@TMyClass.Create;
end;
procedureｿｽ@Terminate;ｿｽ@stdcall;
begin
ｿｽ@myClass.Free;
end;
procedureｿｽ@Func1;ｿｽ@stdcall;
begin
ｿｽ@//ｿｽ@myClassｿｽｿｽgｿｽpｿｽｿｽｿｽﾄ色ｿｽXｿｽﾆ擾ｿｽｿｽｿｽ
end;
//ｿｽ@ｿｽｿｽｿｽﾌ托ｿｽｿｽﾌ関撰ｿｽｿｽﾅゑｿｽmyClassｿｽｿｽgｿｽp
exports
ｿｽ@Initialize,
ｿｽ@Terminate,
ｿｽ@Func1;
begin
end.
ｿｽｿｽｿｽXｿｽｿｽ 2009/08/19(ｿｽｿｽ) 16:10:46
EXEｿｽｿｽｿｽﾅクｿｽｿｽｿｽX(myClass)ｿｽｿｽ骭ｾｿｽｿｽｿｽADLLｿｽｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾌポｿｽCｿｽｿｽｿｽ^ｿｽｿｽmyClassｿｽﾉ受けて使ｿｽpｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽGｿｽｿｽｿｽ[ｿｽﾍ起ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾈ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄ托ｿｽｿｽvｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
-----------------------------------------------
[ｿｽﾈ会ｿｽDLLｿｽﾌソｿｽ[ｿｽXｿｽﾉなゑｿｽﾜゑｿｽｿｽiｿｽ齦費ｿｽj]
var
ｿｽ@myClass:ｿｽ@TMyClass
functionｿｽ@Initialize:Pointer;ｿｽ@stdcall;
begin
ｿｽ@myClassｿｽ@:=ｿｽ@TMyClass.Create;
ｿｽ@Result:=myClass;
end;
-----------------------------------------------
[ｿｽﾈ会ｿｽEXEｿｽﾌソｿｽ[ｿｽXｿｽﾉなゑｿｽﾜゑｿｽｿｽiｿｽ齦費ｿｽj]
procedureｿｽ@TForm1.Button1Click(Sender:ｿｽ@TObject);
var
ｿｽ@myClass:ｿｽ@TMyClass
begin
ｿｽ@(ｿｽﾈ暦ｿｽ)
ｿｽ@
ｿｽ@myClassｿｽ@:=ｿｽ@Initialize();
ｿｽ@
ｿｽ@//ｿｽ@ｿｽﾈ降ｿｽAmyClassｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽiｿｽlｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽj
end;
ｿｽQｿｽl 2009/08/20(ｿｽｿｽ) 15:29:05
ｿｽQｿｽlｿｽﾉなるかｿｽﾈ？
http://leed.issp.u-tokyo.ac.jp/‾takeuchi/delphi/browse.cgi?index=077472
ｿｽｿｽｿｽXｿｽｿｽ 2009/08/20(ｿｽｿｽ) 15:45:45
ｿｽcｿｽkｿｽkｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾟようｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽiｿｽdｿｽwｿｽdｿｽﾉ全ｿｽﾄ撰ｿｽｿｽ闕橸ｿｽﾝまゑｿｽｿｽj
ｿｽ繪滂ｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
