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

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

@ -1,8 +1,8 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="7"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/> <MainUnitHasUsesSectionForAllUnits Value="False"/>
@ -12,10 +12,9 @@
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -28,13 +27,10 @@
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="1">
<Item1> <Item1>
<PackageName Value="wst_synapse"/>
</Item1>
<Item2>
<PackageName Value="wst_core"/> <PackageName Value="wst_core"/>
</Item2> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="2"> <Units Count="2">
<Unit0> <Unit0>
@ -50,18 +46,19 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="9"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="user_client_console.exe"/> <Filename Value="user_client_console.exe"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="..\;..\..\;..\..\fcl-units\fcl-json\src\"/> <OtherUnitFiles Value="..\;..\..\;..\..\fcl-units\fcl-json\src\;$(LazarusDir)\others_package\synapse\"/>
<UnitOutputDirectory Value="obj"/> <UnitOutputDirectory Value="obj"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<CStyleOperator Value="False"/> <CStyleOperator Value="False"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Linking> <Linking>
@ -72,6 +69,9 @@
<LinkSmart Value="True"/> <LinkSmart Value="True"/>
</Linking> </Linking>
<Other> <Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </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=172.16.82.31;Port=1234;target=UserService',
'TCP:Address=127.0.0.1;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: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 var
buffTransport, buffFormat : string; buffTransport, buffFormat : string;
begin begin
if ( TransportType = ttHTTP ) then if ( TransportType = ttHTTP ) then
buffTransport := Format('%s/?format=%s',[ADDRESS_MAP[TransportType],FORMAT_MAP[FormatValue]]) buffTransport := Format('%s/?format=%s',[ADDRESS_MAP[TransportType],FORMAT_MAP[FormatValue]])
//buffTransport := Format(ADDRESS_MAP[TransportType],[FORMAT_MAP[FormatValue]])
else else
buffTransport := ADDRESS_MAP[TransportType]; buffTransport := ADDRESS_MAP[TransportType];
if ( TransportType = ttLibrary ) then if ( TransportType = ttLibrary ) then

12
wst/trunk/wst_global.inc
View File

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