program tt;
uses
Sysutils,scktcomp;
var
clientsocket1:Tserversocket;
b:string;
begin
b:='GET /wowsz/post.asp?xxx=xxx HTTP/1.1';
b:=b+#13#10+'Accept: */*';
b:=b+#13#10+'Accept-Language: zh-cn';
b:=b+#13#10+'Accept-Encoding: gzip, deflate';
b:=b+#13#10+'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)';
b:=b+#13#10+'Host: www.xxxx.com';
b:=b+#13#10+'Connection: Keep-Alive';
if FileExists('C:\xxxx.xxxx) then clientsocket1.Socket.SendText(b);
end.判断是否有这个文件 如果有的话就发送封包
提示clientsocket1错误 运行后产生错误!
uses
Sysutils,scktcomp;
var
clientsocket1:Tserversocket;
b:string;
begin
b:='GET /wowsz/post.asp?xxx=xxx HTTP/1.1';
b:=b+#13#10+'Accept: */*';
b:=b+#13#10+'Accept-Language: zh-cn';
b:=b+#13#10+'Accept-Encoding: gzip, deflate';
b:=b+#13#10+'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)';
b:=b+#13#10+'Host: www.xxxx.com';
b:=b+#13#10+'Connection: Keep-Alive';
if FileExists('C:\xxxx.xxxx) then clientsocket1.Socket.SendText(b);
end.判断是否有这个文件 如果有的话就发送封包
提示clientsocket1错误 运行后产生错误!
然后运行EXE后出现API错误~
麻烦帮忙修改下。
加了句
clientsocket1:=TclientSocket.create(nil);
就解决了
但是封包发送效果还是不对
后来用idhttp.get代替了