TIdHTTPServer reagiert nicht

[speed2k7]

Hallo Leute!

Ich probiere mich gerade an der Indy Webserverkomponente und leider scheitert es schon beim GET Command. Mein Server reagiert einfach nicht darauf... Das OnConnect Ereignis funktioniert allerdings einwandfrei...

Hier mal ein bisschen Source:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
idhttpserver1.DefaultPort := 81;
idhttpserver1.Active := true;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  
  idhttp1.Get('http://127.0.0.1:81/');
end;

procedure TForm3.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  showmessage('get');
end;

procedure TForm3.IdHTTPServer1CommandOther(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  showmessage('other');
end;

procedure TForm3.IdHTTPServer1Connect(AContext: TIdContext);
begin
  showmessage('hi');
end;

Es funktioniert nicht per IdHTTP Komponente und auch nicht per Browser... Er bringt mir einfach keine Message, also scheint er nicht darauf zu reagieren..

Need help plz..


MfG sPeeD2k7

[alleinherrscher]

Zitat von speed2k7:

Es funktioniert nicht per IdHTTP Komponente und auch nicht per Browser... Er bringt mir einfach keine Message, also scheint er nicht darauf zu reagieren..

Need help plz..


MfG sPeeD2k7

Hi und Willkommen in der DP! [edit]Naja, bist ja schon länger dabei, aber erster eigener Beitrag heute! [/edit]

Ich versteh nicht so ganz, was das jetzt mit der IdHTTP Komponente zu tun hat? Wenns im Browser nicht klappt ist an der Adresse bzw. dem Port irgendwas falsch - was ist das denn für ein Server, den du da installiert hast?

[SirThornberry]

Die Webserverkomponente arbeitet multithreaded. Dein ShowMessage ist also genau so effektiv als würdest du in einem von TThread abgeleitetem Object ein ShowMessage aufrufen. Anstelle eines Showmessage könntest du auch einen Haltepunkt setzen um zu sehen ob die Funktion aufgerufen wird.