[Кодер]

Я выкладывал:

Код:

while Pos('<user>',answer)<>0 do
          begin
          tempuser:=TUser.create;
          tempuser.uid:=Pars('uid',answer);
          tempuser.fname:=Pars('first_name',answer);
          tempuser.lname:=Pars('last_name',answer);
          tempuser.online:=StrToInt(Pars('online',answer));

          memo1.Lines.Add('added user='+tempuser.fname+' '+tempuser.lname);
          memo1.Lines.Add('online='+IntToStr(tempuser.online));

          if copy(Pars('photo_rec',answer),Length(Pars('photo_rec',answer))-3,4)='.jpg' then
             begin
               try
                  gethttp.Get(Pars('photo_rec',answer), ms);
                  ms.Position := 0;

                  jpeg := TJPEGImage.Create;
                  jpeg.LoadFromStream(ms);

                  tempuser.photo:=TBitmap.Create;
                  tempuser.photo.Assign(jpeg);
                  jpeg.Free;
               finally
                  ms.Clear;
               end;
             end;
          
          Friends.AddObject(tempuser.uid,tempuser);
          tempuser.Free;
          delete(answer,1,Pos('</user>',answer));
    end;
ms.Free;gethttp.Free;

С БД Access всё работало