Browse Source

* Fixed bug #26007, due to change in behaviour of TStringStream

git-svn-id: trunk@27762 -
michael 11 years ago
parent
commit
50353c6f6a
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-process/src/simpleipc.pp

+ 1 - 0
packages/fcl-process/src/simpleipc.pp

@@ -351,6 +351,7 @@ begin
   CheckActive;
   FBusy:=True;
   Try
+    FMsgData.Size:=0;
     FIPCComm.ReadMessage;
     If Assigned(FOnMessage) then
       FOnMessage(Self);