Delphi 7 как загрузить аватар из Контакта в TImage?

Ребята, помогите с кодом. Нужно загрузить в TImage аватар из определенной странице "Вконтакте". При этом чтоб не нужно было логиниться. Также чтоб из этой страницы можно было получить Имя, Ник и Фамилию.
Заранее спасибо....

 

vkontakte api
http://grabberz.com/showthread.php?t=24607

 

Код для загрузки изображения в Timage.

Code:

uses
.., IdHttp, Jpeg;

var
Jpg : TJpegImage;
MS  : TMemoryStream;
http: TIdHTTP;
begin
Ms  := TMemoryStream.Create;
Jpg := TJpegImage.Create;
http:=TIdHTTP.Create(nil);
http.Get('Ссылка на аватар который хочешь скачать', Ms);
http.Free;
Ms.Position := 0;
Jpg.LoadFromStream(ms);
Form1.Image1.Picture.Graphic := Jpg;
end;

а Имя, Ник и Фамилию нужно спарсить со страницы.

 

спасибо, уже разбираюсь....

 

спасибо , попробую разобраться....

 

Получение авы

Code:

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));

Вывод в Image1

Code:

Img := TJpegImage.Create;
Ms := TMemoryStream.Create;
idhttp1.Get(url, ms);
Ms.Position := 0;
img.LoadFromStream(ms);
Image1.Picture.Graphic := img;

 

можно подробнее , что за Page.Count не пойму, откуда его брать?

 

Page - это вроде как TStringList.

Когда получаешь страницу с помощью idHTTP, то сохраняешь данные в объект типа TStringList, в данном случае. В цикле выше происходит поиск нужных данных, Page.Count - количество строк в теле загружаемой страницы.

 

РазобралсО... всем спасибо за помощь....!!!!!!

удалось получить аватар изменив немного выше приведенный код на:

Code:

For I := 0 to Page.Count -1 do
  begin
       if Pos('<div id="profileContent"', page[i]) <> 0 then
    begin
      url := page[i +4];
      url := Copy(url, Pos('http://', url), Length(url));
      Delete(url, Pos('/>', url), Length(url));
    end;
  end;