Прогресс бар как уровень загрузки из консольдного окна

[Jleksern]

Здравствуйте, собственно хочу узнать...

Возможно ли сделать прогресс бар который будет отображать уровень загрузки из консольдного окна.

В консоле загружаются загружаются java скрипты.... java исходник не имею.

В принципе как Я думаю, сделать чтоб делфи "читала" текст из консоли, исходя из нее в делфи определяется последняя строка и уровень загрузки прогресс бара повышается...
примерно так распределить степень загрузки в процесс баре...

Где-то в течении минуты-двух идет загрузка на моем компьютере, и постоянно появляются отчет о том что была загружена какая-то библиотека и так далее...

Собственно возможно ли такое или как-то можно по проще такое сделать?

[Alex11223]

Ну читайте, кто мешает?
Как-то так: (код отсюда http://stackoverflow.com/questions/1...-while-running, просто выводит текст в мемо)

procedure RunDosInMemo(DosApp: String; AMemo: TMemo) ;
const
  ReadBuffer = 2400;
var
  Security    : TSecurityAttributes;
  ReadPipe,
  WritePipe   : THandle;
  start       : TStartUpInfo;
  ProcessInfo : TProcessInformation;
  Buffer      : Pchar;
  BytesRead   : DWord;
  Apprunning  : DWord;

begin
  Security.nlength := SizeOf(TSecurityAttributes) ;
  Security.binherithandle := true;
  Security.lpsecuritydescriptor := nil;
  if Createpipe (ReadPipe, WritePipe, @Security, 0) then 
  begin
    Buffer := AllocMem(ReadBuffer + 1) ;
    FillChar(Start,Sizeof(Start),#0) ;
    start.cb := SizeOf(start) ;
    start.hStdOutput := WritePipe;
    start.hStdInput := ReadPipe;
    start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
    start.wShowWindow := SW_HIDE;
    if CreateProcess(nil,
                     PChar(DosApp),
                     @Security,
                     @Security,
                     true,
                     NORMAL_PRIORITY_CLASS,
                     nil,
                     nil,
                     start,
                     ProcessInfo) then
    begin
      repeat
        Apprunning := WaitForSingleObject(ProcessInfo.hProcess,100);
        Application.ProcessMessages;
      until (Apprunning <> WAIT_TIMEOUT) ;
      repeat
        BytesRead := 0;
        ReadFile(ReadPipe,Buffer[0],
        ReadBuffer,BytesRead,nil) ;
        Buffer[BytesRead]:= #0;
        OemToAnsi(Buffer,Buffer) ;
        AMemo.Text := AMemo.text + String(Buffer) ;
      until (BytesRead < ReadBuffer) ;
    end;
    FreeMem(Buffer) ;
    CloseHandle(ProcessInfo.hProcess) ;
    CloseHandle(ProcessInfo.hThread) ;
    CloseHandle(ReadPipe) ;
    CloseHandle(WritePipe) ;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject) ;
begin
  RunDosInMemo('chkdsk.exe c:\', Memo1) ;
end;

[Stilet]

Откуда такая уверенность что ты знаешь окончание работы консоли?
Да и зачем, если всетки консоль что-то выводит, демонстрируя свою активность?

[Jleksern]

Сообщение от Alex11223

Ну читайте, кто мешает?
Как-то так: (код отсюда http://stackoverflow.com/questions/1...-while-running, просто выводит текст в мемо)

Спасибо месье за помощь, но вот не задача, на делфи более новых версиях (XE2) слегка матюкается...

[DCC Error] Unit1.pas(74): E2010 Incompatible types: 'PAnsiChar' and 'PWideChar'

На эту строку.

  OemToAnsi(Buffer,Buffer) ;

[Stilet]

А ты везде PChar замени на PAnsiChar.

[Jleksern]

Уже обрадовался при виде компиляции без ошибок.

При нажатии на кнопку вызова процедуры "RunDosInMemo" вылезла проблема, жалуется на некую библиотеку KERNELBASE.DLL

[Jleksern]

Ребята, кто знает в чем проблема или есть другой способ получить тот же результат?

 Откуда такая уверенность что ты знаешь окончание работы консоли?

Дело в том что в консоле отображаются загружается java сервер, и в консоль идет сообщение о том что загрузилось что либо.
Всегда сообщения одни и те же, я планию по ним сделать вывод в прогрессбар о степени загрузки.
При окончании есть строка которая обозначает что всё загрузилось.