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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货