转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 软件开发 >> Delphi程序 >> 正文
用DELPHI设计代理服务器程序(前面一贴,没贴好,请原谅)    热     ★★★★

用DELPHI设计代理服务器程序(前面一贴,没贴好,请原谅)

作者：闵涛 文章来源：闵涛的学习笔记 点击数：1457 更新时间：2009/4/23 18:44:19
      end;
        end
        else
        begin
          host:=trim(line);{获取主机地址}
          port:=80;
        end;
        if not session[i－1].remote_connected then{假如远征尚未连接}
        begin
          session[i－1].Request:=true;{置请求数据就绪标志}
          session[i－1].CSocket.host:=host;{设置远程主机地址}
          session[i－1].CSocket.port:=port;{设置端口}
          session[i－1].CSocket.active:=true;{连接远程主机}
          session[i－1].Lookingup:=true;{置标志}
          session[i－1].LookupTime:=0;{从0开始计时}
        end
        else
       {假如远程已连接，直接发送请求}
          session[i－1].CSocket.socket.sendtext(session[i－1].request_str);
        break;{停止扫描请求文本}
      end;
      j:=pos(char(13)＋char(10),tmp);{指向下一行}
    end;
    break;{停止循环}   
end;
//当连接远程主机成功时
procedure TForm1.ClientSocket1Connect(Sender: TObject;Socket: TCustomWinSocket);
var i: integer;
begin
  for i:=1 to sessions do
    if (session[i－1].CSocket.socket.sockethandle= socket.SocketHandle)and session[i－1].Used < BR>     then
    begin
      session[i－1].CSocket.tag:=socket.SocketHandle;
      session[i－1].remote_connected:=true;{置远程主机已连通标志}
      session[i－1].Lookingup:=false;{清标志}
      break;
    end;
end;
//当远程主机断开时
procedure TForm1.ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
var i,j,k: integer;
begin
 for i:=1 to sessions do
  if (session[i-1].CSocket.tag=socket.SocketHandle) and session[i-1].Used then
  begin
    session[i-1].remote_connected:=false;{置为未连接}
    if not session[i-1].client_connected then
       session[i-1].Used:=false{假如客户机已断开，则置释放资源标志}
    else for k:=1 to serversocket1.Socket.ActiveConnections do
       if (serversocket1.Socket.Connections[k-1].SocketHandle=session[i-1].SS_Handle) and
       session[i-1].used then
       begin
         serversocket1.Socket.Connections[k-1].Close;
         break;
       end;
    break;
  end;
  j:=sessions;
  k:=0;
  for i:= 1 to j do
  begin
    if session[j-i].Used then break;
    inc(k);
  end;
  if k>0 then{修正会话数组}
  begin
    sessions:=sessions-k;
    setlength(session,sessions);
  end;
  edit1.text:=inttostr(sessions);
end;
file://当与远程主机通信发生错误时/
procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
var i,j,k: integer;
begin
  for i:=1 to sessions do
    if (session[i-1].CSocket.tag=socket.SocketHandle) and session[i-1].Used then
    begin
      socket.close;
      session[i-1].remote_connected:=false;{置为未连接}
      if not session[i-1].client_connected then
         session[i-1].Used:= false{假如客户机已断开，则置释放资源标志}
      else
         for k:=1 to serversocket1.Socket.ActiveConnections do
           if (serversocket1.Socket.Connections[k-1].SocketHandle=session[i-1].SS_Handle)
           and session[i-1].used then
           begin
             serversocket1.Socket.Connections[k-1].Close;
             break;
           end;
         break;
    end;
    j:= sessions;
    k:= 0;
    for i:= 1 to j do
    begin
      if session[j-i].Used then break;
      inc(k);
    end;
    errorcode:= 0;
    if k>0 then{修正会话数组}
    begin
      sessions:=sessions-k;
      setlength(session,sessions);
    end;
    edit1.text:= inttostr(sessions);
end;
//向远程主机发送页面请求
procedure TForm1.ClientSocket1Write(Sender: TObject; Socket:TCustomWinSocket);
var i: integer;
begin
  for i:= 1 to sessions do
    if (session[i-1].CSocket.tag= socket.SocketHandle) and session[i-1].Used then
    begin
      if session[i-1].Request then
      begin
        socket.SendText(session[i-1].request_str);{假如有请求，发送}
        session[i-1].Request:= false;{清标志}
      end;
      break;
    end;
end;
//远程主机发来页面数据时
procedure TForm1.ClientSocket1Read(Sender: TObject;Socket: TCustomWinSocket);
var i,j: integer;
    rec_bytes: integer;{传回的数据块长度}
    rec_Buffer: array[0..2047] of char; {传回的数据块缓冲区}
begin
  for i:= 1 to sessions do
    if (session[i-1].CSocket.tag= socket.SocketHandle) and session[i-1].Used then
    begin
      rec_bytes:= socket.ReceiveBuf(rec_buffer,2048); {接收数据}
      for j:= 1 to serversocket1.Socket.ActiveConnections do
        if serversocket1.Socket.Connections[j-1].SocketHandle= session[i-1].SS_Handle then
        begin
          serversocket1.Socket.Connections[j-1].SendBuf(rec_buffer,rec_bytes); {发送数据}
          break;
        end;
      break;
    end;
end;
//“页面找不到”等错误信息出现时
procedure TForm1.AppException(Sender:TObject; E: Exception);
begin
  inc(invalidrequests);
end;
file://查找远程主机定时/
procedure TForm1.Timer1Timer(Sender: TObject);
var i,j: integer;
begin
  for i:= 1 to sessions do
    if session[i-1].Used and session[i-1].Lookingup then{假如正在连接}
    begin
      inc(session[i-1].LookupTime);
      if session[i-1].LookupTime > lookuptimeout then{假如超时}
      begin
        session[i-1].Lookingup:=false;
        session[i-1].CSocket.active:=false;{停止查找}
        for j:=1 to serversocket1.Socket.ActiveConnections do
          if serversocket1.Socket.Connections[j-1].SocketHandle=session[i-1].SS_Handle then
          begin
            serversocket1.Socket.Connections[j-1].Close;{断开客户机}
            break;
          end;
      end;
     end;
 end;
end.
    三、总结
    由于这种设计思路仅仅在被代理端和远程主机之间增加了一个重定向功能，被代理端原有的缓存技术等特点均保留，因此效率较高。经过测试，利用1个33.6K的Modem上网时，三到十个被代理工作站同时上网，仍有较好的响应速度。由于被代理工作站和代理服务器之间的连接一般通过高速链路，因此瓶颈主要出现在代理服务器的上网方式上。 通过上述方法，作者成功开发了一套完善的代理服务器软件并与机房计费系统完全集成，实现了利用一台工作站完成上网代理、上网计费、用机计费等功能。 有编程经验的朋友完全可以另行增加代理服务器功能，如设定禁止访问站点、统计客户流量、Web访问列表等等。

上一页  [1] [2] 


没有相关教程
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台