ｿｽ@ ｿｽ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

VBｿｽ‾ 2006/10/05(ｿｽｿｽ) 13:51:21

ｿｽ¥ｿｽｿｽﾌようｿｽﾈ趣ｿｽｿｽﾍ可能ｿｽﾅゑｿｽｿｽｿｽｿｽH

ｿｽｿｽｿｽﾜゑｿｽ
exeｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉコｿｽ}ｿｽｿｽｿｽhｿｽvｿｽｿｽｿｽｿｽｿｽvｿｽgｿｽｿｽｿｽ邇滂ｿｽﾌようｿｽﾉ包ｿｽｿｽｿｽｿｽﾌ茨ｿｽｿｽｿｽｿｽｿｽnｿｽｿｽｿｽﾄ使ｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽ
C:¥>test.exe "a" "b" "c" "d" "e" "f"

test.exeｿｽﾍ趣ｿｽｿｽﾌようｿｽﾉ受け趣ｿｽ閧ｵｿｽﾄまゑｿｽｿｽｿｽｿｽB
int main(int argc, char *argv[])
{
// ｿｽﾈ暦ｿｽ
}

ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽtest.exeｿｽｿｽActiveXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽ

VB6ｿｽｿｽ
ｿｽｿｽ
v(0) = "a":v(1) = "b":v(2)= "c" ｿｽEｿｽEｿｽEｿｽEｿｽEｿｽEｿｽEｿｽE
test.main(v(0))

ｿｽﾆ鯉ｿｽｿｽｿｽｿｽ謔､ｿｽﾉ配ｿｽｿｽｿｽnｿｽｿｽｿｽｿｽｿｽﾍ可能ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽ鼾ｿｽﾍ別な包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾇ伸
v= "a_b_c_d_e" '_ｿｽﾍ具ｿｽﾘり文ｿｽｿｽ
test.main(v)
ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ

Blue 2006/10/05(ｿｽｿｽ) 14:03:11

>ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽtest.exeｿｽｿｽActiveXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽ COM ｿｽﾉなゑｿｽけｿｽﾅゑｿｽｿｽｿｽﾋ？(VBｿｽﾅは参ｿｽﾆ設定しｿｽｿｽNewｿｽｿｽｿｽﾄ使ｿｽｿｽ)
Declareｿｽﾅ使ｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾌは単ｿｽﾈゑｿｽDLLｿｽﾅゑｿｽｿｽB

ｿｽﾇゑｿｽｿｽｿｽﾉゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽ^ｿｽzｿｽｿｽﾅゑｿｽｿｽﾌゑｿｽSAFEARRAYｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾆになゑｿｽﾜゑｿｽｿｽB

Blue 2006/10/05(ｿｽｿｽ) 14:08:19

ｿｽｿｽｿｽﾈみに、ｿｽｿｽｿｽｿｽｿｽ^ｿｽzｿｽｿｽﾅゑｿｽｿｽﾌゑｿｽ,
>test.main(v(0))
ｿｽﾌようｿｽﾉ先頭ｿｽvｿｽfｿｽｿｽByRefｿｽﾅ渡ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾊ変奇ｿｽ(UnicodeｿｽｿｽAsciiｿｽﾏ奇ｿｽ)ｿｽｿｽｿｽNｿｽｿｽｿｽ閧ｻｿｽｿｽｿｽﾈのゑｿｽ
ｿｽzｿｽｿｽSｿｽﾌゑｿｽByRefｿｽﾅ渡ｿｽｿｽｿｽ謔､ｿｽﾈ形ｿｽﾉゑｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽ^ｿｽzｿｽｿｽﾅはなゑｿｽｿｽﾄ、StrPtrｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽLongｿｽ^ｿｽzｿｽｿｽﾈゑｿｽﾎ簡単ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ。


>v= "a_b_c_d_e" '_ｿｽﾍ具ｿｽﾘり文ｿｽｿｽ
>test.main(v)
>ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ
ｿｽﾅゑｿｽｿｽ蛯､ｿｽﾋ。

VBｿｽ‾ 2006/10/05(ｿｽｿｽ) 14:11:34

Blue ｿｽｿｽｿｽｿｽﾔ趣ｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
DLLｿｽﾅは可能ｿｽﾈのでゑｿｽｿｽﾋ＾ｿｽO

ｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽB
OCXｿｽﾆゑｿｽｿｽﾄ使ｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽAｿｽNｿｽeｿｽBｿｽuXｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽB


ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

