lazarus-ccr/wst/trunk/wst_delphi.inc

{$IFNDEF HAS_QWORD}
  type
    QWord = type Int64;
    DWORD = LongWord;
    PtrInt = Cardinal;
    PByteArray = ^ByteArray;
    ByteArray = array[0..$effffff] of Byte;
{$ENDIF}
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			`{$IFNDEF HAS_QWORD}`
			`type`
			`QWord = type Int64;`
			`DWORD = LongWord;`
			`PtrInt = Cardinal;`
			`PByteArray = ^ByteArray;`
			`ByteArray = array[0..$effffff] of Byte;`
			`{$ENDIF}`