Web-программирование на Delphi. Урок 1. Программа Hello word! (Apache, CGI, script)

Автор megabax

22.04.2010 г.

New Page 1

Web-программирование на Delphi. Урок 1. Программа Hello word! (Apache, CGI, script)

Для начала нам нужно создать простейшее консольное приложение. Для этого в Delphi входим в File -> New -> Other*

Далее нужно выбрать Console Application*:

У вас появиться окно проекта, что то типа того*:

Сохраним проект под нормальным именем и наберем нашу программу. Вот ее текст:

program ex1;

{$APPTYPE CONSOLE}

uses
SysUtils;

begin
    writeln ('CONTENT-TYPE: TEXT/HTML');
    writeln;
    writeln;
    writeln ('<html>');
    writeln ('<head>');
    writeln ('<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=windows-1251">');
    writeln ('<title>Delphi the best facility for making web-publications!</title>');
    writeln ('</head>');
    writeln ('<body bgcolor="white">');
    writeln ('Hello, world!');
    writeln ('</body>');
    writeln ('</html>');
end.

Скомпилируем программу и скопируем полученный экзешник в каталог локального хостинга. После этого, если вы наберете в браузере http://localhost/ex1.exe, на экране должна "выскочить" надпись Hello word!**:

Возможно, у вас сразу это не получиться. Эксплер может просто не знать, что этот файл надо запустить как Web-приложение и у вас откроется окно, которое обычно открывается когда вы пытаетесь скачать файлы из интернета и в котором предлагается либо открыть его, либо запустить. А если выберете запустить, то мигнет черное окно. Если это произошло у вас, значит, вам надо настроить локальный вэб сервер.

Если у вас Apache, то нужно в конфигурационном файле либо в .htaccess прописать (либо раскомментить)

AddHandler cgi-script .exe

Открыть конфигурационный файл можно в меню программы Apache***:

****

Возможно, даже после это у вас не будет работать с выдачей сообщения: "Forbidden You don't have permission to access /ex1.exe on this server". В этом случае в раздел Options добавить разрешение запуска CGI скриптов:

Options ExecCGI FollowSymLinks****

Так же проследите, что бы в конфигурации Apach-а у вас были строки:

Order allow,deny
Allow from all****

После этого должно работать.

Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями программного продукта "Delphi", авторское право на который принадлежит "Borland Software Corporation".

Скриншоты, помеченные знаком ** , являются цитатами и иллюстрациями программного продукта "Internet Explorer", авторское право на который принадлежит "Microsoft".

Скриншоты, помеченные знаком *** , являются цитатами и иллюстрациями программного продукта "Windows", авторское право на который принадлежит "Microsoft".

Скриншоты, помеченные знаком **** , являются цитатами и иллюстрациями программного продукта "Блокнот", авторское право на который принадлежит "Microsoft".

Последнее обновление ( 17.07.2012 г. )

« След.

Вернуться