第一次编webservice的程序,用向导自动生成了一个webservice的isapi应用,应用名称为ISAPITEST.
添加WebModule1的Action的Item,命名为:getuserid,编写其OnAction事件如下:procedure TWebModule1.WebModule1getuseridAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
teststr,teststr2:String;
myneed:TStrings;
begin
myneed := nil;
myneed := request.ContentFields;
teststr := myneed.Values['UserID'];
// if Trim(teststr)='' then
// Response.Content := 'failure'
// else
// Response.Content := teststr;
teststr2 := 'UserID='+teststr;
Response.Content := teststr2;end;
编译出DLL文件ISAPITEST.DLL放置在本机的IIS的可执行目录mydll下.在IE中输入如下: http://192.168.1.199/mydll/ISAPITEST.DLL?UserID=1返回值: UserID=好象没有提交一样,为什么会这样?????我错在那里,大虾们救命呀......
怎么request.ContentFields好象是个空值呀????
添加WebModule1的Action的Item,命名为:getuserid,编写其OnAction事件如下:procedure TWebModule1.WebModule1getuseridAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
teststr,teststr2:String;
myneed:TStrings;
begin
myneed := nil;
myneed := request.ContentFields;
teststr := myneed.Values['UserID'];
// if Trim(teststr)='' then
// Response.Content := 'failure'
// else
// Response.Content := teststr;
teststr2 := 'UserID='+teststr;
Response.Content := teststr2;end;
编译出DLL文件ISAPITEST.DLL放置在本机的IIS的可执行目录mydll下.在IE中输入如下: http://192.168.1.199/mydll/ISAPITEST.DLL?UserID=1返回值: UserID=好象没有提交一样,为什么会这样?????我错在那里,大虾们救命呀......
怎么request.ContentFields好象是个空值呀????
request.content也是空值,就连Request.ContentType都是空的.
我晕了.看了网站上的一些代码,和我的没什么两样呀,到底错在那里??