2011-08-20 9 views
11

Potrzebuję prostego przykładowego kodu dla Serwera Http Indy 10 Kiedy żądanie (wpis) po prostu wyświetla go Czy jest tam próbka Indy 9? DziękiPróbka serwera Indy 10 Http

+5

co to jest? Indy 10 lub Indy 9? –

+0

Można to sprawdzić na źródłach ExtPascal – TheHorse

Odpowiedz

6

Modele Indy 9 samples są nadal dostępne w witrynie IndyProject i zawierają projekt demonstracyjny HTTPServer. The Indy 10 Demo Playground również.

W poleceniach IdHTTPServer polecenia Get i Post są zasadniczo traktowane tak samo i obsługiwane w zdarzeniu CommandGet.

14
  1. rozpocząć nowe formy VCL wystawać
  2. upuść komponent TidHTTPServer na Formularzu
  3. Kliknij dwukrotnie formularz, aby utworzyć onCreate() zdarzeń i uaktywnić serwer

    IdHTTPServer1. Active: = True;

  4. Powrót na formularzu, wybierz komponent serwera HTTP i utworzyć OnCommandGet zdarzenie

W tym OnCommandGet imprezy (co nazywa się w wątku dziecko ilekroć wystąpi GET/POST), obsłużyć żądania, przez wypełnianie odpowiedź ..

AResponseInfo.ContentText := '<html><head><title>My First Response</title></head>' + 
    '<body>Command: ' + ARequestInfo.Command + 
    '<br />Host: ' + ARequestInfo.Host + 
    '<br />URI: ' + ARequestInfo.URI + 
    '<br />UserAgent: ' + ARequestInfo.UserAgent + 
    '</body></html>'; 

zależności od wersji Delphi, może mieć także dodać IDC KONTEKST do swojej Używa klauzula

Uruchom aplikację demonstracyjną, a następnie uruchom przeglądarkę do http://localhost i powinieneś dostać odpowiedź. (Jeśli nie masz jeszcze czegoś słuchającego na porcie 80, w którym to przypadku aplikacja demo wygeneruje wyjątek)