forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix #33, piping a pre or post build process leads to AV

This commit is contained in:
Basile Burg 2015-08-28 17:57:42 +02:00
parent ebebf27243
commit abdddf29c0
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_nativeproject.pas
View File

@ -744,24 +744,26 @@ end;
procedure TCENativeProject.runProcOutput(sender: TObject); procedure TCENativeProject.runProcOutput(sender: TObject);
var var
proc: TCEProcess;
lst: TStringList; lst: TStringList;
str: string; str: string;
msgs: ICEMessagesDisplay; msgs: ICEMessagesDisplay;
begin begin
proc := TCEProcess(sender);
lst := TStringList.Create; lst := TStringList.Create;
msgs := getMessageDisplay; msgs := getMessageDisplay;
try try
proc.getFullLines(lst); if (sender is TCEProcess) then
(sender as TCEProcess).getFullLines(lst)
else
processOutputToStrings(TProcess(sender), lst);
for str in lst do for str in lst do
msgs.message(str, Self, amcProj, amkBub); msgs.message(str, Self, amcProj, amkBub);
finally finally
lst.Free; lst.Free;
end; end;
// //
if not proc.Active then if not TProcess(sender).Active then
getprocInputHandler.removeProcess(proc); getprocInputHandler.removeProcess(TProcess(sender));
end; end;
procedure TCENativeProject.compProcOutput(proc: TProcess); procedure TCENativeProject.compProcOutput(proc: TProcess);