- Type Library Editor : array support

- better Delphi support
- server listeners refactored to ease service creation

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@214 8e941d3f-bd1b-0410-a28a-d453659cc2b4

wst/trunk/same_process_protocol.pas

@@ -36,6 +36,7 @@ Type
   Private
     FAdress: string;
     FContentType: string;
+    FFormat : string;
     FPropMngr : IPropertyManager;
   Public
     constructor Create();override;
@@ -45,6 +46,7 @@ Type
   Published
     property ContentType : string Read FContentType Write FContentType;
     property Adress : string Read FAdress Write FAdress;
+    property Format : string read FFormat write FFormat;
   End;
 {$M+}
 
@@ -78,7 +80,7 @@ Var
   i : Int64;
 {$ENDIF WST_DBG}
 begin
-  bffr := TRequestBuffer.Create(Adress,ContentType,ARequest,AResponse);
+  bffr := TRequestBuffer.Create(Adress,ContentType,ARequest,AResponse,Format);
   HandleServiceRequest(bffr);
   {$IFDEF WST_DBG}
   i := AResponse.Position;