idtcpserver怎么做HTTP转发

Question

环境:DELPHI XE2 INDY10
目标:HTTP数据转发,把电脑A的hosts里加入192.168.0.2 www.csdn.net,然后在电脑B(IP192.168.0.2)上运行本程序,接收电脑A的请求,再通过网络把请求发给www.baidu.com的IP.最后,把返回数据再传给电脑A.打算使用idtcpserver和idtcpclient.原型大概写了,但具体使用上有问题.procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  idc:tidtcpclient;
  Buffer,buffer2: TidBytes;
  i,j:integer;
begin
  memo1.lines.add(acontext.Binding.PeerIP);
  idc:=tidtcpclient.Create(nil);
  idc.Host:=11.22.33.44;//HTTP目标IP
  idc.Port:=80;
  idc.Connect;
  
  AContext.Connection.iohandler.ReadBytes(buffer,i);//先取得A要转发的数据  idc.IOHandler.Write(buffer,i);//转发到目标
  
  idc.IOHandler.ReadBytes(buffer2,j);//取得返回数据  AContext.Connection.iohandler.Write(buffer2,j);//传回给A
 
  acontext.Connection.Socket.Close;
  idc.Socket.Close;
  idc.Free;
end;
因为不知道具体方法,函数和参数都有错误,请帮忙完善.

Answer 1

不转发也可以正常上网,现在就是想做一下过滤和处理.
主要是发送和接收的4段怎么处理.
上面的ReadBytes函数容易卡死,
改成下面的就可以工作,但只能中转字符串等,如果是其它图片等压缩数据就不行了.var msg:ansistring;
  AContext.Connection.iohandler.Readln(msg);//先取得A要转发的数据
  idc.IOHandler.Writeln(msg);//转发到目标
  idc.IOHandler.Readln(msg);//取得返回数据
  AContext.Connection.iohandler.Writeln(msg);//传回给A
 

Answer 2

ab 电脑只是数据互通，网页全是文本就可以了; 但我觉得疑问的是，a电脑不用运行程序，或者是用ie 就能请求到b的数据吗? 不需要b构建一个简单的iss，直接把访问的文件写入到iss目录中。