paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
wst/trunk/samples/user_client_console/user_client_console.lpi
View File

@ -1,8 +1,8 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
@ -12,10 +12,9 @@
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
@ -28,13 +27,10 @@
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<RequiredPackages Count="1">
<Item1>
<PackageName Value="wst_synapse"/>
</Item1>
<Item2>
<PackageName Value="wst_core"/>
</Item2>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
@ -50,18 +46,19 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="9"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="user_client_console.exe"/>
</Target>
<SearchPaths>
<OtherUnitFiles Value="..\;..\..\;..\..\fcl-units\fcl-json\src\"/>
<OtherUnitFiles Value="..\;..\..\;..\..\fcl-units\fcl-json\src\;$(LazarusDir)\others_package\synapse\"/>
<UnitOutputDirectory Value="obj"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
@ -72,6 +69,9 @@
<LinkSmart Value="True"/>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>

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

12
wst/trunk/wst_global.inc
View File

@ -24,6 +24,15 @@
}
{ $DEFINE HAS_JSON_CLONE}
{$IFEND}
{$IF Defined(FPC_VERSION) and
( (FPC_VERSION > 2) or
( (FPC_VERSION = 2) and
(FPC_RELEASE > 4)
)
)
}
{$DEFINE WST_HAS_JSON_INT64}
{$IFEND}
{$IF Defined(FPC_VERSION) and (FPC_VERSION = 2) }
{$IF Defined(FPC_RELEASE) }
@ -31,8 +40,7 @@
{$define FPC_211}
{$IF Defined(FPC_RELEASE) and (FPC_RELEASE > 2) }
{$DEFINE WST_TKPROCVAR}
{$DEFINE WST_UNICODESTRING}
{$DEFINE WST_HAS_JSON_INT64}
{$DEFINE WST_UNICODESTRING}
{$IFEND}
{$IF Defined(FPC_RELEASE) and (FPC_RELEASE > 2) }
{$DEFINE TDOMNodeList_RELEASE_NOT_FREE}