delphi我没试过,bcb我做过;
1.appserver 定义已方法如MyExecSQL(BSTR sql),TQuery *query
STDMETHODIMP TttImpl::MyExecSQL(BSTR sql)
{
try
{
m_DataModule->query->Close();
m_DataModule->query->SQL->Text=AnsiString(SQL);
m_DataModule->query->SQL->ExecSQL();
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_Itt);
}
return S_OK;
}
这样你就可以在客户端调用了.如下:
TSocketConnection *sc;//设置好和AppServer的连接;
AnsiString sql="delete * from yourTableName";
调用:sc->>AppServer.Exec(Function("MyExecSQL")<<sql);
只是你的转化为delphi代码.