* fix #26007 move size=0 of r27762 to OS specific code, otherwise it prohibits

   async reading of the stream. (windows first reads streams, then executes
   readmessage)

git-svn-id: trunk@28305 -

packages/fcl-process/src/os2/simpleipc.inc

@@ -171,6 +171,7 @@ begin
   Owner.FMsgType := Hdr.MsgType;
   if Hdr.MsgLen > 0 then
     begin
+      Owner.FMsgData.Size:=0;
       Owner.FMsgData.Seek (0, soFromBeginning);
       Owner.FMsgData.CopyFrom (FStream, Hdr.MsgLen);
     end

packages/fcl-process/src/simpleipc.pp

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

packages/fcl-process/src/unix/simpleipc.inc

@@ -261,6 +261,7 @@ begin
   M:=MsgData;
   if count > 0 then
     begin
+    M.Size:=0;
     M.Seek(0,soFrombeginning);
     M.CopyFrom(FStream,Count);
     end

packages/fcl-process/src/win/simpleipc.inc

@@ -169,6 +169,7 @@ Var
 begin
   CDS:=PCopyDataStruct(Msg.Lparam);
   Owner.FMsgType:=CDS^.dwData;
+  Owner.FMsgData.Size:=0;
   Owner.FMsgData.Seek(0,soFrombeginning);
   Owner.FMsgData.WriteBuffer(CDS^.lpData^,CDS^.cbData);
 end;

packages/fcl-process/src/wince/simpleipc.inc

@@ -168,6 +168,7 @@ Var
 
 begin
   CDS:=PCopyDataStruct(Msg.Lparam);
+  Owner.FMsgData.Size:=0;
   Owner.FMsgData.Seek(0,soFrombeginning);
   Owner.FMsgData.WriteBuffer(CDS^.lpData^,CDS^.cbData);
 end;