Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с получением данных от внешней програмы, Не доходят данные от внешней програмы 
:(
    Опции темы
elom
Дата 22.1.2008, 17:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Проблема следующая.
Есть GUI он запускает внешнюю консольную програму с параметрами и должен получит данные от програмы, в принципе сообщения об ошибках другие данные програма не возвращает. Я создал pipe и дочернему process который запускает програму передал handle на запись. Данные читаю с pipe. Я все сделал как было описано тут Тихий вызов внешней коммандно-лииевой программы, Чтоб ее вывод получить
Все работает при запуске в Builder 6. Когда запускаю просто файл exe вне Builder данные не приходят.
Помогите в чем проблема
Код такой
Код

        STARTUPINFO si = { sizeof(si) };
        PROCESS_INFORMATION pi;
        SECURITY_ATTRIBUTES sa;
        HANDLE hForWrite=NULL;
        HANDLE hForRead=NULL;

        sa.nLength=sizeof(sa);
        sa.lpSecurityDescriptor=NULL;
        sa.bInheritHandle=TRUE;
        CreatePipe(&hForRead,&hForWrite,&sa,0);

        GetStartupInfo(&si);
        si.dwFlags|=STARTF_USESTDHANDLES;
        si.hStdOutput=hForWrite;
        si.hStdError=hForWrite;
        si.dwFlags|=STARTF_USESHOWWINDOW;
        si.wShowWindow=SW_HIDE;
        CreateProcess(NULL,Comand_Line.c_str(),NULL,NULL
        ,TRUE,CREATE_DEFAULT_ERROR_MODE|CREATE_NEW_PROCESS_GROUP
        ,NULL,NULL,&si,&pi);

        // Wait until child process exits.
        WaitForSingleObject( pi.hProcess, INFINITE );

        DWORD NumberOfBytes=0;
        PeekNamedPipe(hForRead,0,0,0,&NumberOfBytes,0);
        
        if(0!=NumberOfBytes)
        {
                PTSTR pbuf=new TCHAR[NumberOfBytes];
                ReadFile(hForRead,pbuf,NumberOfBytes,&NumberOfBytes,NULL);
                RichEBuild->Lines->SetText(pbuf);
        }
        else RichEBuild->Lines->SetText("Success");

В Comand_Line передаеться полное имя програмы и параметры.
PM MAIL   Вверх
Damp1L
Дата 24.1.2008, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Хм.. и вправду такое наблюдается...
PM MAIL   Вверх
xvr
Дата 25.1.2008, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Добавь pipe для stdin

Код

 si.hStdInput = CreateFile("CONIN$",GENERIC_READ,0,&sa,OPEN_EXISTING,0,0);
PM MAIL   Вверх
elom
Дата 26.1.2008, 10:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата

Добавь pipe для stdin
Код

 si.hStdInput = CreateFile("CONIN$",GENERIC_READ,0,&sa,OPEN_EXISTING,0,0);
  

К сожалению без изменения все тоже    smile . Может че то не правильно делю:
Код

STARTUPINFO si = { sizeof(si) };
        PROCESS_INFORMATION pi;
        SECURITY_ATTRIBUTES sa;
        HANDLE hForWrite=NULL;
        HANDLE hForRead=NULL;

        sa.nLength=sizeof(sa);
        sa.lpSecurityDescriptor=NULL;
        sa.bInheritHandle=TRUE;
        int create_pipe=CreatePipe(&hForRead,&hForWrite,&sa,0);

        GetStartupInfo(&si);
        si.dwFlags|=STARTF_USESTDHANDLES;
        si.hStdInput = CreateFile("CONIN$",GENERIC_READ,0,&sa,OPEN_EXISTING,0,0);
        si.hStdOutput=hForWrite;
        si.hStdError=hForWrite;
        //si.dwFlags|=STARTF_USESHOWWINDOW;
        //si.wShowWindow=SW_HIDE;
        int create_process=CreateProcess(NULL,Comand_Line.c_str(),NULL,NULL
        ,TRUE,CREATE_DEFAULT_ERROR_MODE|CREATE_NEW_PROCESS_GROUP
        ,NULL,NULL,&si,&pi);

        // Wait until child process exits.
        WaitForSingleObject( pi.hProcess, INFINITE );

        DWORD NumberOfBytes=0;
        int pipe_is_ok=PeekNamedPipe(hForRead,0,0,0,&NumberOfBytes,0);
        if(0!=NumberOfBytes)//continue;
        {
                PTSTR pbuf=new TCHAR[NumberOfBytes];
                ReadFile(hForRead,pbuf,NumberOfBytes,&NumberOfBytes,NULL);
                RichEBuild->Lines->SetText(pbuf);
        }

Помогите smile.
Я вывел в файл значения функций которые вызываю CreateProcess CreatePipe все 1 возвращают.А NumberOfBytes=0
PM MAIL   Вверх
xvr
Дата 26.1.2008, 13:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Глупый вопрос - консольная программа, вывод которой ты пытаешься получить, Win32 или DOS программа? Для DOS программ это напрямую не работает.

Добавлено через 10 минут и 42 секунды
Да, попробуй еще убрать CREATE_NEW_PROCESS_GROUP из запуска процесса
PM MAIL   Вверх
elom
Дата 27.1.2008, 14:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
quote]
Да, попробуй еще убрать CREATE_NEW_PROCESS_GROUP из запуска процесса
[/quote]
Тоже безрезультатно. smile 
Цитата

Глупый вопрос - консольная программа, вывод которой ты пытаешься получить, Win32 или DOS программа? Для DOS программ это напрямую не работает.

Я запускаю компилятор MinGw gcc под виндой. Может ето и DOS програма - незнаю. А что делать если ето DOS програма? 
PM MAIL   Вверх
xvr
Дата 27.1.2008, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Цитата(elom @ 27.1.2008,  14:09)

Цитата

Глупый вопрос - консольная программа, вывод которой ты пытаешься получить, Win32 или DOS программа? Для DOS программ это напрямую не работает.

Я запускаю компилятор MinGw gcc под виндой. Может ето и DOS програма - незнаю. А что делать если ето DOS програма?

MinGw это не DOS программа. DOS программы надо запускать через Win32 console пускач.
А собственно MinGw стартует? Может до исполнения и не доходит. Проверь код возврата и попробуй еще запустить с перенаправлением потоков с коммандной строки (через '>'), посмотри что будет в перенаправленном файле, может он действительно пустой.

Это сообщение отредактировал(а) xvr - 27.1.2008, 14:31
PM MAIL   Вверх
elom
Дата 28.1.2008, 10:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата

А собственно MinGw стартует?

Он стартует. Более того если я запускаю прогу в Builder он нормально возвращает все найденные ошибки в коде. Но если запускать одельно просто exe файл то ни фига не возвращаеться. Я делал все одинаково токо один раз запустил под Builder а другой просто exe файл и в первый раз все пашет а во второй нет.
Цитата

Проверь код возврата и попробуй еще запустить с перенаправлением потоков с коммандной строки (через '>'), посмотри что будет в перенаправленном файле, может он действительно пустой.

Вопрос а как посмотреть код возврата?
Если перенаправит в файл, то он действительно пустой, так как ошибки выводяться в стандарный поток ошибок StdError. А как перенаправить в файл с етого потока, я не знаю может подскажете?
PM MAIL   Вверх
xvr
Дата 28.1.2008, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Цитата(elom @ 28.1.2008,  10:07)
Цитата

А собственно MinGw стартует?

Он стартует. Более того если я запускаю прогу в Builder он нормально возвращает все найденные ошибки в коде. Но если запускать одельно просто exe файл то ни фига не возвращаеться. 

Он может стартовать под Buildero'ом и обломаться без него
Цитата

Вопрос а как посмотреть код возврата?

Код

BOOL GetExitCodeProcess(
  HANDLE hProcess,
  LPDWORD lpExitCode
);

Цитата

Если перенаправит в файл, то он действительно пустой, так как ошибки выводяться в стандарный поток ошибок StdError. А как перенаправить в файл с етого потока, я не знаю может подскажете?

Код

MinGw qq.c -o qq.o 2> my_stderr_file.txt
PM MAIL   Вверх
elom
Дата 30.1.2008, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Подскажите как выполнить перенаправление в файл. Я в переменную командной строки Comand_Line добавил 2>E:\outerr.tmp 
Код

CreateProcess(NULL,Comand_Line.c_str(),NULL,NULL
        ,TRUE,CREATE_DEFAULT_ERROR_MODE
        ,NULL,NULL,&si,&pi);
 
Мне прога которую я запускаю - gcc возвращает, что 2>error.txt  не коректній параметр. Также попробывал через WinExec. Тоже не хочет выводить в файл.
В Comand_Line="D:\MinGW\bin\gcc.exe -o E:\main E:\main.c 2>E:\outerr.tmp"   smile 
PM MAIL   Вверх
xvr
Дата 30.1.2008, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Цитата(elom @ 30.1.2008,  14:49)
Подскажите как выполнить перенаправление в файл. Я в переменную командной строки Comand_Line добавил 2>E:\outerr.tmp 
Код

CreateProcess(NULL,Comand_Line.c_str(),NULL,NULL
        ,TRUE,CREATE_DEFAULT_ERROR_MODE
        ,NULL,NULL,&si,&pi);
 
Мне прога которую я запускаю - gcc возвращает, что 2>error.txt  не коректній параметр. Также попробывал через WinExec. Тоже не хочет выводить в файл.
В Comand_Line="D:\MinGW\bin\gcc.exe -o E:\main E:\main.c 2>E:\outerr.tmp"   smile

Попробуй cmd -c "D:\MinGW\bin\gcc.exe -o E:\main E:\main.c 2>E:\outerr.tmp", или вообще сложи эту строку в bat файл и запускай его
Кстати, какая ОС?
PM MAIL   Вверх
elom
Дата 31.1.2008, 00:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата

Кстати, какая ОС?


Windows XP 

Вывод через файл работает smile . Данные приходят. Компилятор нормально запускаеться. Как же релизовать через процесс?

Это сообщение отредактировал(а) elom - 31.1.2008, 01:05
PM MAIL   Вверх
xvr
Дата 31.1.2008, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Цитата(elom @ 31.1.2008,  00:44)
Цитата

Кстати, какая ОС?


Windows XP 

Вывод через файл работает smile . Данные приходят. Компилятор нормально запускаеться. Как же релизовать через процесс?

Вот, выдрал из рабочей программы.

Добавка к сорцам:
Код

typedef AnsiString NativeString;

inline size_t ns_size(NativeString ns) {return ns.Length();}
inline NativeString ns_substr(NativeString ns, size_t from, size_t len) {return ns.SubString(from+1,len);}
inline NativeString ns_generate(char sym, size_t len) {return AnsiString::StringOfChar(sym,len);}
inline size_t ns_pos(NativeString s, NativeString sym) {return s.Pos(sym)-1;}
inline void ns_delete(NativeString& s, size_t from, size_t len) {s.Delete(from+1,len);}


Это сообщение отредактировал(а) xvr - 31.1.2008, 15:38

Присоединённый файл ( Кол-во скачиваний: 14 )
Присоединённый файл  clexe.zip 2,59 Kb
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

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

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

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

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

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

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


 




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


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

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