VPF::Вырыл в нете очень полезный код для работы с CMD

Bes

Дата 10.10.2005, 11:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

С помощью этого кода можно получать в своем приложении ответы командной строки.

Код


function GetDosOutput(OutPutStrind: TStrings;
  const CommandLine: string): string;
var
SA: TSecurityAttributes;
SI: TStartupInfo; 
PI: TProcessInformation;
StdOutPipeRead, StdOutPipeWrite: THandle;
WasOK: Boolean; 
Buffer: array[0..255] of Char; 
BytesRead: Cardinal; 
Line,Res: String;
begin 
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; 

// Запускаем компилятор из командной строки
WasOK := CreateProcess(nil, PChar(CommandLine), nil, nil, True, 0, nil, nil, 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 :=  Buffer;
SetLength(Res,Length(Line));
OemToAnsi(pchar(Line),pchar(Res));
OutPutStrind.Add(Res);
form1.Refresh;
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;

проблема в том, что например такие команды как
ping 192.168.0.1 выполняются и отображаются корректно а
такие как
dir C:\или
c:\winnt\notepad.exe
гворит не могу.
А какой тогда прок от CMD-шки если даже лист в директории не посмотреть.
Думаю, этот код мог бы украсить копилку ВинГрада, только надо с ним разобраться
Заренее благодарен.

Это сообщение отредактировал(а) Bes - 10.10.2005, 11:37

_hunter

Дата 10.10.2005, 11:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

а ты попробуй найти файл dir.exe ;)
а notepad.exe не консольный. что ты у него перехватить хочеш?

--------------------

Tempora mutantur, et nos mutamur in illis...

Snowy

Дата 10.10.2005, 12:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 30
Всего: 484

Цитата(Bes @ 10.10.2005, 11:35)

dir C:\или

потому что "cmd /c dir C:\"

Цитата(Bes @ 10.10.2005, 11:35)

c:\winnt\notepad.exe

А эта комманда не создает консоль.

Bes

Дата 10.10.2005, 13:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

нет, но вы же можете такие команды писать в обычной консоли в CMD. Почему же так не пролазит.

Цитата

а ты попробуй найти файл dir.exe ;)

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

Цитата

а notepad.exe не консольный. что ты у него перехватить хочеш?

см. п. 1-й то же самое что и в обычной консоли запуск блокнота

_hunter

Дата 10.10.2005, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

Цитата

так что при чем тут...

при чем, при чем smile

Цитата

см. п. 1-й то же самое что и в обычной консоли запуск блокнота

а этого я не понял... ты сообщение об ошибке получить хочеш?

--------------------

Tempora mutantur, et nos mutamur in illis...

Bes

Дата 10.10.2005, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

а у тебя что при запуске блкнота из консоли сообщение об ошибке выскакивает?
Добавлено @ 13:36
или я где то в своем сообщении написал dir.exe?

_hunter

Дата 10.10.2005, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

Цитата

а у тебя что при запуске блкнота из консоли сообщение об ошибке выскакивает?

при выполнении той команды, что ты написал -- да. при выполнении адаптированной к моей машине -- нет ( и вообще ничего не появляется ) поэтому что ты хочеш увидеть -- непонятно

Цитата

или я где то в своем сообщении написал dir.exe?

не написал, но вызываеш CreateProcess() ( т.е. предполагаеш его ( dir.exe ( или dir.com ) ) наличие на диске )

P.S.
как поступать в таком случае Snowy написал...

--------------------

Tempora mutantur, et nos mutamur in illis...

Bes

Дата 10.10.2005, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

т.е. ты хочешь сказать что данный код не отражает в полной мере консоль - есть какие то ограничения.
а вот если я в консоли пишу c:\winnt\notepad.exe то у меня запускается блокнот
Добавлено @ 14:06
короче, я понял перед любой командой надо писать "cmd /c " и все будет ок

Snowy

Дата 13.10.2005, 09:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 30
Всего: 484

Просто комманды dir, cd и прочие DOS комманды не могут быть запущены как программа, т.к. программами не являются.
Это комманды cmd (command в 9x).
Поэтому для их выполнения необходимо запустить сам cmd и сказать ему, чтобы выполнил одну из своих комманд.
Ошибка для неконсольных программ возникает оттого, что не создается консоль, поэтому связаться с создаваемой консолью нельзя, т.к. ее просто нет.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »