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.

[dragi]

@ Sharky
Danke für deine Geduld!

@ All
Es klappt nun dank Sharkys Hilfe.

Vielen Dank

Dragi

[citybreaker]

Hallo,

wollte das gante grad auch einmal probieren.
Allerdings sagt mir mein Browser immer Seite nicht
gefunden, wenn ich http://127.0.0.1/8080/1.html eintippe.
Die Datei 1.html ist im selben Ordner wie die Exe.

Muss ich den httpServer noch irgendwie in Delphi starten?!


--- Edit ---
Hat sich erledigt.