Создаю "тестирующую систему" для проверки задач. Программисты, нужна ваша помощь!

[alexfmf]

Мне нужно создать "тестирующую систему" для задач, решенных учениками. Планируется, что все задачи по паскалю дети будут решать с помощью файлов. (Данные считываются из файла "input.txt" и конечные результаты записываются в файл "output.txt"). А моя "система" должна изменить входные данные, запустить решенную учеником задачу, проверить результаты... и так несколько раз. И если все идет хорошо, то задача решена правильно.

Подскажите пожалуйста, как запустить файлы "*.pas" и на каком языке лучше реализовать данную "систему"... Заранее спасибо!

[SNUPY]

Я конечно уже дано с паскалем не водился, теперь на делфе сижу... Вот только вопрос: а при компиляции проги там не формируеться ли exe файл?

[Somebody]

На каком языке, всё равно, лишь бы знал его. pas - это исходники, их нельзя запустить, их надо скомпилировать.

[SNUPY]

в чем и заключаеться момент просто полюбому учащиеся должны свои проги написать на паскале и потом только сдавать... и вот когда они будут проверять свое деяние прежде чем вам сдавать они по любому его скомпелируют и получат exe файл (если конечно не ошибаюсь).

Тобиш подключаюсь к Somebody...

[Sm1Le]

Для меня совсем не понятное задание ... Но писать на паскале сейчас не логично ... так что надо по любому на Делфи =)

[Greblin]

Надо через командную строку запускать компилятор и подсовывать ему в качестве параметра файл с исходником. Затем проверить, что компилятор вывел (тут уж для каждого компилятора придётся писать отдельный парсер вывода), и если компиляция прошла успешно, опять таки через командную строку запускать экзешник.
Вот нарыл в DRKB, как запустить консольное приложение и направить его вывод в файл

procedure TForm1.Button1Click(Sender: TObject);
var StartupInfo: TStartupInfo;
    ProcessInformation: TProcessInformation;
begin
GetStartupInfo(StartupInfo);
with StartupInfo do
begin
   wShowWindow := SW_HIDE; //не показывать окно
   dwFlags := STARTF_USESHOWWINDOW;
end;
// для примера будем запускать [c:\program files\Borland\Delphi5\Bin]grep.exe с ключом '?'
Win32Check(CreateProcess(nil, 'command.com /c  grep.exe ? > MyStdOut.txt',
   nil, nil, FALSE, CREATE_NEW_CONSOLE, nil, nil, StartupInfo, ProcessInformation));
// ждем пока наш процесс отработает
WaitForSingleObject(ProcessInformation.hProcess, INFINITE);
Win32Check(CloseHandle(ProcessInformation.hProcess));
end;

[Plague]

Можно взять готовые системы и посмотреть их.
А создавать ИМХО лучше на php.

[alexfmf]

Приветствую всех российских программеров! Вынужден вновь обратиться к вам за помощью!
Запустить *.pas и *.ехе у меня получилось в Делфи, дипломный проект я написал.. и теперь остался еще один вопрос
При компиляции *.pas создается *.exe с помощью такой строки:

WinExec(PChar('{Здесь директория компилятора} - E {Здесь полное имя файла *.pas} '), SW_SHOWNORMAL);

Вопрос: Если в проверяемой задаче ошибка, как при компиляции получить номер строки с ошибкой и номер ошибки?
Я думаю, тут как то надо применить такую штуку: -F<offset> = Find error Но не знаю как... Подскажите пожалуйста...

[Somebody]

Надо читать, что компилятор выводит, смотри про перенаправление стандартного ввода/вывода.

[alexfmf]

Сообщение от Somebody

Надо читать, что компилятор выводит, смотри про перенаправление стандартного ввода/вывода.

Подскажи пожалуйста как это делается...
Какие функции использовать?