Blue 2006/10/05(ｿｽｿｽ) 14:19:05

>ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽSAFEARRAYｿｽ調べゑｿｽｿｽｿｽﾅの費ｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ActiveXｿｽﾍ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA

v(0) = "a":v(1) = "b":v(2)= "c" ｿｽEｿｽEｿｽEｿｽEｿｽEｿｽEｿｽEｿｽE
test.main(v) ' ByRef s() As String

ｿｽﾌようｿｽﾈ指ｿｽｿｽｿｽｿｽｿｽﾄ呼ぶ場合ｿｽACｿｽｿｽｿｽﾅは、LPSAFEARRAY* ｿｽ^ｿｽﾅ受けるこｿｽﾆになゑｿｽﾜゑｿｽｿｽB
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽWebｿｽｿｽｿｽｿｽｿｽﾅ茨ｿｽx SAFEARRAY ｿｽﾉつゑｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽﾆゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB

VBｿｽ‾ 2006/10/05(ｿｽｿｽ) 14:29:54

>SAFEARRAYｿｽ調べゑｿｽｿｽｿｽﾅの費ｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾗつゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

VC++ｿｽｿｽActiveX ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ追会ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌタｿｽCｿｽvｿｽｿｽﾝ定すｿｽ骰ｿｽﾚゑｿｽ
LPSAFEARRAY*ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽがゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

Blue 2006/10/05(ｿｽｿｽ) 14:35:25

> LPSAFEARRAY*ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽがゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾅゑｿｽVARIANT*ｿｽﾅ受けてはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽQｿｽl
http://hpcgi1.nifty.com/MADIA/Vcbbs/wwwlng.cgi?print+200609/06090040.txt

VBｿｽ‾ 2006/10/05(ｿｽｿｽ) 15:28:54

>VARIANT*ｿｽﾅ受けてはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽ竄ｷｿｽｿｽﾈ前ｿｽﾉ参ｿｽlｿｽｿｽmｿｽFｿｽｿｽｿｽﾄ色ｿｽXｿｽﾆ趣ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBDLLｿｽﾅは可能ｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽiMSDNｿｽﾉゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ）
ActiveX ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅは趣ｿｽｿｽﾌ通ゑｿｽﾅゑｿｽｿｽB

ActiveX ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽVC++ｿｽｿｽ
long CTestddCtrl::foo(VARIANT FAR* v) 
{
    SAFEARRAY* psa;
    if ( v->vt != ( VT_ARRAY | VT_BSTR | VT_BYREF ) ) return 1;
    psa = *( v->pparray );
    if ( psa->cDims != 1 ) return 2;
    return 0;
}
ｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

VB6ｿｽﾅゑｿｽ
Private Sub Command1_Click()
Dim v(2) As String
    v(0) = "ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽ"
    v(1) = "ｿｽeｿｽXｿｽg"
    v(2) = "test"
    MsgBox Testdd1.foo(v(0))ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ型ｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
End Sub

ｿｽｿｽｿｽｿｽ
    MsgBox Testdd1.foo(v)ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ型ｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ

ｿｽｿｽｿｽｿｽ
Dim v(2) As Variantｿｽ@ｿｽﾉ変更ｿｽｿｽｿｽｿｽ
MsgBox Testdd1.foo(v)ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ型ｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ

