[Danik007]

Привет, всем!
Вот нашел у вас на сайте КОД программы. Хотел скомпилировать ее с помощью Free Pascal, но столкнулся с ошибкой:
>>ИЗОБРАЖЕНИЕ<<
Что это может быть и как исправить? Заранее спасибо!!!

[Страдалецъ]

Нет у меня FreeePascal, но предположу, что:
Данный пример был сделан в Дельфи. Попробуйте убрать директиву:
{$APPTYPE CONSOLE}

[Страдалецъ]

Хотя скорее всего пробема в том, что у вас образовался разрыв в 21 строке.

[Danik007]

СПАСИБО, сделал то что вы посоветовали, но там еще что-то не так вот привожу скриншот:
>>ТУТ<<

[Страдалецъ]

Попробуйте убрать приведение строк к PChar().

[Danik007]

Вы предлогаете сделать так:

Код:

program BackTime;

uses ShellApi,Windows,SysUtils;

var Today:TDateTime;
    bkTime, bkProgram: String;
    Interval, j: SmallInt;
begin
  Today:=Date; // фиксируем реальную дату
  if ParamCount<>3
  then
   begin // если параметры не заданы то печатаем подсказку
    WriteLn(output,'BackTime (c)DSKalugin@rambler.ru');
    WriteLn(output,'---------------------');
    WriteLn(output,'BackTime.exe T I P');
    WriteLn(output,'T - Date;');
    WriteLn(output,'I - Interval, [sec];');
    WriteLn(output,'P - Program');
    WriteLn(output,'---------------------');
    WriteLn(output,'Example:');
    WriteLn(output,'BackTime.exe 04.01.2000 15 "C:\Program Files\program.exe"');
   end
  else
   begin
    // 1й параметр - дата
    bkTime:=ParamStr(1);
    // 2й параметр - интервал в секундах
    Interval:=StrToInt(ParamStr(2));
    // 3й параметр - полный путь к программе
    bkProgram:=ParamStr(3);
    // установка необходимой даты
    WinExec('cmd /c date '+bkTime, SW_HIDE);
    // запуск программы
    ShellExecute(0, 'open', bkProgram, nil, nil, SW_SHOW);
    j:=0;
    while j<Interval do
     begin  // задержка в секундах
      sleep(1000);
      inc(j);
     end;
    // восстанавливаем реальную дату
    WinExec('cmd /c date '+DateToStr(Today), SW_HIDE);
   end
end.

Если да, то программа откажется компилироватся
Я не понимаю почему она не работает, FreeePascal поддерживает тип PChar от этом свидетельствует СТРАНИЧКА на их сайте.

[lmikle]

Может и поддержтвает, но не может автоматически конвертировать "короткую" строку в этот тип. Посмотри по справке функцию конвертации...

[Danik007]

2 lmikle
Спасибо за подсказку! Ответ был найден здесь. В начало кода надо было просто добавить {$H+} и он начал компилироваться!!!

Теперь есть другой вопрос (дабы не создавать новой темы) как вытащит компилятор и нужные библиотеки из FreeePascal.

[lmikle]

А зачем??? возьми любой компонент с pascal-скриптом.

[Danik007]

Просто в своем проекте я использую компилятор (и пока что от DELPHI) и мне не хотелось бы нарушать права, а для этого мне нужен FreeePascal.

возьми любой компонент с pascal-скриптом

Как это понять? Вы имеете ввиду компонент для VCL в DELPHI? Но тогда мне нужен компонент не с Pascal скриптом, а что-то по-мощнее, так как Pascal не работает с библиотеками ShellApi,Windows,SysUtils.

[lmikle]

Все работает.
Посмотри FastScript, кстати, его даже устанавливать не надо.
А то, чего там не хватает - легко туда добавляется.

[Danik007]

FastScript - платный, и если честно я даже не знаю как им пользоваться и поможет ли он в решении моих задач. Может вы знаете какую-то бесплатную альтернативу (или где можно взять вылеченный FastScript) .

P.S.
На форуме есть понятие репутации, но нету "+" с помощью которых ее можно подымать или я что-то проглядел?

[Страдалецъ]

Весы справа у отвечающего видите?

[lmikle]

Вообще-то, найти исходники при известном упорстве не составляет сложности. Еще неплохой подобный компонент был в пакете RALib.

А вообще, порой на torry.ru - там много чего интересного...