You've already forked lazarus-ccr
+Serialization of compound element ( TBaseComplexRemotable ) is now handle by TObjectSerializer that can read/write elements of different name spaces
+Fix server side SOAP headers reading. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@533 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@@ -32,13 +32,10 @@ Type
|
||||
{$M+}
|
||||
TBinaryFormatter = class(TBaseBinaryFormatter,IFormatterClient)
|
||||
private
|
||||
FPropMngr : IPropertyManager;
|
||||
FCallProcedureName : string;
|
||||
FCallTarget : String;
|
||||
protected
|
||||
public
|
||||
function GetPropertyManager():IPropertyManager;
|
||||
|
||||
procedure BeginCall(
|
||||
const AProcName,
|
||||
ATarget : string;
|
||||
@@ -55,7 +52,7 @@ Type
|
||||
{ TBinaryCallMaker }
|
||||
|
||||
TBinaryCallMaker = class(TSimpleFactoryItem,ICallMaker)
|
||||
Private
|
||||
private
|
||||
FPropMngr : IPropertyManager;
|
||||
Public
|
||||
constructor Create();override;
|
||||
@@ -69,13 +66,6 @@ Type
|
||||
|
||||
implementation
|
||||
|
||||
function TBinaryFormatter.GetPropertyManager(): IPropertyManager;
|
||||
begin
|
||||
If Not Assigned(FPropMngr) Then
|
||||
FPropMngr := TPublishedPropertyManager.Create(Self);
|
||||
Result := FPropMngr;
|
||||
end;
|
||||
|
||||
procedure TBinaryFormatter.BeginCall(
|
||||
const AProcName,
|
||||
ATarget : string;
|
||||
|
||||
Reference in New Issue
Block a user