1,593
社区成员
发帖
与我相关
我的任务
分享我用Delphi做一个Web服务服务，用WEB Application 做的，我要经常调试改动这个Web服务，可是这个Web服务被请求一次以后，就再也不能写他
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
l1:TStringlist;
begin
l1:=TStringlist.Create;
// l1.Add(Request.ReadString(20));
l1.add(Request.Content);
l1.SaveToFile('ServerListen.txt');
Response.Content :='<html><p>欢迎你</p>'+'<p>'+'朋友'+'</p>';
l1.Free;
WebModule1.Free;
// WebModule1.Destroy;
end;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
l1:TStringlist;
begin
l1:=TStringlist.Create;
// l1.Add(Request.ReadString(20));
l1.add(Request.Content);
l1.SaveToFile('ServerListen.txt');
Response.Content :='<html><p>欢迎你</p>'+'<p>'+'朋友'+'</p>';
l1.Free;
WebModule1.Free;
// WebModule1.Destroy;
end;
...全文
请发表友善的回复…
发表回复
