Delphi в Интернет, блог Delphi программистов

Сегодня немного доработал компонент для аутентификации пользователя в различны сервисах Google. В основном изменения коснулись исправления небольших недочетов в работе компонента.

Так, при смене названия приложения (свойство Source) новое название приложения присваивалось полю Service в результате чего, при повторной аутентификации могла возникнуть исключительная ситуация.
Убраны лишние модули из секции uses в результате чего компонент немного "похудел".
Все константы, используемые при анализе результата логина были вынесены в раздел const.
И наконец, переписан код, касающийся работы со свойством Service. Напомню для чего это поле использовалось.
Дело в том, что при аутентификации в любом сервисе Google необходимо указать его идентификатор (параметр service в запросе). Так, сервис "Календарь" имеет идентификатор cl, Google Analytics - analytics и т.д. Если же Вам не известно какой из сервисов запросит пользователь, то допускается использовать идентификатор xapi.
Так вот в старой версии компонента GoogleLogin поле Service представляло собой простую строку (string) и, я не исключаю такой возможности, кто-то мог занести в это поле не то, что требуется. Например, вместо cl записать celendar и т.д. Что опять же могло привести к ошибке аутентификации или просьбе ввести каптчу.
Сейчас поле Service определяется перечисляемым типом TServices, который содержит все доступные на данный момент идентификаторы сервисов, включая последние разработки Google API, такие как SiteWiki и т.д.
Также в архиве с компонентом обновлена программа демонстрирующая работу компонента.
Скачать обновленный компонент можно со страницы Downloads проекта DelphiCelendar. В общем скачивайте, устанавливайте и пользуйтесь на здоровье :).

Делись!	Загружай!	Плюсуй!
	Отправить PDF на

Комментарии (10)

• Алексей (Минск) пишет:
  31 Мар 2010 в 12:08 пп

  Что мы как-то не в ногу идем )))
  Я тоже начал переделывать его

• Vlad пишет:
  31 Мар 2010 в 12:24 пп

  Кого? Я ещё ничего не закидывал в репозиторий. Ща в группе всй распишем :)

• deksden пишет:
  31 Мар 2010 в 2:44 пп

  Скажите — для меня остается загадкой: что означает слово celendar? сначала думал — опечатка! Но судя по настойчивости, с которой оно используется — наверное, есть какой то смысл в этом слове. Если имелось ввиду «Календарь», то он пишется cAlendar.

• Vlad пишет:
  31 Мар 2010 в 4:10 пп

  Конечно есть смысл. Это как слово «матраЦ», который разрешили писать как матраС, только потому, что лингвисты запарились тыкать носом безграмотных в словарь Даля. Глядиш и calendar начнут писать как celendar :). А если серьезно, то смысл есть, более того где-то в блоге есть Synapse и Synapce и ещё парочка похожих слов и словосочетаний.

• Gummy пишет:
  04 Апр 2010 в 9:17 дп

  Ну народ вы прям как черепашки низя
  как к вам не зайду у вас всё Гугл Логин
  уж пора бы чёнить поинтереснее
  Ксати идея и вопрос задно
  кто встречал Java2Delphi конветрет?
  я както скачал с какогото азиатского сайта, он свой пример то перегоняет а вот чтото серьезное уже рычит

  Просто уже на C и Java есть готовые модули
  если их быстро перегнать в Delphi то я думаю продуктивность вашей работы возрастёт

• Gummy пишет:
  04 Апр 2010 в 9:25 дп

  Хотел написать Ниньзя а вышло
  файлик назывался
  java2delphi.20070629.zip

• Vlad пишет:
  04 Апр 2010 в 5:02 пп

  Java2Delphi не встречал. А по поводу «по-интереснее» так оно есть :) точнее готовится быть — надо доработать немного примеры, протестить. Другое дело, что интересно конкретно для Вас?

• Виталий пишет:
  25 Янв 2011 в 2:30 пп

  Народ нашел небольшой баг, если в пароле к почте есть спец символы типа «?»,то логин не проходит, фикс закодировать пассворд спомощью HtmlEncode.
   
  function GetParamStr: string;
  var
  Size: Cardinal;
  lencurl: cardinal;
  CanonicalURL: string;
  begin
  if Length(Trim(FLogintoken))>0 then //в результате прошлого запроса получена каптча
  begin
  Result:=Format(ParamStrCaptcha,[GetEnumName(TypeInfo(TAccountType),Ord(FAccountType)),
  FEmail,
  HTTPEncode(FPassword),
  GetEnumName(TypeInfo(TServices),Ord(FService)),
  FSource,
  FLoginToken,
  LoginCaptcha]);
  end
  else
  Result:=Format(ParamString,[GetEnumName(TypeInfo(TAccountType),Ord(FAccountType)),
  FEmail,
  HTTPEncode(FPassword),
  GetEnumName(TypeInfo(TServices),Ord(FService)),
  FSource]);
  end;

• Vlad пишет:
  25 Янв 2011 в 2:34 пп

  Виталий, спасибо за информацию. Этот баг пофиксеный на GitHub лежит вроде бы (в последнее время компонент дорабатывал другой человек).

• Виталий пишет:
  29 Янв 2011 в 6:36 пп

  Еще, вдруг кому-нибудь  понадобиться… SID, LSID
  if pos(‘SID’, UpperCase(List[i])) = 0 then
  FSID := Trim(copy(List[i], pos(‘=’, List[i]) + 1, Length(List[i]) -
  pos(‘=’, List[i])))
  else if pos(‘LSID’, UpperCase(List[i])) = 0 then
  FLSID := Trim(copy(List[i], pos(‘=’, List[i]) + 1, Length(List[i]) -
  pos(‘=’, List[i])))
  Всегда выполниться первый IF, так как  LSID включает в себя SID, fix — 0 заменить на 1

   

Ваш ответ