Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.01.27;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
2-1199012805
dim
2007-12-30 14:06
2008.01.27
Вывод на печать


2-1198516710
OpTiKaL
2007-12-24 20:18
2008.01.27
Изменить цвет строки выделения.


2-1198877639
mr1Andersen
2007-12-29 00:33
2008.01.27
txt


2-1198576815
Washington
2007-12-25 13:00
2008.01.27
Системная информация


2-1199268328
Max.66RUS
2008-01-02 13:05
2008.01.27
Самоудаление программы по нажатию на кнопку...