From 08f0ab3254c3578a3b7c50066640ecf611fe292f Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 7 Oct 2009 12:26:58 +0000
Subject: [PATCH] DateTime, Duration and Time argument creation ( Avoid AV )

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

diff --git a/wst/trunk/base_service_intf.pas b/wst/trunk/base_service_intf.pas
index 71c355333..bf8f879cb 100644
--- a/wst/trunk/base_service_intf.pas
+++ b/wst/trunk/base_service_intf.pas
@@ -5743,6 +5743,8 @@ begin
     try
       strBuffer := '';
       AStore.GetScopeInnerValue(TypeInfo(string),strBuffer);
+      if ( AObject = nil ) then    
+        AObject := Create();
       (AObject as TBaseDateRemotable).AsString := strBuffer
     finally
       AStore.EndScopeRead();
@@ -6513,7 +6515,9 @@ begin
     try
       strBuffer := '';
       AStore.GetScopeInnerValue(TypeInfo(string),strBuffer);
-      TDurationRemotable(AObject).Parse(strBuffer);
+      if ( AObject = nil ) then
+        AObject := Create();
+      TDurationRemotable(AObject).AsString := strBuffer;
     finally
       AStore.EndScopeRead();
     end;
@@ -6881,6 +6885,8 @@ begin
     try
       strBuffer := '';
       AStore.GetScopeInnerValue(TypeInfo(string),strBuffer);
+      if ( AObject = nil ) then
+        AObject := Create();
       if IsStrEmpty(strBuffer) then
         (AObject as TTimeRemotable).Clear()
       else