pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix : user_client_console.lpi

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1330 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-10-01 19:02:18 +00:00
parent 1349587f8d
commit 28bb2f355f
3 changed files with 24 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/samples/user_client_console/user_client_console.pas
View File

@ -148,14 +148,16 @@ const ADDRESS_MAP : array[TTransportType] of string = (
//'TCP:Address=172.16.82.31;Port=1234;target=UserService',
'TCP:Address=127.0.0.1;Port=1234;target=UserService',
//'http:Address=http://127.0.0.1:8888/wst/services/lib_server/UserService'
'http:Address=http://127.0.0.1:8080/wst/services/UserService'
'http:Address=http://127.0.0.1:8000/services/UserService'
//'http:Address=http://127.0.0.1:8080/cgi-bin/demoservice.cgi/WST/%s/UserService/'
);
FORMAT_MAP : array[TFormatType] of string =( 'binary', 'soap', 'xmlrpc', 'json', 'json' );
FORMAT_MAP : array[TFormatType] of string =( 'binary', 'SOAP', 'xmlrpc', 'json', 'json' );
var
buffTransport, buffFormat : string;
begin
if ( TransportType = ttHTTP ) then
buffTransport := Format('%s/?format=%s',[ADDRESS_MAP[TransportType],FORMAT_MAP[FormatValue]])
//buffTransport := Format(ADDRESS_MAP[TransportType],[FORMAT_MAP[FormatValue]])
else
buffTransport := ADDRESS_MAP[TransportType];
if ( TransportType = ttLibrary ) then