Форум: "Начинающим";
Текущий архив: 2008.01.27;
Скачать: [xml.tar.bz2];
Внизиспользование стандартного ввода/вывода для конс. приложений Найти похожие ветки
← →
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: За русский алфавит не ручаюсь) ...мог и наврать)
← →
palva © (2007-12-31 09:57) [4]Наверно нужно делать наоборот. Утилиты командной строки типа 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 часа новый год! поздравляю!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.01.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c