Форум АНТИЧАТ - [Delphi] Vkontakte component

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - [Delphi] Vkontakte component (https://forum.antichat.xyz/showthread.php?t=180075)

[Delphi] Vkontakte component [ОБНОВЛЕНИЕ]

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

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

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

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

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

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

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

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

Код:

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;



// если есть точка в начале домена, убираем ее

  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 если кто не знает, как и что, пишите.

Демка с индюком. Перекомпилируй. А то щас будут кричать про злой вирус)

щас удалю exe из архива и перезалью все))) мне в лом антивирь ставить)))

Жалко что не на сокетах

блин. сокеты тока 1 запрос могут послать. Если кто хочет - можете переделать и убедиться сами

Цитата:

Сообщение от RedFern.89

блин. сокеты тока 1 запрос могут послать. Если кто хочет - можете переделать и убедиться сами

да ну, а если каждый раз создавать поток?

Цитата:

Сообщение от RedFern.89

P.S. работать не будет, если не исправить процедуру DoAdd в TidCookieManager.pas если кто не знает, как и что, пишите.

ааап! покажи!

RedFern.89 если делать нефиг.
щас ради интереса сохранил прямой адрес картинки на сервере - фотки и удалил ее из альбома... - в скором времени заходить по ссылке на картинку типа photos123124124 стало незя, в альбоме ее нету сразу.... а вот прямая ссылка на картинку работает. (и я думаю вообще не удаляется) - мысль - индексировать альбом пользователя проходя по страницам и выберая прямые ссылки на фото - сохранять это дело куда-нить (хоть в текстовик... на perlе сесть чтоле написать...)

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

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

Gar|k, ты имеешь ввиду, что удаляется только ссылка из бызы данных, но не удаляется картинка с сервера?))