| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

DmT ©   (2007-12-30 22:07:00) 

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

---

DmT   (2007-12-31 19:17:00) [1]

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

---

palva   (2007-12-31 09:57:00) [2]

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

---

{RASkov}   (2007-12-31 04:12:00) [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: За русский алфавит не ручаюсь) ...мог и наврать)

---

DmT   (2007-12-31 00:32:00) [4]

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

---

palva   (2007-12-30 22:29:00) [5]

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

---

Наверх