[Delphi] Vkontakte component

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by RedFern.89, 19 Feb 2010.

  1. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    [Delphi] Vkontakte component [ОБНОВЛЕНИЕ]

    накодил компонент для vkontakte.

    Усилием 2х кружек кофе и пачки сигарет добавил 2 возможности.

    смотрите список обновлений

    Список обновлений:
    1. Считывает аудио-записи
    2. Считывает друзей/онлайн-друзей
    3. Считывает новые сообщения
    4. Выбор сервера (vkontakte.ru/vk.com)
    5. Отправка сообщения
    6. Множественный поиск аудио
    7. Прокси-сервер


    возможности будут пополнятся))

    устанавливается на вкладку Standard

    Компоненту всего 2 дня! Прошу сильно не пинать))

    исправление процедуры в Indy 7-9

    Code:
    procedure TIdCookieManager.DoAdd(ACookie: TIdCookieRFC2109; ACookieText, AHost: String);
    Var
      LDomain: String;
    begin
      ACookie.CookieText := ACookieText;
    
      if Length(ACookie.Domain) = 0 then LDomain := AHost
      else LDomain := ACookie.Domain;
    
      ACookie.Domain := LDomain;
    
    [b]// если есть точка в начале домена, убираем ее[/b]
      If ACookie.Domain[1] = '.' Then
      ACookie.Domain := Copy(ACookie.Domain, 2, Length(ACookie.Domain));
    
      if ACookie.IsValidCookie(AHost) then
      begin
        if DoOnNewCookie(ACookie) then
        begin
          FCookieCollection.AddCookie(ACookie);
        end
        else begin
          ACookie.Collection := nil;
          ACookie.Free;
        end;
      end
      else begin
        ACookie.Free;
      end;
    end;
    
    ссылка на сорцы:
    http://slil.ru/28695561

    мелкая демка по работе с компонентом
    http://slil.ru/28674926

    P.S. работать не будет, если не исправить процедуру DoAdd в TidCookieManager.pas если кто не знает, как и что, пишите.
     
    #1 RedFern.89, 19 Feb 2010
    Last edited: 6 Apr 2010
    2 people like this.
  2. $Smoke$

    $Smoke$ New Member

    Joined:
    17 Feb 2010
    Messages:
    0
    Likes Received:
    3
    Reputations:
    0
    спасибо
     
  3. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    щас удалю exe из архива и перезалью все))) мне в лом антивирь ставить)))
     
  4. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Жалко что не на сокетах
     
  5. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    блин. сокеты тока 1 запрос могут послать. Если кто хочет - можете переделать и убедиться сами
     
  6. НTL

    НTL Elder - Старейшина

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    да ну, а если каждый раз создавать поток?
     
  7. 1n0y

    1n0y Active Member

    Joined:
    9 May 2009
    Messages:
    275
    Likes Received:
    276
    Reputations:
    2
    ааап! покажи!
     
    #7 1n0y, 20 Feb 2010
    Last edited: 24 Feb 2010
  8. Gar|k

    Gar|k Moderator

    Joined:
    20 Mar 2009
    Messages:
    1,166
    Likes Received:
    266
    Reputations:
    82
    RedFern.89 если делать нефиг.
    щас ради интереса сохранил прямой адрес картинки на сервере - фотки и удалил ее из альбома... - в скором времени заходить по ссылке на картинку типа photos123124124 стало незя, в альбоме ее нету сразу.... а вот прямая ссылка на картинку работает. (и я думаю вообще не удаляется) - мысль - индексировать альбом пользователя проходя по страницам и выберая прямые ссылки на фото - сохранять это дело куда-нить (хоть в текстовик... на perlе сесть чтоле написать...)

    в итоге у нас будут все фоты пользователя даже удаленные им и удаленные им альбомы.

    з.ы: отпишу 22 удалилась ли фотка с сервака...
     
    _________________________
  9. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    Gar|k, ты имеешь ввиду, что удаляется только ссылка из бызы данных, но не удаляется картинка с сервера?))
     
  10. Meecript_

    Meecript_ Banned

    Joined:
    29 Oct 2008
    Messages:
    194
    Likes Received:
    62
    Reputations:
    32
    А компоненты инди не на сокетах написаны? )
     
  11. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    1n0y, cтукни в асю, помогу))
     
  12. eurotat

    eurotat New Member

    Joined:
    19 Feb 2010
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    спасибо
     
  13. leonkiller_92

    leonkiller_92 New Member

    Joined:
    4 Feb 2010
    Messages:
    8
    Likes Received:
    0
    Reputations:
    -5
    спасибо пригодится!
     
  14. Jingo Bo

    Jingo Bo Member

    Joined:
    25 Oct 2009
    Messages:
    368
    Likes Received:
    51
    Reputations:
    7
    +1

    А зачем этот компонент нужен, и при чём на инди в котором сто тыщ багов самом по себе)(пруф?)
     
  15. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    Писал для себя. А если хотите/нехотите пользоваться - дело ваше
     
  16. ilyhamas

    ilyhamas Banned

    Joined:
    25 Oct 2009
    Messages:
    48
    Likes Received:
    2
    Reputations:
    0
    Спасибо. Посмотрим
     
  17. Guffi

    Guffi New Member

    Joined:
    6 Mar 2010
    Messages:
    14
    Likes Received:
    0
    Reputations:
    0
    Спасибо новичкам покатит. А если серьёзно то спамер или что то подобное на нём серьёзный не напишешь так как всё это дело будет тормозить и глючить. Правильно говорили что нужно писать на сокетах, да икстати нет там проблем с запросами если всё правильно сделать.
     
  18. Meecript_

    Meecript_ Banned

    Joined:
    29 Oct 2008
    Messages:
    194
    Likes Received:
    62
    Reputations:
    32
    Не обязательно на сокетах, главное не на инди :)
     
  19. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    M_script_ да пусть пишут на сокетах, если их еще родители кормят и время позволяет так делать
     
  20. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    Скоро придет это время и я сделаю все это дело на сокетах:)
     
Loading...