如何做一个 HTTPGET ？？

Question

实现功能是能向服务器 发请求后 且能在服务器传回的超文本文件中 抓取超链接
是基于JSP的
想问下 要看DELPHI关于什么方面的资料 还有要用到什么控件
很急 谢谢 各位~~~

Answer 1

使用TClientSocket类，提供个例子给你参考
procedure TForm1.Button1Click(Sender: TObject);
var
    cs:TClientSocket;
begin
    cs := TClientSocket.Create(self);
    cs.Address := '10.57.0.115';
    cs.ClientType := ctBlocking;
    cs.Port := 80;
    cs.Active := true;
    cs.Socket.SendText('GET /index.html HTTP/1.1'+#13+#10);
    cs.Socket.SendText(#13+#10);
    memo1.Lines.Add(cs.Socket.ReceiveText());
end;

Answer 2

我正在做这个系统，有空交流一下。
[email protected]