Простейший CGI на Дельфи

Previous  Top  Next

    
 

 

 

Code:

program helloworld;

 

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

 

 

{$E cgi}

begin

Write('Content type: Text/HTML' + #13#10#13#10);

Write('Hello World!');

end.

 

 

Всё что этот код делает это выводит в поток вывода 'Hello World!'. Открываем новый проэкт. Удаляем все из DPR файла, заполняем приведенным кодом. Компиллируем. Полученный файл helloworld.cgi ставим в папку cgi-bin IIS сервера, убеждаемся что в настройках сервера разрешено исполнение серверных скриптов и сам сервер включен, далее открываем браузер и вводим адрес, у меня это:

httр://vitaly/cgi-bin/helloworld.cgi

любуемся надписью "Hello World!" в браузере.

 

 

А вот чуть более сложный пример - вывод потока (в данном случае если поток содержит картинку) в браузер:

Code:

procedure OutputStream(m: TStream);

 

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

 

 

var h: Integer;

j: cardinal;

begin

h := GetStdHandle(STD_OUTPUT_HANDLE);

try

   WriteFile(h, 'Content type: image/x-MS-bmp' + #13#10#13#10, 32, j, nil);

   WriteFile(h, m.memory^, m.size, j, nil);

finally

   CloseHandle(h);

end;

end;

 

 

 

 

Теперь сделанный cgi можно использовать в качестве картинки.

 

Естественно, что работать такой CGI ,будет только в среде Windows (для работы под Linux надо подумать над компилляцией в среде Kilix)

 

Ещё типы контента:

 

text/html

text/plain

text/richtext

 

image/gif

image/jpeg

image/x-MS-bmp

image/x-xpixmap

 

video/mpeg

video/quicktime

 

audio/x-wav

audio/basic (Sun *.au audio files)

audio/mp3

audio/mpeg

audio/x-mp3

audio/x-mpeg

audio/m3u

audio/x-m3u

audio/x-aiff (aif aiff aifc)

 

application/msword

application/octet-stream (для exe)

application/x-zip

application/mac-binhex40 (hqx)

application/pdf

application/rtf

application/x-latex

application/zip

application/rss+xml

 

 

©Drkb::03418

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

Взято с Vingrad.ru http://forum.vingrad.ru