P
p2pp2p
Unregistered / Unconfirmed
GUEST, unregistred user!
#。。。。。。。。。。。。。。。。。
要求不用IE,请交form 中的数据post 至php网页,这个php网页会检查上一网页的来路是不是与它同一域名,并检查数据是不是为空。
。------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
const
MaxSize=1024;
var
Buf:array[0..MaxSize] of char;
Str,Poststr:string;
FS:integer;
begin
FS:=StartNet('61.22.22.22,80);
if FS=0 then
begin
memo1.Lines.Add('连接失败');
exit;
end;
poststr:='t1=aaa&t2=bbbb&t3=ccccccc&t4=中国';
str:='post /go.php HTTP/1.1'+over;
str:=str+'Accept:*/*'+over;
str:=str+'Referer:http://www.ha999.com'+over;
str:=str+'Accept-language:zh-cn'+over;
str:=str+'Content-Type:application/x-www-form-urlencoded'+over;
str:=str+'accept-encoding:gzip,deflate'+over;
str:=str+'User-Agent :Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Netcptor 7.5.4)'+over;
str:=str+'Host:www.ha999.com+over;
str:=str+'Content-Length:'+inttostr(length(poststr))+over;
str:=str+'Connection:Keep-Alive'+over;
str:=str+over;
str:=str+poststr;
senddata(FS,str);
recv(FS,Buf,MaxSize,0);
memo1.Lines.Add(buf);
//StopNet(Fsocket);
end;
以上数据如果提交至Window2000+IIS+ASP网页 一切正常,
但要提交至freebsd+Apache+Php 的网页,,就失败。
请问,是上面我的代码有问题?(可WIN系统为什么正常?),还是freebsd 系统要求有什么特殊参数?还是Apache服务器有什么其它要求? 还是PHP的问题?
请大家指点一下。
要求不用IE,请交form 中的数据post 至php网页,这个php网页会检查上一网页的来路是不是与它同一域名,并检查数据是不是为空。
。------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
const
MaxSize=1024;
var
Buf:array[0..MaxSize] of char;
Str,Poststr:string;
FS:integer;
begin
FS:=StartNet('61.22.22.22,80);
if FS=0 then
begin
memo1.Lines.Add('连接失败');
exit;
end;
poststr:='t1=aaa&t2=bbbb&t3=ccccccc&t4=中国';
str:='post /go.php HTTP/1.1'+over;
str:=str+'Accept:*/*'+over;
str:=str+'Referer:http://www.ha999.com'+over;
str:=str+'Accept-language:zh-cn'+over;
str:=str+'Content-Type:application/x-www-form-urlencoded'+over;
str:=str+'accept-encoding:gzip,deflate'+over;
str:=str+'User-Agent :Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Netcptor 7.5.4)'+over;
str:=str+'Host:www.ha999.com+over;
str:=str+'Content-Length:'+inttostr(length(poststr))+over;
str:=str+'Connection:Keep-Alive'+over;
str:=str+over;
str:=str+poststr;
senddata(FS,str);
recv(FS,Buf,MaxSize,0);
memo1.Lines.Add(buf);
//StopNet(Fsocket);
end;
以上数据如果提交至Window2000+IIS+ASP网页 一切正常,
但要提交至freebsd+Apache+Php 的网页,,就失败。
请问,是上面我的代码有问题?(可WIN系统为什么正常?),还是freebsd 系统要求有什么特殊参数?还是Apache服务器有什么其它要求? 还是PHP的问题?
请大家指点一下。