Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Аватар Вконтакте (https://forum.antichat.xyz/showthread.php?t=203131)

ilyhamas 10.05.2010 23:15
Аватар Вконтакте
 
Необходимо получить фотографию из профиля в Image. Как это осуществить?
Язык Delphi

1n0y 11.05.2010 00:01
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;

ilyhamas 11.05.2010 07:43
1n0y

Как получить определённую картинку это понятно.
Мне нужно при авторизации. Ссылку картинки я не знаю

nitx 11.05.2010 07:59
Цитата:
Как получить определённую картинку это понятно.
Мне нужно при авторизации. Ссылку картинки я не знаю
то есть тебе известен линк на саму страницу? Тогда почти так же, нужно только отпарсить из полученного хтмл кода линк на картинку.

ilyhamas 11.05.2010 13:39
Цитата:
Сообщение от nitx
то есть тебе известен линк на саму страницу? Тогда почти так же, нужно только отпарсить из полученного хтмл кода линк на картинку.
именно это мне и надо

RedFern.89 11.05.2010 14:00
все просто

Код:
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 - ссылка на аву)))

ilyhamas 11.05.2010 19:28
Только возникает ошибка JPEG error #42

RedFern.89 11.05.2010 19:41
как ты картинку отображаешь? приведи код

ilyhamas 11.05.2010 19:48
второй пост

RedFern.89 11.05.2010 20:03
дайка сорс, так не понять ниче.. залей на slil


Время: 07:50
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице