How can i get the wsdl xml string from pear soap server

I need to access a pear web service from Delphi but I cannot get the wsdl xml string for this web service. Does anybody know how to retrieve the wsdl string.

The php code client code is below. This is the php client code to access the web service but I need the wsdl to access it from Delphi if that is even possible.

<?php

// create SOAP object
$client = new SoapClient( null, array( 'location' => 'http://dev.gaumina.lt/examcraft_v1/ws/server.php?type=users',
                                       'uri'      => 'http://dev.gaumina.lt/examcraft_v1/ws/',
            'trace' => 1 ) );

// required password for webservices
$secret_key = 'somekey';
$password = sha1( base64_decode( $secret_key ) . date( 'Ymd' ) );
$user_id = 12345;
echo base64_decode( $secret_key )."<br />";

try {
 
 // calling action with params that were specified in tech doc
 $result = $client->__soapCall(
       'getUser',
       array (
        new SoapParam( $password, 'password' ),
        new SoapParam( $user_id, 'user_id' )
       ) );
     
} catch ( SoapFault $soapFault ) {
 
 // try to find out why we can't get required data
 var_dump( $soapFault );
 echo( '<br />Request: ' . htmlentities( $client->__getLastRequest() ) . '<br />' );
 echo( '<br />Response: ' . htmlentities( $client->__getLastResponse() ) . '<br />' );
}

// echo result from webservice
if ( isset( $result ) ) {
 echo( '

' ); print_r( $result ); echo( '

' );
} else {
 echo 'Can\'t find variable "$result"';
}

?>

Thanks