Hier mal ein Beispiel für eine CGI Anwendung:
Code:
program MyCgi;
uses Windows, SysUtils;
{$APPTYPE CONSOLE}
var QueryString: string;
begin
QueryString := GetEnvironmentVariable('Query_String');
{ Argumente mit ? übergeben: 'MyCgi.exe?Param1=Irgendwas&Post=443' }
WriteLn('Content-type: text/
html');WriteLn; // http-Header schicken
WriteLn('<
html><body bgcolor=white>');
WriteLn('
' + QueryString + </p>');
WriteLn('</body></
html>');
end.
Und so schwer ist das nun auch wieder nicht.