-
Покажите один пример который когда буду открыть в IE мне покозал: Hello World
Как мне обявить header?
-
program getpasswd; {$APPTYPE CONSOLE} {$E cgi}
uses classes, shellapi, sysutils, messages, windows, proc in '..\proc\proc.pas';
const CR = CHR(13)+CHR(10); HEADER = 'Content-type: text/html'+CR+CR+ '<html><head><title>Dymamic HTML page</title>'+ '</head><body bgcolor="#ffffff">'+CR+ ' <hr>'+ '<center><font color=#0000ff>Филиал "Екатеринбургский" ОАО "Импэксбанк"</font> </center>'+ '<hr>'; FOOTER = '</body></html>'; var str,aUser,aPasswd: String; StdIn,Size,Actual: Cardinal; F: TextFile; rand: Integer; FileName: String; isTrue: Boolean; s: String; i: Integer; // tL: TStringList; begin
// здесь много всяких функций выполняется // WriteLn(HEADER); WriteLn('<form method="post" action="/cgi-bin/menumain.cgi">'); WriteLn('<SELECT NAME=groupwork>'); WriteLn('<OPTION>Работа с загруженными файлами'); WriteLn('<OPTION>SYMBOLS'); WriteLn('<OPTION>Администрирование'); WriteLn('</SELECT>'); WriteLn('<input type="hidden" name="sid" value="'+ IntToStr(rand)+'">'); WriteLn('<input type="submit" value="Ok">'); WriteLn('</FORM>'); WriteLn(FOOTER); end.
-
Помоему просто cgi консольное приложение не есть гуд, NSAPI и ISAPI гараздо рульней, хотя и весят больше, но работают стабильней.
-
2Piople © (29.04.04 06:41) [2]: По поводу этого совета - пара вопросов: 1) Откуда взять библиотеки поддержки этих интерфейсов для FreePascal? 2) Речь в вопросе еще и о Linux шла. Так что о ISAPI речь может идти лишь отчасти.
Степень риторичности этих вопросов для меня не очевидна. Тем более, что я как раз сейчас делаю Web-проект с использованием связки MySQL-CGI (притом CGI-приложение - на FreePascal). И если популярность сайта окажется заметной, а сервер - слабеньким (2-е - почти наверняка), может встать вопрос об эффективности механизма CGI.
|