GetIniString Voorbeeld

Aanroepen vanuit: AsToDate, DotNet Framework en PHP

Voorbeeld aanroep via AsToDate of AstoMerger engine (raport generator):
{
 XmlService XmlTest
 String sXmlResponse, sResponse

 XmlConnect(XmlTest,http://www.enterpriseonline.nl/astonaenterpriseservice/astonaservices.asmx)
 XmlSetNameSpace(XmlTest,http://www.astona.nl/)
 XmlSetUserPass(XmlTest,AVE\WebserviceAcoount,!@$678%dex&123)
 XmlSetInputBody(XmlTest,<DataSource>"\\AVESERVER\Demo_Admins\Astona\demo.adm"</DataSource>)
 Ok = XmlMethod(XmlTest,GetIniString,sXmlResponse)
 If Ok
  XmlGetElement(GetIniStringResult,sXmlResponse,sResponse)
  Copy(sResponse,Response=[sResponse])
 Endif
}
 Response=[sXmlResponse]

 [sResponse]

Resultaat:
<GetIniStringResult>DataSource=\\aveserver\demo-root\astona\demo.adm;Provider=FaOleDb.FaProv;OrderProvider=Microsoft.Jet.OLEDB.4.0;OrderSource=\\aveserver\demo-root\astona\demo.adm\order2000.mdb;MaatKode=demo;LayOutDir=\\aveserver\demo-root\FINALACC\;AdminsDir=\\aveserver\demo-root\astona\;AveUserID=0;BoekJaar=2022;BasisValuta=EUR;FaxServer=;SMTPServer=mail.solcon.nl;SFirmanaam=Fa. Demo;SAdres=Voorbeeldstraat 1;SPostcode=1234 AB;SWoonplaats=AMSTERDAM;SInternet=www.demo.nl;SE-mail=info@demo.nl;STelefoon=020-6123456;SBank Relatie=RABO Bank;SBanknummer=32.10.49.284;SPostbanknr=1802246;SBTW-nummer=NL123456789B01;SFaxnummer=020-6165432;SKVK-nummer=;SReserve-1=;SReserve-2=;SReserve-3=;DRNaam=0;DRAdres=1;DRTav=2;DRWoonplaats=3;DRPostcode=4;DReMail=5;DRBTW-nummer=6;DRBanknummer=7;DRTelefoon=8;DRFAX=9;DRLand=10;CRNaam=0;CRAdres=1;CRTav=2;CRWoonplaats=3;CRPostcode=4;CReMail=5;CRBTW-nummer=6;CRBanknummer=7;CRTelefoon=8;CRFAX=9;CRLand=10</GetIniStringResult>

Response=DataSource=\\aveserver\demo-root\astona\demo.adm;Provider=FaOleDb.FaProv;OrderProvider=Microsoft.Jet.OLEDB.4.0;OrderSource=\\aveserver\demo-root\astona\demo.adm\order2000.mdb;MaatKode=demo;LayOutDir=\\aveserver\demo-root\FINALACC\;AdminsDir=\\aveserver\demo-root\astona\;AveUserID=0;BoekJaar=2022;BasisValuta=EUR;FaxServer=;SMTPServer=mail.solcon.nl;SFirmanaam=Fa. Demo;SAdres=Voorbeeldstraat 1;SPostcode=1234 AB;SWoonplaats=AMSTERDAM;SInternet=www.demo.nl;SE-mail=info@demo.nl;STelefoon=020-6123456;SBank Relatie=RABO Bank;SBanknummer=32.10.49.284;SPostbanknr=1802246;SBTW-nummer=NL123456789B01;SFaxnummer=020-6165432;SKVK-nummer=;SReserve-1=;SReserve-2=;SReserve-3=;DRNaam=0;DRAdres=1;DRTav=2;DRWoonplaats=3;DRPostcode=4;DReMail=5;DRBTW-nummer=6;DRBanknummer=7;DRTelefoon=8;DRFAX=9;DRLand=10;CRNaam=0;CRAdres=1;CRTav=2;CRWoonplaats=3;CRPostcode=4;CReMail=5;CRBTW-nummer=6;CRBanknummer=7;CRTelefoon=8;CRFAX=9;CRLand=10
 

Voorbeeld aanroep in C# via DotNet en de automatisch gegenereerde class: AstonaWebservice:
 AstonaWebservice.AstonaServices AstonaService = new AstonaWebReference.AstonaServices();
 //Onderstaand hoeft alleen indien de URL ovreschreven moet worden
 AstonaService.Url = "http://www.enterpriseonline.nl/astonaenterpriseservice/astonaservices.asmx";
 AstonaService.Credentials = new NetworkCredential("astonawebservice", "!@$678%dex&123", "AVE");
 String sReponse = AstonaService.GetIniString("\\\\AVESERVER\Demo_Admins\Astona\demo.adm");

Resultaat:
Idem: Zie SOAP response.


Voorbeeld aanroep via PHP:
<?php
 /*
 *  Literal/Document client voorbeeld
 *
*/
 require_once('./lib/nusoap.php');
 $client = new nusoap_client('http://www.enterpriseonline.nl/astonaenterpriseservice/astonaservices.asmx');
 $client->setCredentials('AVE\astonawebservice',"!@$678%dex&123");
 $err = $client->getError();
 if ($err)
 {
  echo '<h2>Client fout: </h2><pre>' . $err . '</pre>';
 }

 //Data Source
 $DataSource = "\\AVESERVER\Demo_Admins\Astona\demo.adm";

 /*===============================================================
 * Onderstaande aanpassen per functie
 * Voorbeeld betreft GetIniString
 */

 //Methode/FunctieNaam
 $FuncName="GetIniString";

 //Parameters
 $ParNam1="DataSource";
 $ParVal1=$DataSource;
 $ParNam2="";
 $ParVal2="";
 $ParNam3="";
 $ParVal3="";
 $ParNam4="";
 $ParVal4="";

 /*
 *================================================================
 */

 $AstUri="http://www.astona.nl";
 //De SOAP actie bijv: 'http://www.astona.nl/GetIniString'
 $SoapAction=$AstUri.$FuncName;

 //De SOAP body met minimaal 1 en maximaal 4 parameters
 $SoapBody="<?xml version='1.0' encoding='utf-8'?>
 <soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>
   <soap:Body>
     <$FuncName xmlns='$AstUri'>
       <$ParNam1>$ParVal1</$ParNam1>";
       If ($ParNam2 != ""){
         $SoapBody .= "<$ParNam2>$ParVal2</$ParNam2>";
       }
       If ($ParNam3 != ""){
         $SoapBody .= "<$ParNam3>$ParVal3</$ParNam3>";
       }
       If ($ParNam4 != ""){
         $SoapBody .= "<$ParNam4>$ParVal4</$ParNam4>";
       }
       $SoapBody .= "</$FuncName>
   </soap:Body>
 </soap:Envelope>"; 

 //De methode aanroepen!
 $result = $client->send($SoapBody, $SoapAction);
 
 // Controleer op succes
 if ($client->fault) {
   echo '<h2>Mislukt!</h2><pre>';
   print_r($result);
   echo '</pre>';
 } else {
   // Controleer op fouten
   $err = $client->getError();
   if ($err) {
     // Laat eventuele fout zien
     echo '<h2>Fout: </h2><pre>' . $err . '</pre>';
     print_r($client->response);
     print_r($client->getDebug());
   } else {
     header("Content-Type: text/xml");
     $StringXml = $result[$FuncName.'Result'];
     print($StringXml);
   }
 }
?>