Hola estoy aprendiendo hacer un webservices entre visualbasic 6.0 y php. Estoy usando la libreria Nusoap
Lo que quiero hacer es enviar un Array a php
Tengo este codigo:
Dim strFriends(0 To 2) As String
Private Sub Command4_Click()
Wstexto = Text4
strFriends(0) = "nombre1"
strFriends(1) = "nombre2"
strFriends(2) = "nombre3"
Dim soapObject As New MSSOAPLib30.SoapClient30
soapObject.MSSoapInit "http://localhost/webservices/hola.php?wsdl"
MostrarWS = soapObject.hola(strFriends())
Text5.Text = MostrarWS
End Sub
Esto lo tengo del lado de Php.
hola.php
Código PHP:
Ver original<?php
require_once('nusoap/lib/nusoap.php');
$servidor=new soap_server();
$servidor->configureWSDL('holawsdl','urn:holawsdl');
$servidor->register ('hola',
array('nombre' => 'xsd:string'), array('return' => 'xsd:string'), 'urn:holawsdl',
'urn:holawsdl#hola',
'rpc',
'encoded',
'este ejecuta hola'
);
function hola($nombre){
return "Este es el resultado cliente del webservices ".$nombre[0];
}
$HTTP_RAW_POST_DATA= isset($HTTP_RAW_POST_DATA) ?
$HTTP_RAW_POST_DATA : '';
$servidor->service($HTTP_RAW_POST_DATA);
?>
Al presional el boton Command4_Click() me dice este error
Espero que alguien logre ayudarme.. Saludos!!!