delphi的cgi传输(100分)

  • 主题发起人 主题发起人 panduola
  • 开始时间 开始时间
P

panduola

Unregistered / Unconfirmed
GUEST, unregistred user!
我要作一个程序,在本地作一个窗体,要求用户输入一些信息,如身份证号码,姓名,登陆
名,密码,必须用CGI和TCP/IP把这些信息传到后台。想请教一下做过delphi的CGI编程
的高手,提示一下用什么样的语句,最好有个框架,留下信箱和QQ也行,分数不够在加!
 
本地窗体? 那就不是CGI。。。
本地窗体传到远程服务器的CGI程序? 只要模拟 http 提交过程即可。
Delphi做CGI? 那最好做成 Active Form。。。

其实,我还没明白你想做什么。 :) [:D][:D][:D]
 
和ASP差不多的,用post 提交信息。
 
使用web server application 做成cgi或isapi,代码如下:
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
response.content:='<html><body><form metod=post action=getpost>';
response.content:=response.content + '<input type=text name=abc><input type=submit value="提交"></form>';
end;

procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
response.content:=request.contentfield.values['abc'];

end;
添加一个adoquery控件即可操作将数据存入。
将WebActionItem1的default设为true;
将WebActionItem2的pathinfo设为getpost;

 
这种冬冬,用D6的webservice比较方便,用CGI方式写一个WebService,在远程用THTTPRIO
控件调用,方便得很,请参考维维的那本小书,有必要的话,可以给你原码
 
tooper大哥什么原码可以给小弟一阅吗
 
给个mail 给你看
 
接受答案了.
 
后退
顶部