From 4d7e7661991e6d76c855282bec4f39bfc5e133f7 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 4 Aug 2008 15:31:54 +0000
Subject: [PATCH] TBase64StringRemotable serialization correction , from Joost
 van der Sluis

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@522 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/base_service_intf.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wst/trunk/base_service_intf.pas b/wst/trunk/base_service_intf.pas
index a17943a4d..ba23508ec 100644
--- a/wst/trunk/base_service_intf.pas
+++ b/wst/trunk/base_service_intf.pas
@@ -5599,7 +5599,7 @@ var
   buffer : string;
 begin
   if ( AObject <> nil ) then
-    buffer := TBase64StringRemotable(AObject).BinaryData
+    buffer := TBase64StringRemotable(AObject).EncodedString
   else
     buffer := '';
   AStore.Put(AName,TypeInfo(string),buffer);