Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c