Парсинг. работа с сетью. (пишем парсер id участников)

  • Автор темы MODERN
  • Дата начала
MODERN
Участник
Сообщения
756
Реакции
130
Код:
procedure TForm1.loginbtnClick(Sender: TObject);
var
  temp:string;
  users:tstringlist;
  i:integer;
  userlist:tstringlist;
  userid,username,fullline:string;
begin
  userlist:=tstringlist.Create;
  userlist.Sorted:=true;
  userlist.Duplicates:=dupignore;
  users:=tstringlist.Create;
  users.Sorted:=true;
  users.Duplicates:=dupignore;
  idlist.Clear;
  statusbar1.Panels[0].text:='Loading usersID list, wait...';
  try
    temp:=http.Get('http://servahoc.ru/members/');
    parseall('http://servahoc.ru/members/',temp,'',users);
    for i:=0 to users.count -1 do
    begin
      temp:=users[i];
      userid:=parsestr('profile/',temp,'/',[]);
      username:=parsestr('rel="get_user">',temp,'<',[]);
      fullline:=userid+':'+username;
      if pos('>(Мужской)<',temp)>0 then
      fullline:=fullline+'(!)';
      idlist.Lines.Add(fullline);
    end;
  finally
    users.free;
    userlist.free;
  end;
  statusbar1.Panels[0].text:=format('List of %s',[inttostr(idlist.Lines.count)]);
end;
Код может не совсем корректный, подправьте если что, я в этом не очень опытный!
 
Сверху