On Friday 02 September 2011 13:25:49 minoshi wrote:
> 02.09.2011 11:16, minoshi пишет:
> > Do you want to remove these packages?==true== [Y/n] ==true==checking
> > dependencies...
>
> Second ==true== is when i send 'No' in tterminal
Please test
"
procedure tterminal.doinputavailable(const sender: tpipereader);
var
str1: string;
int1: integer;
begin
try
if teo_bufferchunks in foptions then begin
str1:= sender.readbuffer;
end
else begin
str1:= sender.readdatastring;
end;
if not (csdestroying in componentstate) then begin
if canevent(tmethod(fonreceivetext)) then begin
fonreceivetext(self,str1,sender = fprocess.erroroutput.pipereader);
<<<<<<<<<<<<<<------
end;
addchars(str1);
if teo_bufferchunks in foptions then begin
int1:= application.unlockall;
sleepus(0); //sched_yield
application.relockall(int1);
end;
end;
except
end;
end;
"
why "sender = fprocess.erroroutput.pipereader" although fprocess.erroroutput
should be inactive if pro_errorouttoout is set.
What returns the test program
"
program testprog;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
{$ifdef mswindows}{$apptype console}{$endif}
uses
{$ifdef FPC}{$ifdef linux}cthreads,cwstring,{$endif}{$endif}
sysutils,msesysutils;
begin
writeln(stderr,'stderr1');
writeln(output,'stdout1');
writeln(stderr,'stderr2');
writeln(output,'stdout2');
end.
"?
I get
"
stdout1
stdout2
stderr1
stderr2
"
if pro_errorouttoout is false and
"
stderr1
stdout1
stderr2
stdout2
"
if pro_errorouttoout is true.
Martin
_______________________________________________
MSEide-MSEgui-talk mailing list
[email protected]
https://lists.berlios.de/mailman/listinfo/mseide-msegui-talk
