использование стандартного ввода/вывода для конс. приложений

← →
DmT (2007-12-30 22:07) [0]

покажите пожалуйста пример стандартного ввода/вывода в/из консольные(х) приложения(й) из программы на делфи
ну к примеру набрать в cmd.exe строчку "ping www.delphimaster.ru" и забрать от туда то что он ответит(пусть всё в TMemo кладет)

← →
palva © (2007-12-30 22:29) [1]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=736

← →
DmT (2007-12-31 00:32) [2]

спс
только что делать с кодировками, а то это:
Microsoft Windows XP [‚ҐабЁп 5.1.2600]
(‘) Љ®аЇ®а жЁп Њ ©Єа®б®дв, 1985-2001.
меня не устраивает

← →
{RASkov} © (2007-12-31 04:12) [3]

> [2] DmT (31.12.07 00:32)

program Project1; {$APPTYPE CONSOLE} uses Windows; function StrToRus(const AStr: String): String; begin Result:=""; if length(AStr)>0 then begin SetLength(Result, Length(AStr)); CharToOem(PChar(AStr), PChar(Result)); end; end; begin Writeln(StrToRus("АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧЩШЫЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчщшъ ыьэюя")); Readln; end.

PS: За русский алфавит не ручаюсь) ...мог и наврать)

Наверно нужно делать наоборот. Утилиты командной строки типа ping выдают текст в кодировке OEM. Чтобы увидеть нормальные русские буквы в мемо-поле нужно перекодировать в ANSI, т. е.
OemToChar(PChar(AStr), PChar(Result));
как это делают в http://www.delphikingdom.com/asp/viewitem.asp?catalogid=801

← →
DmT (2007-12-31 19:17) [5]

спс
а вот ipconfig не поддается. все равно кракозябры вылазят(((
// через 3 часа новый год! поздравляю!

использование стандартного ввода/вывода для конс. приложений Найти похожие ветки