> memo2.Lines.Add(sends);
clientsocket1.Socket.SendText(sends); //发送
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
BuildHttpHead(); //一连接成功就发送
end;
procedure TForm1.FormShow(Sender: TObject);
begin
succ :=false; //是否成功
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
button1.Enabled :=true;
clientsocket1.Active :=false;
end;
end.
文章的重点是构造Http头信息部分，设置好ClientSocket连接的服务器IP：211.157.102.25，为CSDN的服务器IP,端口就是80了
上一页 [1] [2] | 
