C++爱好者 - 网友留言

BSTR Tname;
STDMETHODIMP Tfile_accessImpl::Save_File(BSTR name)
{
HRESULT hr = S_OK ;
FILE *fp;
int l;
AnsiString name1;
name1=(AnsiString)name;
name1=(AnsiString)name;

char s[80];
strcpy(s,"12345678");//我想在该方法中设置组件的 name属性值为12345678
Tname=(wchar_t *)s;
return hr;

}


其中 Tname 是该组件的一个属性 name 在程序的表示值

STDMETHODIMP Tfile_accessImpl::get_name(BSTR* Value)
{
  try
  {
    *Value=Tname;

  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_Ifile_access);
  }
  return S_OK;
};


STDMETHODIMP Tfile_accessImpl::set_name(BSTR Value)
{
  try
  {
  Tname=Value;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_Ifile_access);
  }
  return S_OK;
};



我在ASP中
   Set CBuilderASPObj = Server.CreateObject("Project1.file_access")
   name="abcd"
   CBuilderASPObj.Save_File  name
   ddd=CBuilderASPObj.name
   response.write "name===["
   RESPONSE.WRITE ddd
   response.write "
over
"
显示的ddd 值是乱码
不知道要如何设置？？？
另 如何获得ASP中的FORM中的值 ？？？等
我看在VB 中很方便
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)

'现在,无论什么时候用户访问一个带有本组件的ASP文件,IIS就会把

'ScriptingContext传送给我们的对象请我们使用.

Set MyScriptingContext = PassedScriptingContext

'Set MyApplication = MyScriptingContext.Application

Set MyRequest = MyScriptingContext.Request

'Set MyResponse = MyScriptingContext.Response

Set MyServer = MyScriptingContext.Server

'Set MySession = MyScriptingContext.Session

End Sub
在C++BUILDER中不知要如何处理

--------------------next---------------------