VPF::Класс для работы с URL - Форум программистов

Matematik

Дата 20.9.2006, 10:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Может кто-нибудь видел класс для работы с URL, наподобии TIdURL только плюс возможность добавлять\изменять\удалять отдельные параметры (то что идет после ?).

Snowy

Дата 20.9.2006, 11:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

А чем TIdURL не устраивает?
Распарсил, заменил, запарсил обратно...

Matematik

Дата 20.9.2006, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Тем и не устраивает, парсить лень smile

. Хочется готового

phanatos

Дата 21.9.2006, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 9.8.2006

Репутация: 1
Всего: 2

Ну нельзя же быть настолько ленивым =)
Чем тебя стандартный TStringList не устраивает?

Код


var
  URI:TIdUri;
  str:TStringList;
  procedure ShowContent;
  var
    i:integer;
  begin
    for I := 0 to str.Count - 1 do
    begin
      Memo1.Lines.Add(Format('Параметр %s имеет значние %s',[str.Names[i],str.ValueFromIndex[i]]));
    end;
  end;
begin
  //URI:=TIdURI.Create(Edit1.Text);
  URI:=TIdURI.Create('http://www.ya.ru/index.htm?aaa=1&bbb=2');
  str:=TStringList.Create;
  try
    Memo1.Lines.Add(URI.GetFullURI());
    ExtractStrings(['&'],[],pchar((Copy(URI.Params,2,length(URI.Params)))),str);
    ShowContent;
    str.ValueFromIndex[0]:=str.ValueFromIndex[1];
    str.ValueFromIndex[1]:='Другое значение';
    ShowContent;
  finally
    str.Free;
    URI.Free;
  end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »