Запуск компиляции

[tools]

Подскажите, пожалуйста, каким образом можно запустить с помощью кода на Delphi компиляцию кода на С/C++ , естественно при условии,что на компьютере уже имеется Сишный компилятор (допустим,если установлены Visual Studio или Code::Blocks или Watcom). Конкретно не могу сказать какой компилятор, т.к. подойдет любой вариант. Заранее спасибо за предложенные решения.

[BOBAH13]

Программно в коде на Delphi построить цепочку сборки проекта на C++, какие и куда параметры писать и как сохранять пишется в документации компилятора, а вы уже только следуете этим указаниям.

[xwicked]

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

Подскажите, пожалуйста, каким образом можно запустить с помощью кода на Delphi компиляцию кода на С/C++ , естественно при условии,что на компьютере уже имеется Сишный компилятор (допустим,если установлены Visual Studio или Code::Blocks или Watcom). Конкретно не могу сказать какой компилятор, т.к. подойдет любой вариант. Заранее спасибо за предложенные решения.

Delphi -> Delphi. Хотел сделать свой sfx-архив: запускал компилятор dcc32.exe, параметром передавал имя проекта .dpr. Использовал WinExec, ShellExecute. Думаю не соврал - давно то было .

[tools]

Хм, вот не получается пока ничего.
Из командной строки компилирую файл с помощью двух строк:
сначала %comspec% /k "C:\Program Files\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" x86

затем cl /EHsc C:\file.cpp

компиляция проходит успешно, объектный файл и экзешник появляются в папке пользователя C:\Пользователи\<Имя текущего пользователя>

в Delphi пытаюсь выполнить эти же команды поочередно с помощью WinExec или ShellExecute, но ничего не происходит - команды выполняются, но файлов никаких не появляется.

[Stilet]

А как? Покажи код. Возвращают ли какие-нить коды ошибок эти функции?

[tools]

Ну, например, так:
// в процедуре нажатия на кнопке

const
  s_1: PAnsiChar = 'cmd /K "C:\Program Files\Microsoft Visual Studio 9.0\VC\vcvarsall.bat"';
  s_2: PAnsiChar = 'cmd /K cl /EHsc C:\file.cpp';
var
  ret_1,ret_2: Cardinal;
begin
  ret_1:= WinExec(s_1,SW_SHOW);
  ret_2:= WinExec(s_2,SW_SHOW);
end;

Естественно, файл указанный находится по этому пути.
В обоих случаях функции возвращают значение 2.
В MSDN написано, что значение должно быть больше 31.
Проблема остается пока нерешенной, помогите советом...

[tools]

Действую указанным выше способом, получаю на выходе обоих функций значение 33, значит они выполняются успешно, но файлов объектных и исполнимых как не было, так и нету. Вставляю те же строки в командную строку вручную и все нормально выполняется, нужные файлы появляются в директории C:\Пользователи\<Имя текущего пользователя>
Подскажите, где собака зарыта.
Видимо, ошибка в том,что создаются два отдельных процесса, а нужно в одном процессе в два потока.

[tools]

В общем, проблему решил следующим образом:

ret_1:= WinExec('cmd /k "C:\Program Files\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" && cl /EHsc C:\file.cpp',SW_SHOW);

Т.е. объединил две консольных команды оператором && в исходной строке. Файлик откомпилировался, полученные объектный и исполнимый файлы сохранились в папке с проектом на Delphi. Если посмотреть ключи для команды "cl", то, я думаю, можно будет и сменить путь сохранения итоговых файлов.
Ключ /k не обязателен для команды cmd в данном случае, можно и /c поставить на его месте.