[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
    спасибо
     
    #2 $Smoke$, 19 Feb 2010
  3. RedFern.89

    RedFern.89 Member

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

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

    Joined:
    26 Jan 2008
    Messages:
    715
    Likes Received:
    205
    Reputations:
    -26
    Жалко что не на сокетах
     
    #4 НTL, 20 Feb 2010
  5. RedFern.89

    RedFern.89 Member

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

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

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

    1n0y Active Member

    Joined:
    9 May 2009
    Messages:
    276
    Likes Received:
    282
    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 удалилась ли фотка с сервака...
     
    _________________________
    #8 Gar|k, 21 Feb 2010
  9. RedFern.89

    RedFern.89 Member

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

    Meecript_ Banned

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

    RedFern.89 Member

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

    eurotat New Member

    Joined:
    19 Feb 2010
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    спасибо
     
    #12 eurotat, 30 Mar 2010
  13. leonkiller_92

    leonkiller_92 New Member

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

    Jingo Bo Member

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

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

    RedFern.89 Member

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

    ilyhamas Banned

    Joined:
    25 Oct 2009
    Messages:
    48
    Likes Received:
    2
    Reputations:
    0
    Спасибо. Посмотрим
     
    #16 ilyhamas, 3 Apr 2010
  17. Guffi

    Guffi New Member

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

    Meecript_ Banned

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

    GhostOnline Active Member

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

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    Скоро придет это время и я сделаю все это дело на сокетах:)
     
    #20 RedFern.89, 4 Apr 2010
(You must log in or sign up to post here.)
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.