Преглед на файлове

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

git-svn-id: trunk@27762 -
michael преди 11 години
родител
ревизия
50353c6f6a
променени са 1 файла, в които са добавени 1 реда и са изтрити 0 реда
  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);