Eine einfache CGI-Anwendung (WinCGI.DLL)

sakura

HI DP-ler,

dieses Mal zeige ich Euch, wie man auf einfachste Art und Weise eine einfache CGI-Web Anwendung erstellt.

Hinweis:Dieses Beispiel wurde mit Delphi 5 Enterprise erstellt. Nicht alle Delphi Versionen unterstützen die hier genutzten Features.

Schritt 1: Eine neue Anwendung

Zum Anfang erstellen wir ein neues Projekt. Anstatt einer normalen Anwendung, erstellen wir eine Web Server Anwendung. Im folgenden Dialog entscheiden wir uns für eine WinCGI-DLL.

http://www.gatenetwork.com/delphi-sa...ectproject.gif

http://www.gatenetwork.com/delphi-sa...ectapptype.gif

Delphi hat uns zwei Dateien vorbereitet

Unsere Projektdatei (speichern als: CGIDemo.dpr)
Unser Webmodul (speichern als: uMainWeb.pas)

Schritt 2: ...und Actions

Als nächstes wollen wir zwei Funktionen für unsere CGI Anwendung festlegen. Eine zur Begrüßung, welche es dem Besucher unserer Webseite ermöglicht, die andere zu starten. Die zweite Funktion ermöglicht dem Nutzer das durchstöbern der Festplatte des Servers. (Bitte nicht auf einen Live-Server installieren, der Admin könnte Euch das übel nehmen

)

Dazu wählt einfach zweimal die Funktion Add item (Ich habe nur die engl. Delphi Version.) Das erste Item habe ich wbaDefault, das zweite wbaSurfDisk genannt. Zusätzlich kommt noch eine TPageProducer Komponente in das Webmodul.

http://www.gatenetwork.com/delphi-sa...03_additem.gif

http://www.gatenetwork.com/delphi-sa...geproducer.gif

Schritt 3: Setup

Jetzt müssen wir nur noch die Einstellungen für die beiden Actioneinträge setzen.

http://www.gatenetwork.com/delphi-sa...setdefault.gif

http://www.gatenetwork.com/delphi-sa...etsurfdisk.gif

Für die TPageProducer Komponente pgpDefault müssen wir noch die Eigenschaft Strings setzen

markieren

Code:

			<html>

  <head>

    <title>Jetzt gehts los!</title>

    <meta name="generator" content="<#generator>">

  </head>

  <body>

    <h1>Jetzt gehts los</h1>

    [url="/cgi-bin/CGIDemo.dll/surfdisk?path=C:\"]Surf HD C:\[/url]

    It is <#now>.

  </body>

</html>

Schritt 4: The meat

In den Eventhandler der zweiten Actionkomponenten (wbaSurfDisk) muss auch noch ein wenig Code und dann haben wir schon das Gesamtergebniss

zusammenfalten · markieren

Delphi-Quellcode:

			unit uMainWeb;

interface

uses

  Windows, Messages, SysUtils, Classes, HTTPApp;

type

  TwbmHelloWorld = class(TWebModule)

    pgpDefault: TPageProducer;

    procedure pgpDefaultHTMLTag(

      Sender: TObject; Tag: TTag; const TagString: String; TagParams: TStrings;

      var ReplaceText: String

    );

    procedure wbmHelloWorldwbaSurfDiskAction(

      Sender: TObject; Request: TWebRequest; Response: TWebResponse;

      var Handled: Boolean

    );

  private

    { Private declarations }

    function ParentLink(URL, Path: String): String;

    function GetFolders(URL, Path: String): String;

    function GetFiles(URL, Path: String): String;

  public

    { Public declarations }

  end;

var

  wbmHelloWorld: TwbmHelloWorld;

implementation

uses

  FileCtrl;

{$R *.DFM}

function TwbmHelloWorld.GetFiles(URL, Path: String): String;

var

  SR: TSearchRec;

begin

  if FindFirst(Path + '\*', faAnyFile and not faDirectory, SR) = 0 then

  try

    Result := '<h1>Files</h1><pre>';

    repeat

      Result := Result + SR.Name + #13#10;

    until FindNext(SR) <> 0;

  finally

    FindClose(SR);

    Result := Result + '</pre>';

  end else

    Result := '';

end;

function TwbmHelloWorld.GetFolders(URL, Path: String): String;

var

  SR: TSearchRec;

begin

  if FindFirst(Path + '\*', faDirectory, SR) = 0 then

  try

    Result := '<h1>Sub Folders</h1><pre>';

    repeat

      if (SR.Name <> '.') and (SR.Name <> '..') then

        if SR.Attr and faDirectory = faDirectory then

          Result :=

            Result +

            '<a href="' + URL + '?path=' + Path + '\' + SR.Name + '">' +

              SR.Name +

            '</a>'#13#10;

    until FindNext(SR) <> 0;

  finally

    FindClose(SR);

    Result := Result + '</pre>';

  end else

    Result := '';

end;

function TwbmHelloWorld.ParentLink(URL, Path: String): String;

begin

  Result := '';

  while Path <> '' do

  begin

    if AnsiLastChar(Path)^ = '\' then

      Break;

    SetLength(Path, Pred(Length(Path)));

  end;

  if Path = '' then

    Exit;

  if DirectoryExists(Path) then

    Result :=

      '<h1>Parent Folder</h1>' +

        '<a href="' + URL + '?path=' + Path + '">' +

          Path +

        '</a>'#13#10;

end;

procedure TwbmHelloWorld.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;

procedure TwbmHelloWorld.wbmHelloWorldwbaSurfDiskAction(

  Sender: TObject; Request: TWebRequest; Response: TWebResponse;

  var Handled: Boolean

);

var

  Path, OutPut: String;

begin

  Path := Request.QueryFields.Values['path'];

  if AnsiLastChar(Path)^ = '\' then

    SetLength(Path, Pred(Length(Path)));

  if not DirectoryExists(Path) then

  begin

    OutPut :=

      '<html><head><title>Oops</title></head><body>' +

        '<h1>Oops</h1>' +

        'Folder [b]' + Path + '[/b] does not exist' +

      '</body></html>';

  end else begin

    OutPut :=

      '<html><head><title>' + Path + '</title></head><body>' +

        ParentLink(Request.URL + Request.PathInfo, Path) +

        GetFolders(Request.URL + Request.PathInfo, Path) +

        GetFiles(Request.URL + Request.PathInfo, Path) +

      '</body></html>';

  end;

  Response.Content := OutPut;

end;

end.

Schritt 5: Plug and Play

Jetzt noch kompilieren und die DLL in ein ausführbares Verzeichnis eines Webserver (PWS oder IIS) installieren und aufrufen. Ich habe die DLL in das Verzeichnis cgi-bin kopiert, damit kann ich diese wie folgt aufrufen:

markieren

Code:

http://localhost/cgi-bin/CGIDemo.dll

Und noch der

Download des Beispiels (3 KB).

[edit=CalganX]Mfg, CalganX[/edit]

Eine einfache CGI-Anwendung (WinCGI.DLL)

Forumregeln