各位江湖大虾：提供cgi例子（delphi版），分数丰厚！不够再加！！急！急！急！急！急！

Question

本人现在需要开发CGI程序，但是以前没有做过，不知道从哪里下手！请教各位！给例子，比如自动从网页获取信息，自动发邮件的、还有反馈查询信息的、登陆的等，每例至少40分！急！急！急！急！急！急！急！急！急！急！急！急！

Answer 1

New一个CGI看看了
最Easy的Demo，你还需要使用PageProducer的，这样更好unit Web_WebModule;interfaceuses
  SysUtils, Classes, HTTPApp;type
  TWebModule1 = class(TWebModule)
    procedure WebModule1WebActionItem1Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  WebModule1: TWebModule1;implementationuses FTPExplorer_Common;{$R *.DFM}procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var HWID,UN:string;
begin
  if Request.Method = 'POST' then begin
      UN      := Request.ContentFields.Values['USERNAME'];
      HWID       := Request.ContentFields.Values['ID'];
      end
    else begin
      UN      := Request.QueryFields.Values['USERNAME'];
      HWID       := Request.QueryFields.Values['ID'];
      end;
   Response.Content:=UN+HWID;
end;end.

Answer 2

ly_liuyang(Liu Yang) 我如何实现，该程序和我的ASP的 POST方法相连呀！谢谢！

Answer 3

Request.ContentFields.Values['USERNAME'];
相当于
Request.Form("USERNAME")Request.QueryFields.Values['USERNAME'];
相当于
Request.QueryString("USERNAME")