Webserver in einer Exe?

[Sharky]

Zitat von dragi:

... aber da weiss ich nicht welches Property das dann ist z.B. ARequestinfo.Dokument ist es nicht.

Hai Dragi,
in ARequestinfo.Dokument seht welche Datei der Client haben möchte. Das geht bei mir auch ohne probleme:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTPServer1.DefaultPort := 8080;
  Memo1.Lines.Clear;
end;

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  root : String;
begin
  Memo1.Lines.Add (ARequestInfo.Document); // Als Protokoll
  root := ExtractFilePath(ParamStr(0)); // Anwendungspfad
  AResponseInfo.ContentStream := TFileStream.Create(root + ARequestInfo.Document,fmOpenRead);
end;

Ich habe es mal mit HTML-Dateien gemacht.

Code:

[b]index.htm[/b]

Seite 1
[url="index2.htm"]Test[/url]

[b]index2.htm[/b]

Seite 2
[url="index.htm"]Test[/url]

In meinem Browser habe ich dann einfach http://localhost:8080/index.htm aufgerufen.