VPF::имитация консоли - Форум программистов

Insert

Дата 25.4.2006, 23:09 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: 1
Всего: 1

Одной из частей моей курсовой будет проверочная работа, на знание команд Linux, поэтому я
сначала хотел создать консольное приложение и в нем имитировать консоль linux, но почитав
документацию на форуме, понял что создать полноценное консольное приложение достточно сложновато. Наверняка можно создать формы, которые имитируют терминальный ввод команд, вопрос как? Мне надо будет лишь считывать введеные данные и проверять их на правильность.
З.Ы. среда разработки Delphi 2006

--------------------

пьяный русский кодер практически непобедим

MAKCim

Дата 26.4.2006, 07:36 (ссылка)

(нет голосов)

Загрузка ...

Воін дZэна

Профиль
Группа: Экс. модератор
Сообщений: 5644
Регистрация: 10.12.2005
Где: Менск, РБ

Репутация: нет
Всего: 207

самый простой вариант

Код


#include <iostream>
#include <string>

int main()
{
    std::string line;
    while (getline(std::cin,line))
    {
        // парсинг строки line
        // некоторые дейтвия
    }
    return 0;
}

--------------------

Ах, у елі, ах, у ёлкі, ах, у елі злыя волкі ©

Insert

Дата 26.4.2006, 07:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: 1
Всего: 1

ну я в С не разбираюсь пока, хотелось бы создать форму а-ля консоль линух.

--------------------

пьяный русский кодер практически непобедим

Snowy

Дата 26.4.2006, 15:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

C таким вопросом нужно было идти в раздел "Delphi - Общие вопросы".
Но мы и здесь его найдем smile

Вот сделал коротенькое решение. Знает 3 комманды: dir, echo и exit:

Код


procedure TForm1.Button1Click(Sender: TObject);
var s: string;
  procedure DoCommand(c: string);
  begin
    if c = 'dir' then WriteLn('No files found')
    else if copy(c, 1, 4) = 'echo' then WriteLn(copy(c, 6, Length(c)))
    else WriteLn(c, ' - is not recognized as command');
  end;
begin
  if AllocConsole then Hide else Exit;
  try
    SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), FOREGROUND_GREEN);
    repeat
      Write('>'); Readln(s);
      DoCommand(s);
    until s = 'exit';
  finally
    FreeConsole
  end;
  Show;
end;

Insert

Дата 26.4.2006, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: 1
Всего: 1

О спасибо большое! обалденная тема буду так же остальные команды делать!

Это сообщение отредактировал(а) Insert - 26.4.2006, 21:46

--------------------

пьяный русский кодер практически непобедим

Snowy

Дата 26.4.2006, 21:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Не забывай ставить галочку "Вопрос решен".
Будут проблемы - забегай в раздел "Delphi"

Insert

Дата 26.4.2006, 22:05 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: 1
Всего: 1

ок, спасибо

Это сообщение отредактировал(а) Insert - 26.4.2006, 22:06

--------------------

пьяный русский кодер практически непобедим

Fixin

Дата 27.4.2006, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Ёжик

Профиль
Группа: Комодератор
Сообщений: 1357
Регистрация: 6.1.2004

Репутация: нет
Всего: 18

Перенесено из раздела "Центр помощи" в "Delphi - общие вопросы"

--------------------

Пользуйтесь ссылкой <<решенный\нерешенный вопрос>>
IRC-канал Винграда

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »