dlmain.~pas

HTTP代理服务器修改后的增强源码。用Delphi自身待的控件实现。

//
  s:='';
  k:=0;
  for i:=1 to len do
    begin
      inc(k);
      if k>16 then
      begin
       m.Lines.Add(s);
       s:='';
       k:=1;
      end;
      s:=s+inttohex(ord(buf[i-1]),2)+' ';
     end;
     m.Lines.Add(s);
end;
//被代理端发送来页面请求时…
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
tmp,line,host,sport: string;
i,j,port,k: integer;
buf:abuf;
begin
   for i:=1 to sessions do                 {判断是哪一个会话}
      if session[i-1].Used and (session[i-1].SS_Handle=socket.sockethandle) then
          begin
             K:=socket.ReceiveBuf(buf,2048);
             session[i-1].reqcount:=k;
             session[i-1].reqbuf:=buf;
             //session[i-1].request_str:=socket.ReceiveText;  {保存请求数据}
             //tmp:=session[i-1].request_str;                 {存放到临时变量}
             //memo1.lines.add(tmp);
             memo1.lines.add('len='+inttostr(k));
             memo1.Lines.Add(buf);
             //disphex(buf,memo1,k);

             tmp:=buf;
             memo1.Lines.Add('----------');
             j:=pos(char(13)+char(10),tmp);                 {一行标志}
             while j>0 do                       {逐行扫描请求文本，查找主机地址}
                begin
                   line:=copy(tmp,1,j-1);                  {取一行}
                   delete(tmp,1,j+1);                      {删除一行}
                   j:=pos('CONNECT',line);                    {主机地址标志}
                   if j>0 then
                      begin
                         delete(line,1,j+7);               {删除前面的无效字符}
                         j:=pos(':',line);
                         if j>0 then
                            begin
                               host:=copy(line,1,j-1);
                               delete(line,1,j);
                               j:=pos(' ',line);
                               sport:=copy(line,1,j-1);
                               try
                                  port:=strtoint(sport);
                               except
                                  port:=80;
                               end;
                            end
                         else//默认的访问端口80
                            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);
                           session[i-1].CSocket.socket.sendbuf(session[i-1].reqbuf,session[i-1].reqcount);
                           memo1.Lines.Add('host='+host);
                           memo1.Lines.Add('port='+inttostr(port));
                         break;                        {停止扫描请求文本}
                      end;
                   j:=pos(char(13)+char(10),tmp);           {指向下一行}
                end;
             break;                    {停止循环}
          end;
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 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;


//当和远程主机通信发生错误时…
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);   {假如有请求，发送}
                  socket.sendbuf(session[i-1].reqbuf,session[i-1].reqcount);
                  session[i-1].Request:=false;                 {清标志}
                  memo1.Lines.Add('send remote.................................');
                  memo1.Lines.Add(session[i-1].reqbuf);
               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);    {接收数据}
            memo1.Lines.Add('receive from remote.................................');
            memo1.Lines.Add(rec_buffer);
            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.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.