使用TSocketConnection调用应用服务器的接口事件的问题

[luhongjun]

应用服务器定义的方法如下：
//-------------------------
STDMETHODIMP TPGDynamicSQLDemoImpl::GetAllTables(TVariant* vTables)
{
__try
{
TStringList * tblList = new TStringList();
PGDynamicSQLDemo->adocDSQL->GetTableNames(tblList,false);
int Bounds[2]={0,1};
vTables=VarArrayCreate(Bounds,tblList->Count-1,varVariant);
for (int i=1;i<tblList->Count;i++)
vTables[i]=tblList->Strings[i];
delete tblList;
}
__finally
{
return S_OK;
}

}
//-------------------------
STDMETHODIMP TPGDynamicSQLDemoImpl::AAAA(BSTR ABC)
{
__try
{
AnsiString abcd=AnsiString(ABC);
Application->MessageBox(abcd.c_str(), NULL, MB_OK);
}
__finally
{
return S_OK;
}
}
使用TDCOMConnection调用正常，但把TDCOMConnection换成TSocketConnection就有问题，TSocketConnection服务已启动，能够在服务器端显示对话框，但运行结束提示AV错误。

Variant vtblList;
IPGDynamicSQLDemoDisp PGDynamicSQLDemo;
__try
{
if (!DCOMConnection1->Connected)
DCOMConnection1->Connected=true;
PGDynamicSQLDemo.Bind(DCOMConnection1->GetServer());
//PGDynamicSQLDemo->GetAllTables(vtblList);
PGDynamicSQLDemo->AAAA(WideString("aaaaaaaa"));

}
__finally
{
if (PGDynamicSQLDemo.IsBound())
PGDynamicSQLDemo.Unbind();
return;
}

大家帮忙看一看。

[猛禽]

太可怕，你上线也不开QQ，真是的。
是的，DELPHI可以，我一直在用，一点问题没有。
BCB做COM的确有一些问题，除非不用BORLAND的WIZARD，直接用ATL做。

[luhongjun]

使用TSocketConnection调用:
Variant vtblList;
IPGDynamicSQLDemoDisp PGDynamicSQLDemo;
__try
{
if (!SocketConnection1->Connected)
SocketConnection1->Connected=true;
PGDynamicSQLDemo.Bind(DCOMConnection1->GetServer());
//PGDynamicSQLDemo->GetAllTables(vtblList);
PGDynamicSQLDemo->AAAA(WideString("aaaaaaaa"));

}
__finally
{
if (PGDynamicSQLDemo.IsBound())
PGDynamicSQLDemo.Unbind();
return;
}
调用成功,在服务器上也能显示"aaaaaaaa",但返回时出错.错误为VA.

[火鸟33]

TSocketConnection 好像不支持自定义接口调用（主要是权限不够）
你用dcomconnection也能直接使用ip地址调用（要把权限设为everyone）

[LuoGD]

学习！

[BCB]

也不会呀，
我只知一点皮毛

[coldbloodfox]

是BCB BUG
老大
在QQ上说吧

[书生]

up~

[HEROIN]

很久以前在拓创的论坛上我问过类似问题。当时的答案是BCB的SocketConnection不支持早期绑定，甚至有人让我死了用SocketConnection这条心.我自今也没明白何谓早期绑定，何谓晚期绑定。不过到现在为止，我还是用SocketConnection

1。这是帮助上的，好像很管用，很早前用过。
IDispatch* disp = (IDispatch*)(MyConnection->AppServer)

IMyAppServerDisp TempInterface( (IMyAppServer*)disp);

TempInterface.SpecialMethod(x,y);

2。这是我程序中的代码，大概就是所谓晚期绑定方式吧，据说速度要慢一点，不过倒是很好用，简单，也不要什么TLB,ALT之类的头文件，比较“环保”，我的最爱

cdsMain->FieldByName("SEQ")->AsInteger=SocketConnection1->AppServer.OleFunction("GetSEQ",TableName) ;

[孩皮妞野]

学习！

UP!

[wangledong]

我也不知道，只能帮你推推了!

[luhongjun]

大家帮忙呀。

[HEROIN]

我也不知。我几乎都在2000下做。

不过98下运行也没出过错,也许是应为我用第2种方式的原因吧

[BCB]

ok

[孩皮妞野]

好。

[书生]

up~
老大，结帐别忘记给我1分。

@_@

[书生]

谁让你上班时间把我拖上来，我要是被经理开除了，马上去你们公司充数！

[书生]

哈哈，倒！~~~

刚发完帖子就看见帖子结帐了已经。

[ppzhao]

up~~~~

[luhongjun]

问题已经解决：换上2000就可以了
Variant vtblList;
__try
{
if (!SocketConnection1->Connected)
SocketConnection1->Connected=true;
IDispatch* disp = (IDispatch*)(SocketConnection1->AppServer);
IPGDynamicSQLDemoDisp PGDynamicSQLDemo( (IPGDynamicSQLDemo*)disp);
PGDynamicSQLDemo.AAAA(WideString("aaaaaaaa));
}
__finally
{
return;
}


HEROIN(HEROIN)　:为什么在98下不行，换上2000就好用了。在98下问题出在：
IDispatch* disp = (IDispatch*)(MyConnection->AppServer)

保留一下午，晚上给分。

[blucecat]

up