integer;
begin
   for i:=1 to sessions do                 {判断是哪一个会话}
      if session[i-1].Used and (session[i-1].SS_Handle=socket.sockethandle) then
          begin
             session[i-1].request_str:=socket.ReceiveText;  {保存请求数据}
             tmp:=session[i-1].request_str;                 {存放到临时变量}
             memo1.lines.add(tmp);
             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(''Host'',line);                    {主机地址标志}
                   if j>0 then
                      begin
                         delete(line,1,j+5);               {删除前面的无效字符}
                         j:=pos('':'',line);