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.
