请问下 调用了socket 为什么提示我错误?

Question

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错误 运行后产生错误!

Answer 1

你没有连接到远程服务器上吧？在sende的时候，使用socket连接到远程服务器上。这样socket才能知道要发到什么地方。还有，麻烦你，请将错误信息也一并发出来，供大家研究研究。

Answer 2

[Warning] tt.dpr(15): Variable 'a' might not have been initialized
然后运行EXE后出现API错误~   
麻烦帮忙修改下。

Answer 3

只看出a十一个变量没有赋初值，另外那个问题如沙发兄所言，应该是serversocket没有链接的问题吧！

Answer 4

clientsocket1这个对象指针，要么创建一个新的对象给它，并且做好连接工作，要么让它指向一个已经就绪的连接进行使用。

Answer 5

已经解决了这个问题 是没有初始化
加了句
clientsocket1:=TclientSocket.create(nil);
就解决了
但是封包发送效果还是不对
后来用idhttp.get代替了

Answer 6

用 idhttp 呀!!!?取好不要用 !!!要用就用 Wininet 或 Socket API