10.05.2010, 23:15
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
Аватар Вконтакте
Необходимо получить фотографию из профиля в Image. Как это осуществить?
Язык Delphi
|
|
|
11.05.2010, 00:01
|
|
Участник форума
Регистрация: 09.05.2009
Сообщений: 186
Провел на форуме:
1682814
Репутация:
102
|
|
var
Img : TJpegImage;
Ms : TMemoryStream;
begin
Img := TJpegImage.Create;
Ms := TMemoryStream.Create;
try
Http.Get('http://vkontakte.ru/ссыль на аву', Ms);
except end;
Ms.Position := 0;
img.LoadFromStream(ms);
form1.Image1.Picture.Graphic := img;
|
|
|
|
11.05.2010, 07:43
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
1n0y
Как получить определённую картинку это понятно.
Мне нужно при авторизации. Ссылку картинки я не знаю
|
|
|
|
11.05.2010, 07:59
|
|
Участник форума
Регистрация: 04.01.2008
Сообщений: 186
Провел на форуме:
872350
Репутация:
72
|
|
Как получить определённую картинку это понятно.
Мне нужно при авторизации. Ссылку картинки я не знаю
то есть тебе известен линк на саму страницу? Тогда почти так же, нужно только отпарсить из полученного хтмл кода линк на картинку.
|
|
|
|
11.05.2010, 13:39
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
Сообщение от nitx
то есть тебе известен линк на саму страницу? Тогда почти так же, нужно только отпарсить из полученного хтмл кода линк на картинку.
именно это мне и надо
|
|
|
|
11.05.2010, 14:00
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264
Репутация:
69
|
|
все просто
Код:
var
Page : TStringList;
I : Integer;
url : string;
begin
Page := TStringList.Create;
Page.Text := HTTP.Get('http://vkontakte.ru/idxxxxxx');
For I := 0 to Page.Count -1 do
begin
if Pos('<div id="profilePhoto"', page[i]) <> 0 then
begin
url := page[i +1];
url := Copy(url, Pos('http://', url), Length(url));
Delete(url, Pos('/>', url), Length(url));
end;
end;
page.Free;
end;
// url - ссылка на аву)))
|
|
|
|
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; после нахождения строки, сами понимаете зачем  |
|
|
|
11.05.2010, 19:28
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
Только возникает ошибка JPEG error #42
|
|
|
|
11.05.2010, 19:41
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264
Репутация:
69
|
|
как ты картинку отображаешь? приведи код
|
|
|
|
11.05.2010, 19:48
|
|
Новичок
Регистрация: 25.10.2009
Сообщений: 22
Провел на форуме:
179346
Репутация:
0
|
|
второй пост
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