ｿｽｿｽｿｽｿｽ
MsgBox Testdd1.foo(v(0))ｿｽ@ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ{ｿｽbｿｽNｿｽXｿｽﾅ”1ｿｽhｿｽｿｽｿｽ¥ｿｽｿｽ

ｿｽｿｽｿｽｿｽVC++ｿｽｿｽ
   // if ( v->vt != ( VT_ARRAY | VT_BSTR | VT_BYREF ) ) return 1;
ｿｽﾆゑｿｽｿｽﾄ削除ｿｽｿｽｿｽｿｽｿｽB
MsgBox Testdd1.foo(v(0))ｿｽ@ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ{ｿｽbｿｽNｿｽXｿｽﾅ”2ｿｽhｿｽｿｽｿｽ¥ｿｽｿｽ

ｿｽﾈ擾ｿｽﾜで確ｿｽFｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Blue 2006/10/05(ｿｽｿｽ) 15:35:21

ｿｽKｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾄみゑｿｽｿｽB

VC

void CActiveXTestCtrl::ShowList(VARIANT FAR* list) 
{
    // TODO: ｿｽｿｽｿｽｿｽｿｽﾉデｿｽBｿｽXｿｽpｿｽbｿｽ` ｿｽnｿｽｿｽｿｽhｿｽｿｽ ｿｽRｿｽ[ｿｽhｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
    SAFEARRAY* psa;
    BSTR wcs;
    long i, lb, ub;
    CString s;

    if ( list->vt != ( VT_ARRAY | VT_BSTR ) ) return;

    psa = list->parray;
    if ( psa->cDims != 1 ) return;

    SafeArrayLock( psa );

    SafeArrayGetLBound( psa, 1u, &lb );
    SafeArrayGetUBound( psa, 1u, &ub );

    for ( i = lb; i <= ub; i++ )
    {
        SafeArrayGetElement( psa, &i, ( void* )&wcs );
        AfxMessageBox( CString( wcs ) );
    }

    SafeArrayUnlock( psa ); 
}

VB

Option Explicit

Sub test()
    Dim v As Variant
    Dim s(2) As String
    Dim a As New ActiveXTest
    v = Split("ABC,ｿｽｿｽｿｽｿｽｿｽｿｽ,a", ",")
    a.ShowList v
    
    s(0) = "ｿｽｿｽｿｽｿｽ"
    s(1) = "#%"
    s(2) = "ｿｽJｿｽ^ｿｽJｿｽi"
    v = s
    a.ShowList v
End Sub

Blue 2006/10/05(ｿｽｿｽ) 16:07:46

ActiveXｿｽﾈゑｿｽｿｽBSTR*ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB

VC

void CActiveXTestCtrl::ShowList2(BSTR FAR* list, long count) 
{
// TODO: ｿｽｿｽｿｽｿｽｿｽﾉデｿｽBｿｽXｿｽpｿｽbｿｽ` ｿｽnｿｽｿｽｿｽhｿｽｿｽ ｿｽRｿｽ[ｿｽhｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
for ( int i = 0; i < count; i++ )
{
AfxMessageBox( CString( list[ i ] ) );
}
}

VB

Sub test()
    Dim a As New ActiveXTest
    Dim s(2) As String
    s(0) = "ｿｽｿｽｿｽﾍよう"
    s(1) = "ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽ"
    s(2) = "ｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽ"
    a.ShowList2 s(0), 3
End Sub

VBｿｽ‾ 2006/10/05(ｿｽｿｽ) 16:22:31

BlueｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Dim v As Variantｿｽ@ｿｽｿｽ
Dim v(4) As Variant  ｿｽ‾

VB6ｿｽﾌ変撰ｿｽｿｽﾝ定がｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB

Blue 2006/10/06(ｿｽｿｽ) 01:16:52

ｿｽ謔ｭｿｽ謔ｭｿｽlｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽAVARIANT*ｿｽﾉゑｿｽｿｽｿｽKｿｽvｿｽｿｽﾈゑｿｽｿｽAVARIANTｿｽ^ｿｽﾅよかｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆ、VBｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ Variantｿｽ^ｿｽﾏ撰ｿｽｿｽﾉ難ｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽStringｿｽ^ｿｽzｿｽｿｽnｿｽｿｽｿｽﾜゑｿｽｿｽﾋ。

void CActiveXTestCtrl::ShowList(const VARIANT FAR& list)
{
    // TODO: ｿｽｿｽｿｽｿｽｿｽﾉデｿｽBｿｽXｿｽpｿｽbｿｽ` ｿｽnｿｽｿｽｿｽhｿｽｿｽ ｿｽRｿｽ[ｿｽhｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
    SAFEARRAY* psa;
    BSTR wcs;
    long i, lb, ub;
    CString s;

    if ( list.vt != ( VT_ARRAY | VT_BSTR ) ) return;

    psa = list.parray;
    if ( psa->cDims != 1 ) return;

    SafeArrayLock( psa );

    SafeArrayGetLBound( psa, 1u, &lb );
    SafeArrayGetUBound( psa, 1u, &ub );

    for ( i = lb; i <= ub; i++ )
    {
        SafeArrayGetElement( psa, &i, ( void* )&wcs );
        AfxMessageBox( CString( wcs ) );
    }

    SafeArrayUnlock( psa ); 
}

Sub test()
    Dim s(2) As String
    Dim a As New ActiveXTest
    
    s(0) = "ｿｽｿｽｿｽｿｽ"
    s(1) = "#%"
    s(2) = "ｿｽJｿｽ^ｿｽJｿｽi"
    a.ShowList s
End Sub

Created by board of various Programming Library.