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();
}
}
{
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();
}
}