[Кодер]

Восстановил библиотеку SSL. Теперь программа умирает при скачивании файлов из сети с мессаджем Connection timeout. Ранее работало без капризов. Это может быть как то связано с либой?

Код:

gethttp := TIdHTTP.Create(nil);
  ms := TMemoryStream.Create;

    while Pos('<user>',answer)<>0 do
          begin

          tempuser:=TUser.create;
          tempuser.uid:=Pars('uid',answer);
          tempuser.fname:=Pars('first_name',answer);
          tempuser.lname:=Pars('last_name',answer);
          tempuser.online:=StrToInt(Pars('online',answer));

          if Pos('<activity/>',copy(answer,1,Pos('</user',answer)))<>0 then
             tempuser.activity:=''
          else
             tempuser.activity:=Pars('activity',answer);

          if copy(Pars('photo_rec',answer),Length(Pars('photo_rec',answer))-3,4)='.jpg' then
             begin

               try
                  try
                    gethttp.Get(Pars('photo_rec',answer), ms);
                  except
                    on E:Exception do exit;
                  end;
                  ms.Position := 0;

                  jpeg := TJPEGImage.Create;
                  jpeg.LoadFromStream(ms);
                  tempuser.photo:=TBitmap.Create;
                  tempuser.photo.Assign(jpeg);
                  tempuser.photo.Width:=50;
                  tempuser.photo.Height:=50;
                  jpeg.Free;
               finally
                  ms.Clear;
               end;
             end;

          Friends.AddObject(tempuser.uid,tempuser);
          delete(answer,1,Pos('</user>',answer));
          pb_login.Position:=pb_login.Position+1;
    end;
ms.Free;gethttp.Free;