2011-08-20 29 views
11

Tôi cần một mẫu mã đơn giản cho Máy chủ Very 10 Http Khi yêu cầu (đăng) chỉ hiển thị nó Có mẫu Indy 9 nào cho điều này không? Cảm ơnIndy 10 Http Mẫu máy chủ

+5

vì vậy nó là gì? Indy 10 hoặc Indy 9? –

+0

Bạn có thể tìm ở nguồn ExtPascal – TheHorse

Trả lời

6

Indy 9 samples vẫn có sẵn trên trang web IndyProject và bao gồm dự án trình diễn HTTPServer. Indy 10 Demo Playground cũng vậy.

Trong IdHTTPServer, các lệnh Nhận và Đăng về cơ bản được xử lý giống nhau và được xử lý trong sự kiện CommandGet.

14
  1. Bắt đầu một hình thức VCL mới dự án
  2. Thả một thành phần TidHTTPServer vào Form
  3. Nhấp đúp vào hình thức để tạo ra một OnCreate() sự kiện và kích hoạt máy chủ

    IdHTTPServer1. Hoạt động: = True;

  4. Trở lại trên biểu mẫu, chọn thành phần HTTP Server, và tạo ra một sự kiện

OnCommandGet Trong OnCommandGet kiện này (được gọi trong một chủ đề con bất cứ khi nào một GET/POST xảy ra), xử lý các yêu cầu, bởi populating phản ứng ..

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>'; 

Tùy thuộc vào phiên bản Delphi, bạn cũng có thể phải thêm IDC ontext vào số Sử dụng khoản

Chạy ứng dụng demo của bạn và sau đó khởi chạy trình duyệt tới http://localhost và bạn sẽ nhận được phản hồi. (Trừ khi bạn có nội dung nào khác đang nghe trên Cổng 80, trong trường hợp đó ứng dụng demo của bạn sẽ tạo ra ngoại lệ)

Các vấn đề liên quan