lazarus-ccr/wst/trunk/wst_delphi.inc

{$IFDEF DELPHI}
  type
  {$IFDEF CompilerVersion}
    {$IF ( CompilerVersion > 16.0 )}
      QWord = UInt64;
    {$IFEND}
  {$ENDIF CompilerVersion}
  {$IF Not Declared(QWord) }
    QWord = type Int64;
  {$IFEND
  }  
    DWORD = LongWord;
    PtrInt = Integer;
    PByteArray = ^ByteArray;
    ByteArray = array[0..$effffff] of Byte;
    PtrUInt = Cardinal;
    SizeInt = Longint;
    UnicodeChar = WideChar;
{$ENDIF DELPHI}
+Delphi : QWord = UInt64 for CompilerVersion > 16.0 +THeaderBlockProxy : This class is used as a wrapper to allow a TBaseRemotable instance to be sent and received as a header block +ICallContext.AddHeader() : Overload to support classes that do not inherit from THeaderBlock +TTypeRegistryItem.AddExternalSynonym(), TTypeRegistryItem.IsExternalSynonym() Usefull when a xsd defines a complex type and a "element" which type is the complex one. +TTypeRegistry.FindByDeclaredName(): Add an option to include the external synonyms in the search git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@744 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2009-03-18 15:53:10 +00:00			`{$IFDEF DELPHI}`
client : new TCP transport implementation ( using synapse library ) in synapse_tcp_protocol.pas server : TCP server implementatiion ( using synapse library ) in synapse_tcp_server.pas Delphi : first binary format support bugs fix in the WSDL generation for the server side git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@158 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2007-05-02 22:55:35 +00:00			`type`
+Delphi : QWord = UInt64 for CompilerVersion > 16.0 +THeaderBlockProxy : This class is used as a wrapper to allow a TBaseRemotable instance to be sent and received as a header block +ICallContext.AddHeader() : Overload to support classes that do not inherit from THeaderBlock +TTypeRegistryItem.AddExternalSynonym(), TTypeRegistryItem.IsExternalSynonym() Usefull when a xsd defines a complex type and a "element" which type is the complex one. +TTypeRegistry.FindByDeclaredName(): Add an option to include the external synonyms in the search git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@744 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2009-03-18 15:53:10 +00:00			`{$IFDEF CompilerVersion}`
			`{$IF ( CompilerVersion > 16.0 )}`
			`QWord = UInt64;`
			`{$IFEND}`
			`{$ENDIF CompilerVersion}`
			`{$IF Not Declared(QWord) }`
client : new TCP transport implementation ( using synapse library ) in synapse_tcp_protocol.pas server : TCP server implementatiion ( using synapse library ) in synapse_tcp_server.pas Delphi : first binary format support bugs fix in the WSDL generation for the server side git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@158 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2007-05-02 22:55:35 +00:00			`QWord = type Int64;`
+Delphi : QWord = UInt64 for CompilerVersion > 16.0 +THeaderBlockProxy : This class is used as a wrapper to allow a TBaseRemotable instance to be sent and received as a header block +ICallContext.AddHeader() : Overload to support classes that do not inherit from THeaderBlock +TTypeRegistryItem.AddExternalSynonym(), TTypeRegistryItem.IsExternalSynonym() Usefull when a xsd defines a complex type and a "element" which type is the complex one. +TTypeRegistry.FindByDeclaredName(): Add an option to include the external synonyms in the search git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@744 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2009-03-18 15:53:10 +00:00			`{$IFEND`
			`}`
client : new TCP transport implementation ( using synapse library ) in synapse_tcp_protocol.pas server : TCP server implementatiion ( using synapse library ) in synapse_tcp_server.pas Delphi : first binary format support bugs fix in the WSDL generation for the server side git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@158 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2007-05-02 22:55:35 +00:00			`DWORD = LongWord;`
Delphi pooling is ok git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@215 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2007-07-18 11:23:56 +00:00			`PtrInt = Integer;`
client : new TCP transport implementation ( using synapse library ) in synapse_tcp_protocol.pas server : TCP server implementatiion ( using synapse library ) in synapse_tcp_server.pas Delphi : first binary format support bugs fix in the WSDL generation for the server side git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@158 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2007-05-02 22:55:35 +00:00			`PByteArray = ^ByteArray;`
			`ByteArray = array[0..$effffff] of Byte;`
+ TStringBufferRemotable = reading a node's raw buffer + Better Delphi support : client & server( new ) - SOAP, XMLRPC and BINARY formats git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@212 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2007-07-12 14:46:45 +00:00			`PtrUInt = Cardinal;`
Delphi server side support ( binary, soap, xmlrpc ): - the Indy http_server compile and works - for xml, the Delphi xmldom unit as used ( tested with msxml ) git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@213 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2007-07-13 22:33:55 +00:00			`SizeInt = Longint;`
Delphi 2009 support git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@626 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2008-12-12 22:02:35 +00:00			`UnicodeChar = WideChar;`
+Delphi : QWord = UInt64 for CompilerVersion > 16.0 +THeaderBlockProxy : This class is used as a wrapper to allow a TBaseRemotable instance to be sent and received as a header block +ICallContext.AddHeader() : Overload to support classes that do not inherit from THeaderBlock +TTypeRegistryItem.AddExternalSynonym(), TTypeRegistryItem.IsExternalSynonym() Usefull when a xsd defines a complex type and a "element" which type is the complex one. +TTypeRegistry.FindByDeclaredName(): Add an option to include the external synonyms in the search git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@744 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2009-03-18 15:53:10 +00:00			`{$ENDIF DELPHI}`