|
ｿｽ@ｿｽｿｽ.NETｿｽﾉゑｿｽｿｽVCｿｽｿｽDLLｿｽﾖ構ｿｽｿｽｿｽﾌ配ｿｽｿｽｿｽｿｽｿｽｿｽｿｽnｿｽｿｽｿｽｿｽｿｽ@ｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽ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
ｿｽﾐゑｿｽｿｽｿｽｿｽｿｽｿｽ 2003/11/26(ｿｽｿｽ) 22:58:17
ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄ。
ｿｽuｿｽaｿｽAｿｽuｿｽbｿｽ{ｿｽ{ｿｽgｿｽｿｽｿｽnｿｽﾟて一ヶｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽB
ｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌは．ｿｽmｿｽdｿｽsｿｽﾅゑｿｽｿｽB
ｿｽuｿｽaｿｽｿｽｿｽｿｽuｿｽbｿｽﾌＤｿｽkｿｽkｿｽﾖ構ｿｽｿｽｿｽﾌ配ｿｽｿｽｿｽｿｽｿｽｿｽｿｽnｿｽｿｽｿｽA
ｿｽuｿｽbｿｽﾉてデｿｽ[ｿｽ^ｿｽﾌ取得ｿｽAｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾊの設抵ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽuｿｽaｿｽAｿｽuｿｽbｿｽﾌ６ｿｽDｿｽOｿｽﾈゑｿｽﾎ、
ｿｽrｿｽｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾎ構ｿｽｿｽｿｽﾌ配ｿｽｿｽｿｽlｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌは包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽDｿｽmｿｽdｿｽsｿｽﾅは、ｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽﾍ通ゑｿｽｿｽﾌの途ｿｽｿｽｿｽﾅ費ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈゑｿｽｿｽA
ｿｽuｿｽaｿｽｿｽUｿｽDｿｽOｿｽﾅ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾉ作成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽDｿｽmｿｽdｿｽsｿｽﾌＶｿｽbｿｽｿｽRｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽA
ｿｽrｿｽｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽnｿｽjｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽA
ｿｽﾇゑｿｽｿｽｿｽｿｽDｿｽmｿｽdｿｽsｿｽﾉなるたｿｽﾟにＶｿｽaｿｽﾆＶｿｽbｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ厄ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ}ｿｽjｿｽｿｽｿｽAｿｽｿｽｿｽﾈどゑｿｽｿｽｿｽｿｽﾆ、
ｿｽrｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽDｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽbｿｽnｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽgｿｽpｿｽｿｽｿｽ@ｿｽｿｽｿｽﾇみ趣ｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽﾉゑｿｽuｿｽaｿｽUｿｽDｿｽOｿｽﾌ茨ｿｽｿｽｿｽｿｽnｿｽｿｽｿｽｿｽｿｽﾌみのゑｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽﾎ、
ｿｽDｿｽmｿｽdｿｽsｿｽﾉゑｿｽｿｽ¥ｿｽｿｽｿｽﾌ配ｿｽｿｽﾌ茨ｿｽｿｽnｿｽｿｽｿｽｿｽｿｽﾉつゑｿｽｿｽﾄゑｿｽｿｽwｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈ会ｿｽｿｽﾌようｿｽﾈ構ｿｽｿｽｿｽﾌ配ｿｽｿｽｿｽｿｽｿｽｿｽｿｽnｿｽｿｽｿｽﾂゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽuｿｽaｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|
Private Structure EMPLOYEE
Dim Name As String
Dim Address As String
Dim Age As Short
End Structure
ｿｽuｿｽbｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|
typedef struct {
BSTR Name;
BSTR Address;
short Age;
} EMPLOYEE;
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2003/11/27(ｿｽｿｽ) 00:15:10
ｿｽｿｽｿｽﾌ構ｿｽｿｽｿｽﾌゑｿｽｿｽAｿｽｿｽｿｽWｿｽXｿｽgｿｽｿｽｿｽﾉ登ｿｽ^ｿｽｿｽｿｽ黷ｽｿｽfｿｽ[ｿｽ^ｿｽ^ｿｽｿｽ
ｿｽｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾆりあｿｽｿｽｿｽｿｽｿｽA
StructLayoutAttributeｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽｿｽA
MarshalAsAttributeｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾉつゑｿｽｿｽﾄ抵ｿｽｿｽﾗて鯉ｿｽｿｽｿｽﾆゑｿｽｿｽB
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2003/11/27(ｿｽｿｽ) 00:53:39
ｿｽuｿｽaｿｽﾌプｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽ .NET ｿｽﾅ開ｿｽｿｽｿｽﾄ変奇ｿｽｿｽｿｽｿｽﾄみゑｿｽﾆゑｿｽｿｽc(ｿｽ阡ｲｿｽｿｽｿｽｿｽ)
ｿｽﾐゑｿｽｿｽｿｽｿｽｿｽｿｽ 2003/11/27(ｿｽｿｽ) 11:10:58
ｿｽuｿｽaｿｽUｿｽDｿｽOｿｽﾅ作成ｿｽｿｽｿｽﾄ難ｿｽｿｽしｿｽｿｽｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽDｿｽmｿｽdｿｽsｿｽﾖ変奇ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾐゑｿｽｿｽｿｽｿｽｿｽｿｽ 2003/11/27(ｿｽｿｽ) 21:47:53
ｿｽﾐとまゑｿｽｿｽA
ｿｽ¥ｿｽｿｽｿｽﾌのみで渡ｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽAｿｽｿｽｿｽﾌ場合ｿｽﾍゑｿｽｿｽﾜゑｿｽｿｽsｿｽｿｽｿｽﾌに？
ｿｽ¥ｿｽｿｽｿｽﾌ配ｿｽｿｽﾉなゑｿｽﾆ厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽuｿｽaｿｽ|ｿｽ|ｿｽ|ｿｽ|
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
Public Structure EMPLOYEE
Dim Name As String
Dim Address As String
Dim Age As Short
End Structure
Private Declare Function func Lib "vc.dll" (ByRef emp As EMPLOYEE) As Integer
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Dim emp As EMPLOYEE
foo(emp)ｿｽ@ｿｽ@' ｿｽｿｽｿｽ@ｿｽ¥ｿｽｿｽｿｽﾌの茨ｿｽｿｽnｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
End Sub
ｿｽuｿｽbｿｽ|ｿｽ|ｿｽ|ｿｽ|
typedef struct {
BSTR Name;
BSTR Address;
short Age;
} EMPLOYEE;
extern "C" __declspec(dllexport) int __stdcall func(EMPLOYEE *ppsa);
extern "C" __declspec(dllexport) int __stdcall func(EMPLOYEE *ppsa)
{
char Name[128];
char Address[128];
short Age;
static wchar_t bufw[FOOBUFSIZE];
setlocale( LC_ALL, "" );
::SysFreeString( ppsa->Name );
::SysFreeString( ppsa->Address );
// ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽAｿｽ¥ｿｽｿｽｿｽﾌへデｿｽ[ｿｽ^ｿｽｿｽﾝ定しｿｽﾄみまゑｿｽｿｽｿｽｿｽB
memset( Name, NULL, sizeofName);
memset( Address, NULL, sizeof(Address) );
sprintf( Name, "vcｿｽ|testnameｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽｿｽ!" );
sprintf( Address, "vcｿｽ|testaddressｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽｿｽ!" );
Age = 10;
mbstowcs(bufw, Name, FOOBUFSIZE);
ppsa->Name = ::SysAllocString( bufw );
mbstowcs(bufw, Address, FOOBUFSIZE);
ppsa->Address = ::SysAllocString( bufw );
ppsa->Age = Age;
return 0;
}
ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、
ｿｽPｿｽｿｽｿｽﾈ配ｿｽｿｽﾆゑｿｽｿｽﾄ茨ｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽPｿｽｿｽｿｽﾉＶｿｽbｿｽﾅ茨ｿｽｿｽｿｽｿｽｿｽzｿｽｿｽﾌようｿｽﾉ使ｿｽｿｽｿｽﾄゑｿｽﾊ目みゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ皷橸ｿｽA
ｿｽuｿｽaｿｽｿｽｿｽｿｽzｿｽｿｽﾌ１ｿｽGｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾉＣｿｽ`ｿｽkｿｽkｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽuｿｽaｿｽ|ｿｽ|ｿｽ|ｿｽ|
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Dim emp(2) As EMPLOYEE
foo(emp(0))ｿｽ@ｿｽ@' ｿｽｿｽｿｽ@ｿｽ¥ｿｽｿｽｿｽｿｽ(1ｿｽﾔ厄ｿｽ)ｿｽﾌ茨ｿｽｿｽnｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
foo(emp(1))ｿｽ@ｿｽ@' ｿｽｿｽｿｽ@ｿｽ¥ｿｽｿｽｿｽｿｽ(2ｿｽﾔ厄ｿｽ)ｿｽﾌ茨ｿｽｿｽnｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
foo(emp(2))ｿｽ@ｿｽ@' ｿｽｿｽｿｽ@ｿｽ¥ｿｽｿｽｿｽｿｽ(3ｿｽﾔ厄ｿｽ)ｿｽﾌ茨ｿｽｿｽnｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
End Sub
ｿｽｿｽｿｽｿｽﾈゑｿｽA
ｿｽﾝ抵ｿｽﾅゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽzｿｽｿｽﾆゑｿｽｿｽﾄの擾ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍ厄ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽuｿｽaｿｽUｿｽDｿｽOｿｽｿｽｿｽｿｽﾍＶｿｽbｿｽ{ｿｽ{ｿｽﾅの擾ｿｽｿｽｿｽｿｽﾍ可能ｿｽﾈので、
ｿｽuｿｽaｿｽｿｽｿｽﾌ設抵ｿｽｿｽﾏ更ｿｽｿｽｿｽﾄＶｿｽaｿｽUｿｽDｿｽOｿｽﾌようｿｽﾉ渡ｿｽｿｽｿｽｿｽｿｽﾆはでゑｿｽｿｽﾜゑｿｽｿｽか？
StructLayoutAttributeｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽX
MarshalAsAttributeｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽX
ｿｽﾉつゑｿｽｿｽﾄゑｿｽwｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽﾉサｿｽｿｽｿｽvｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽc ｿｽVｿｽm 2003/11/27(ｿｽｿｽ) 23:09:42
ｿｽﾜゑｿｽｿｽAｿｽ¥ｿｽｿｽｿｽﾌ配ｿｽｿｽﾌ場合ｿｽAｿｽPｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽが含まゑｿｽｿｽ
ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽﾄ、ｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾌポｿｽCｿｽｿｽｿｽ^ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
Cｿｽｿｽｿｽｿｽﾌ場合ｿｽﾌ配ｿｽｿｽｿｽnｿｽｿｽｿｽ鼾ｿｽAｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾌポｿｽCｿｽｿｽｿｽ^ｿｽﾉなゑｿｽﾌと難ｿｽｿｽl
ｿｽﾅゑｿｽｿｽBｿｽﾜゑｿｽｿｽAｿｽzｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽが厄ｿｽｿｽｿｽｿｽﾄゑｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾌポｿｽCｿｽｿｽｿｽ^
ｿｽﾉなゑｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽが難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、ｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽﾌポｿｽCｿｽｿｽｿｽ^ｿｽﾌ撰ｿｽﾉ、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽﾅ抵ｿｽﾅはなゑｿｽｿｽﾂ変抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽjｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽｿｽ
ｿｽｿｽｿｽ驍ｱｿｽﾆになゑｿｽAｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾌ域ごｿｽﾆにコｿｽsｿｽ[ｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆ、
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾈ格ｿｽDｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽeｿｽXｿｽgｿｽIｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽｿｽ数値ｿｽ^ｿｽﾌ変撰ｿｽｿｽﾉ変更ｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽﾈり動ｿｽしｿｽｿｽ
ｿｽｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽBｿｽﾈ単ｿｽﾉゑｿｽｿｽｿｽﾈゑｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽｿｽが難ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾌゑｿｽSｿｽﾄ１ｿｽx
ｿｽﾅ渡ｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽ¥ｿｽｿｽｿｽﾌの要ｿｽf1ｿｽﾂづつゑｿｽnｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽしｿｽﾄゑｿｽｿｽｿｽ
ｿｽﾌで、ｿｽ謔｢ｿｽﾌではなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽEｿｽEｿｽE
BSTRｿｽｿｽﾜむ構ｿｽｿｽｿｽﾌ配ｿｽｿｽｿｽnｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍ、ActiveXｿｽﾌ折に趣ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽA.NETｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾍ、ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽA
StructLayoutAttributeｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽX
MarshalAsAttributeｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽX
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾇ破ｿｽｿｽｿｽﾄ暦ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽQｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽが・ｿｽEｿｽE
ｿｽﾈ擾ｿｽB
ｿｽｿｽｿｽc ｿｽVｿｽm 2003/11/27(ｿｽｿｽ) 23:18:05
ｿｽ}ｿｽCｿｽNｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽﾌサｿｽCｿｽgｿｽﾅ、ｿｽｿｽｿｽﾌケｿｽ[ｿｽXｿｽﾉ費ｿｽｿｽﾉ近ゑｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽQｿｽlｿｽﾜでに・ｿｽEｿｽE
ｿｽｿｽｿｽｿｽｿｽｿｽﾉ対ゑｿｽｿｽｿｽｿｽｿｽｿｽﾌマｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽO
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpcondefaultmarshalingforstrings.asp
ｿｽｿｽｿｽｿｽｿｽｿｽﾌマｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽO
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpconmarshalingstrings.asp
OutArrayOfStructs ｿｽﾌサｿｽｿｽｿｽvｿｽｿｽ
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpconosinfosample.asp
ｿｽﾈ擾ｿｽB
ｿｽﾐゑｿｽｿｽｿｽｿｽｿｽｿｽ 2003/11/29(ｿｽy) 02:29:21
ｿｽuｿｽaｿｽﾉて、
ｿｽｿｽｿｽﾌようｿｽﾉ設定すｿｽｿｽﾆ構ｿｽｿｽｿｽﾌ配ｿｽｿｽﾌ値ｿｽｿｽuｿｽbｿｽﾖ渡ｿｽｿｽｿｽｿｽｿｽﾆはでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽuｿｽbｿｽｿｽｿｽﾅは包ｿｽｿｽﾊの構ｿｽｿｽｿｽﾌ配ｿｽｿｽﾆ難ｿｽｿｽlｿｽﾉ回せまゑｿｽｿｽｿｽｿｽB
Declare Auto Sub SomeFunc Lib "vc.dll" ( _
<MarshalAs(UnmanagedType.LPArray, SizeParamIndex:=1)> ByVal emp() As EMPLOYEE, ByVal size As Long)
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾅは「ｿｽaｿｽｿｽｿｽuｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽﾝ定がｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾟ、
ｿｽuｿｽaｿｽｿｽｿｽｿｽｿｽｿｽﾍ構ｿｽｿｽｿｽﾌ配ｿｽｿｽｿｽnｿｽｿｽｿｽﾆゑｿｽｿｽﾍとゑｿｽｿｽｿｽｿｽｿｽA
ｿｽoｿｽﾍ構ｿｽｿｽｿｽﾌ配ｿｽｿｽｿｽnｿｽｿｽｿｽﾆゑｿｽｿｽﾉ鯉ｿｽｿｽﾊゑｿｽﾝ定しｿｽﾄ戻ゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽA
ｿｽｿｽｿｽc ｿｽVｿｽmｿｽｿｽｿｽがゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉポｿｽCｿｽｿｽｿｽ^ｿｽﾌポｿｽCｿｽｿｽｿｽ^ｿｽﾅ渡ｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｽｿｽﾟ、
ｿｽuｿｽaｿｽﾅは包ｿｽｿｽﾊに渡ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽuｿｽbｿｽｿｽｿｽｿｽﾉて「ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾉて取得ｿｽｿｽｿｽﾄ、
ｿｽ¥ｿｽｿｽｿｽﾌ配ｿｽｿｽﾌ先頭ｿｽAｿｽhｿｽｿｽｿｽXｿｽｿｽ謫ｾｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌ場合ｿｽﾍ構ｿｽｿｽｿｽﾌの擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽﾌの、
ｿｽｿｽｿｽｿｽｿｽﾌ茨ｿｽｿｽnｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾈのに、ｿｽuｿｽaｿｽﾉ戻ゑｿｽｿｽﾄみゑｿｽﾆ要ｿｽfｿｽｿｽｿｽｿｽｿｽPｿｽﾂになゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍ、
ｿｽﾌ域がｿｽｿｽ黷ｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽzｿｽｿｽﾌ領域がｿｽﾇゑｿｽｿｽAｿｽhｿｽｿｽｿｽXｿｽｿｽﾔで設定さｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾉつゑｿｽｿｽﾄゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾍヘｿｽｿｽｿｽvｿｽﾉゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽﾇゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾐゑｿｽｿｽｿｽｿｽｿｽｿｽ 2003/12/01(ｿｽｿｽ) 02:14:12
ｿｽuｿｽaｿｽｿｽMarsaAsｿｽﾌ指ｿｽｿｽﾅは、
<MarshalAs(UnmanagedType.SafeArray)>
ｿｽｿｽｿｽgｿｽpｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾍＶｿｽaｿｽDｿｽmｿｽdｿｽsｿｽﾅ６ｿｽCｿｽOｿｽﾌセｿｽ[ｿｽtｿｽzｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾝ定しｿｽﾄゑｿｽAｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
MarshalAsAttribute.SafeArraySubType ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽﾆゑｿｽﾖ連ｿｽｿｽｿｽﾄ設定すｿｽｿｽ轤ｵｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽlｿｽrｿｽcｿｽmｿｽｿｽｿｽｿｽｿｽﾆ「VT_ARRAYｿｽvｿｽｿｽﾝ定すｿｽｿｽﾎ良ゑｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾊ目でゑｿｽｿｽｿｽｿｽB
ｿｽlｿｽrｿｽcｿｽmｿｽﾉは「SAFEARRAY ｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽvｿｽﾆ記ｿｽqｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾉ？
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽﾌ辺ゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽgｿｽｿｽｿｽﾎ、ｿｽUｿｽDｿｽOｿｽ`ｿｽｿｽｿｽﾅＶｿｽaｿｽｿｽｿｽｿｽuｿｽbｿｽﾖ渡ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾐゑｿｽｿｽｿｽｿｽｿｽｿｽ 2003/12/02(ｿｽｿｽ) 01:14:26
ｿｽuｿｽaｿｽﾌ関撰ｿｽｿｽ骭ｾｿｽﾉて、
Declare Auto Sub SomeFunc Lib "vc.dll" ( _
<[In](), Out()> ByVal emp() As EMPLOYEE, ByVal size As Long)
InAttribute ｿｽｿｽ OutAttribute ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾉ使ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽ¥ｿｽｿｽｿｽﾌの配ｿｽｿｽｿｽuｿｽbｿｽﾖ渡ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽsｿｽvｿｽcｿｽﾈゑｿｽｿｽﾆに？
ｿｽuｿｽaｿｽｿｽｿｽuｿｽｿｽｿｽｿｽｿｽvｿｽﾅ渡ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌにゑｿｽｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽlｿｽﾌ変更ｿｽｿｽｿｽｿｽｿｽfｿｽｿｽｿｽ黷ｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽuｿｽaｿｽｿｽｿｽqｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽQｿｽﾆ渡ｿｽｿｽｿｽﾈのに不ｿｽvｿｽcｿｽﾅゑｿｽｿｽH
