c++builder 中调用WebService的例子

 void   __fastcall   TForm1::Button1Click(TObject   *Sender)
{
    Variant   pmsstClient;
    WideString   vInput;

    CoInitialize(NULL);
    try
    {
        pmsstClient   =   CreateOleObject( "MSSOAP.SoapClient ");
        pmsstClient.OleFunction( "mssoapinit ",   "http://localhost/IAAS/Customer.wsdl ");
        vInput   =   strCustomerCode;
        strCustomerName   =   pmsstClient.OleFunction( "getCustomerName ",   vInput);
    }
    __finally
    {
        pmsstClient   =   Unassigned;
        CoUninitialize();
    }
}