Hi,
ich hab eine CGI-Anwendung nach dem Tut erstellt. Es hat folgenden Code:
Delphi-Quellcode:
unit uMainWeb;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp, HTTPProd;
type
TWebModule1 =
class(TWebModule)
pgpDefault: TPageProducer;
procedure pgpDefaultHTMLTag(Sender: TObject; Tag: TTag;
const TagString:
String; TagParams: TStrings;
var ReplaceText:
String);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.pgpDefaultHTMLTag(Sender: TObject; Tag: TTag;
const TagString:
String; TagParams: TStrings;
var ReplaceText:
String);
begin
if TagString = '
generator'
then
ReplaceText := '
Web CGI App - Hello World v1'
else if TagString = '
now'
then
ReplaceText := DateTimeToStr(Now)
else
ReplaceText :=
'
<font color="red">[b]Unknown Tag:[/b]</font><font color="blue"> &#' +
TagString + '
' + TagParams.Text +
'
&</font>';
end;
end.
Nur leider konnte ich das Prog nicht aufrufen er bietet es nur zu download an. Wenn ich das Prog im 1 und 1 Portal teste sagt er folgendes:
Zitat:
CGI-Monitorausgabe-Ausgabe:
- 126 CGI returned nonzero status
e /usr/bin/nice: /kunden/homepages/26/d72535032/htdocs/temp/demo.exe: Permission denied
- STDOUT OK STDERR OK
Meine Frage warum?
Wäre für Antworten sehr dankbar!!!
MFG
Thomas