Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Консольное приложение, перехват сообщений 
:(
    Опции темы
XperT
Дата 28.8.2006, 23:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: 2
Всего: 4
У меня есть програма консольная. Я решил для неё сделать графический интерфейс, но так как у меня исходников нету, то соответственно в идеале не получится  smile 

Вообщем суть проблемы такова:
Програма (та что консольная) в процесе работы имитирует процес бар, ну и сбоку пишет процент выполнения. Как мне в ходе ее работы перехватывать тот процент и посылать его на свой графический процес бар?
PM MAIL   Вверх
Snowy
Дата 29.8.2006, 00:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Захватывать вывод консоли: http://vingrad.ru/DELPHI-DLP-000823
PM MAIL   Вверх
XperT
Дата 29.8.2006, 11:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: 2
Всего: 4
Код

unit consoleoutput;  

interface 

uses 
 Controls, Windows, SysUtils, Forms; 

function GetDosOutput(const CommandLine:string): string; 

implementation 

function GetDosOutput(const CommandLine:string): string; 
var 
 SA: TSecurityAttributes; 
 SI: TStartupInfo; 
 PI: TProcessInformation; 
 StdOutPipeRead, StdOutPipeWrite: THandle; 
 WasOK: Boolean; 
 Buffer: array[0..255] of Char; 
 BytesRead: Cardinal; 
 WorkDir, Line: String; 
begin 
 Application.ProcessMessages; 
 with SA do 
 begin 
   nLength := SizeOf(SA); 
   bInheritHandle := True; 
   lpSecurityDescriptor := nil; 
 end; 
 // создаём пайп для перенаправления стандартного вывода 
 CreatePipe(StdOutPipeRead,  // дескриптор чтения 
            StdOutPipeWrite, // дескриптор записи 
            @SA,              // аттрибуты безопасности 
            0                // количество байт принятых для пайпа - 0 по умолчанию 
            ); 
 try 
   // Создаём дочерний процесс, используя StdOutPipeWrite в качестве стандартного вывода, 
   // а так же проверяем, чтобы он не показывался на экране. 
   with SI do 
   begin 
     FillChar(SI, SizeOf(SI), 0); 
     cb := SizeOf(SI); 
     dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES; 
     wShowWindow := SW_HIDE; 
     hStdInput := GetStdHandle(STD_INPUT_HANDLE); // стандартный ввод не перенаправляем 
     hStdOutput := StdOutPipeWrite; 
     hStdError := StdOutPipeWrite; 
   end; 

   // Запускаем компилятор из командной строки 
   WorkDir := ExtractFilePath(CommandLine); 
   WasOK := CreateProcess(nil, PChar(CommandLine), nil, nil, True, 0, nil, PChar(WorkDir), SI, PI); 

   // Теперь, когда дескриптор получен, для безопасности закрываем запись. 
   // Нам не нужно, чтобы произошло случайное чтение или запись. 
   CloseHandle(StdOutPipeWrite);  
   // если процесс может быть создан, то дескриптор, это его вывод 
   if not WasOK then 
     raise Exception.Create('Could not execute command line!') 
   else 
     try 
       // получаем весь вывод до тех пор, пока DOS-приложение не будет завершено 
       Line := ''; 
       repeat 
         // читаем блок символов (могут содержать возвраты каретки и переводы строки) 
         WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil); 

         // есть ли что-нибудь ещё для чтения? 
         if BytesRead > 0 then 
         begin 
           // завершаем буфер PChar-ом 
           Buffer[BytesRead] := #0; 
           // добавляем буфер в общий вывод 
           Line := Line + Buffer; 
         end; 
       until not WasOK or (BytesRead = 0); 
       // ждём, пока завершится консольное приложение 
       WaitForSingleObject(PI.hProcess, INFINITE); 
     finally 
       // Закрываем все оставшиеся дескрипторы 
       CloseHandle(PI.hThread); 
       CloseHandle(PI.hProcess); 
     end; 
 finally 
     result:=Line; 
     CloseHandle(StdOutPipeRead); 
 end; 
end; 


end. 


Насколько я понял, то я получу только конечный результат, тоесть текст после завершения роботы програмы, а мне нужно в процесе работы програмы перехватывать даные.

Это сообщение отредактировал(а) XperT - 29.8.2006, 11:59
PM MAIL   Вверх
Romikgy
Дата 29.8.2006, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Цитата(XperT @  29.8.2006,  10:59 Найти цитируемый пост)
а мне нужно в процесе работы програмы перехватывать даные.

ну и че приведеный код это не позволяет делать ?


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
dumb
Дата 29.8.2006, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 13
Всего: 158
есть подозрение, что консольное приложение работает напрямую с консолью(WriteConsoleOutput), а не через стандартные дескрипторы. ловить такое наверное проще всего через перехват консольных функций.
PM MAIL   Вверх
XperT
Дата 29.8.2006, 13:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: 2
Всего: 4
Цитата(Romikgy @  29.8.2006,  12:13 Найти цитируемый пост)
ну и че приведеный код это не позволяет делать ? 


Я в этом коде мало что понял. Можешь просто указать на строчку с которой можно тянуть даные или навести какой то элементарный пример выходя из которого я смог бы реализовать то что мне нужно?
PM MAIL   Вверх
Snowy
Дата 29.8.2006, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Ну так переделай под свои нужны.
Чтение идёт в цикле.
Вот в цикле и работай.
Данный вариант выдаёт результат по завершении программы.
Но ничего не мешает встроиться в цикл и обрабатывать данные, читаемые там.
PM MAIL   Вверх
Romikgy
Дата 29.8.2006, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Цитата(XperT @  29.8.2006,  12:18 Найти цитируемый пост)
с которой можно тянуть даные


Цитата(XperT @  29.8.2006,  10:59 Найти цитируемый пост)
ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);




--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
XperT
Дата 29.8.2006, 15:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: 2
Всего: 4
Не получается. Я думаю проблема в следущем:

Эта консольная полоса процеса с процентами после завершения пропадает, и её заменяет текст (ну там типа всё прошло удачно). 

Я пытался считать с этой строки ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil); буфер, но получал только текст который идёт уже после того как полоса прогреса пропадает. 
PM MAIL   Вверх
Romikgy
Дата 29.8.2006, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
тогда ищи окно этой консоли и забирай данные с этой консоли


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
XperT
Дата 29.8.2006, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: 2
Всего: 4
Цитата(Romikgy @  29.8.2006,  15:55 Найти цитируемый пост)
тогда ищи окно этой консоли и забирай данные с этой консоли 


Пример если не сложно дай пожалуйста.
PM MAIL   Вверх
Romikgy
Дата 29.8.2006, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
а ты скрин дай твоего окна, дабы напрасно не писать пример


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
XperT
Дата 29.8.2006, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: 2
Всего: 4
До (когда есть полоса прогреса):

user posted image

После:

user posted image
PM MAIL   Вверх
Snowy
Дата 29.8.2006, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Мог бы так и сказать, что UPX.
Он же с открытым кодом.
Нафига мучаться?
PM MAIL   Вверх
Romikgy
Дата 29.8.2006, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
странно что не работает первый код


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0641 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.