Kleiner Webserver mit Feedback?

[moelski]

Moin Daniel,

danke für deine Antwort.

Ich bleibe erstmal bei Frage 2 ... Frage 3 kommt danach dran
Den einfachen Webserver (also die Demo) habe ich gerade gefunden. Ist im wesentlichen ja nicht mehr als das hier:

Delphi-Quellcode:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdCustomHTTPServer, IdContext,
  IdHTTPServer, IdCustomTCPServer;

type
  TForm1 = class(TForm)
    IdHTTPServer1: TIdHTTPServer;
    procedure IdHTTPServer1CommandGet(AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo;
      AResponseInfo: TIdHTTPResponseInfo);
  private
  public
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  AResponseInfo.ContentText := 'Hello World. It is ' + TimeToStr(Time);
end;

end.

Aber wenn ich es kompilieren will kriege ich eine nach dem Start eine Exception:

Zitat:

Erste Gelegenheit für Exception bei $7C812AEB. Exception-Klasse EIdSocketError mit Meldung 'Socket Error # 10048
Address already in use.'. Prozess MWS.exe (5864)

Was sagt mir das? Im IdHTTPServer1 war keine Adresse eingetragen. Habe mal probehalber ein Binding hinzugefügt, aber das brachte auch keinen Erfolg.
Und wenn ich bei mir im Browser http://localhost/ aufrufe kommt HTTP 404 - keine Webseite gefunden. Also schlummert da auch kein anderer Webserver rum.