command line - Launch 7zip and fetch the output from the console -


in lazarus (freepascal) project added tasyncprocess options: [pousepipes,postderrtooutput] catch output , show last line.

using readdata event, added code show last line if grab text:

procedure tform1.asyncprocess1readdata(sender: tobject); var   aoutput: tstringlist;   icpt: integer;   sline: string; begin   aoutput := tstringlist.create();   aoutput.loadfromstream(asyncprocess1.output);    if (aoutput.count > 0)   begin     setstatus(aoutput.strings[aoutput.count-1]);   end; end;   

then tryed last non-empty line:

procedure tform1.asyncprocess1readdata(sender: tobject); var   aoutput: tstringlist;   icpt: integer;   sline: string; begin   aoutput := tstringlist.create();   aoutput.loadfromstream(asyncprocess1.output);    if (aoutput.count > 0)   begin     // last non-empty line     icpt := (aoutput.count-1) 0     begin       sline := aoutput.strings[icpt];       if length(trim(sline)) > 0       begin         setstatus(sline);         break;       end;     end;   end; end;   

both shows nothing. i've used first code ffmpeg success. thanks!


Comments

Popular posts from this blog

java - Play! framework 2.0: How to display multiple image? -

gmail - Is there any documentation for read-only access to the Google Contacts API? -

php - Controller/JToolBar not working in Joomla 2.5 -