ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
11.05.2010, 20:24
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
Сообщение от RedFern.89
дайка сорс, так не понять ниче.. залей на slilотправил в ЛС часть кода
|
|
|
11.05.2010, 20:43
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264
Репутация:
69
|
|
скажи, а почему ты запрашиваешь страницу не авторизировавшись? оО щас намучу авторизацию
|
|
|
|
11.05.2010, 21:17
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264
Репутация:
69
|
|
ссылку дал в лс. У тебя там ошибка:
Код:
idhttp1.Get(url); // Ты запрашиваешь контент, но никуда его не записываешь
правильнее будет так:
idhttp1.Get(url, ms);
коли юзаешь инди, файл idCookieManager.pas залей в папку lib |
|
|
|
11.05.2010, 22:36
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
теперь ошибка JPEG error #53
|
|
|
|
11.05.2010, 22:50
|
|
Познающий
Регистрация: 17.03.2010
Сообщений: 51
Провел на форуме:
607904
Репутация:
37
|
|
я delphi не изучаю и не буду.(изучаю С#)
Но вот выложу алгоритм.
1.Авторизуемся VK как те удобно уйма способов,лучше winapi.
2.После авторизации,циклом на странице ишиш profilePhoto.
3.Парсиш и сохроняеш в Image.
p.s.Сильно не критиковать вроде все верно описал.
|
|
|
|
11.05.2010, 23:18
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
всё разобрался в чём проблема была.
всем спасибо!
|
|
|
|
12.05.2010, 00:21
|
|
Участник форума
Регистрация: 09.05.2009
Сообщений: 186
Провел на форуме:
1682814
Репутация:
102
|
|
Код:
var
Page : TStringList;
I : Integer;
url : string;
begin
Page := TStringList.Create;
Page.Text := HTTP.Get('http://vkontakte.ru/idxxxxxx');
url := Copy( Page.Text, Pos('img src=http://cs', Page.Text)+8, 70);
Delete(url, Pos('/>', url), Length(url));
page.Free;
end;
RedFern.89, так лучше, т.к. эта строчка в коде уникальна. ну или юзайте break; после нахождения строки, сами понимаете зачем  |
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
