怎样编写服务器端/客户端程序?(150分)

  • 主题发起人 主题发起人 zhjie
  • 开始时间 开始时间
Z

zhjie

Unregistered / Unconfirmed
GUEST, unregistred user!
刚刚开始学习网络编程,提出一个菜鸟问题:
怎样实现以下基本功能:
1、用户在自己的计算机上运行客户端程序,通过internet将请
求提交给服务器端的delphi程序。
2、服务器端接受客户端的请求,将处理结果通过internet 送到客户端。
请给出客户端(40分)和
服务器端(50分)的主要程序代码
和服务器端(win98+pws)的设置方法(60分)。
总计150分。
谢谢!!!
 

客户端:nmhttp1.post('http://xxx.xx.xx.xx/scripts/hb.exe',memo1.text);
功能是将MEMO1中的内容发送到服务器

服务器端:CGI

procedure TWebModule1.WebModule1WebActionItem4Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var ch:string;
begin
//获取客户发送的信息
ch:=request.ContentFields.Strings[0];
//回执
Response.Content :='已经成功接收!资料如下:'+#13#10+ch;
end;

PWS设置:
设置SCRIPTS虚拟目录,将CGI程序HB.EXE拷贝到该目录下.该目录要有执行的权限
 
谢谢!!
让我试一试。
 
1、客户端连接不通。post之前是否需要其他语句?
2、客户端怎样接受服务器端返回的数据?
谢谢!!!
 
‘客户端连接不通。post之前是否需要其他语句?”:
①网络通否?②正确生成CGI应用否?③正确设置虚拟目录否?
在IE地址栏打入http://xxx.xx.xx.xx/scripts/hb.exe能看到回执否?

安装和配置PWS 参见http://sblue.51.net/wyzz/asp_php/aspphp2.htm

2、客户端收回执:
procedure TForm1.NMHTTP1Success(Cmd: CmdType);
begin
if cmd=cmdpost then
memo2.Text :=nmhttp1.Body;
end;


 
to zhjie
留下你的qq和mail
 
多人接受答案了。
 
后退
顶部