Разбить GET-запрос на параметры

[fezilk25]

url=http://o-o.preferred.svo01s01.v14.lscache7.c.youtube.com/videoplayback?sparams=id%2Cexpire%2Cip%2Cipbits%2Citag%2Csource%2Calgorithm%2Cburst%2Cfactor%2Ccp&fexp=903309%2C903945%2C911501%2C901801&algorithm=throttle-factor&itag=35&ip=31.0.0.0&burst=40&sver=3&signature=5313F4DCAA9D3AF50C03282E1F06DD9B454119F5.1D1EBAE41A5F5AB0BFE6395E4D74DC142194D2FB&source=youtube&expire=1326043919&key=yt1&ipbits=8&factor=1.25&cp=U0hRS1BPUV9GU0NOMV9ISVVKOndodXVsZ1F6U0sx&id=ca20fa592ceaa982&quality=large&fallback_host=tc.v14.cache7.c.youtube.com&type=video/x-flv&itag=35,

есть вот такой длинный запрос с параметрами.
необходимо разбить его на части, чтобы получилось что то типа такого:
type=video/x-flv
itag=35
quality=large
а затем удалить некоторые параметры.
делал парсингом через pos, posex - задолбался: параметры не всегда стоят в одинаковом порядке.
Подскажите, пожалуйста, как это лучше реализовать.

[Mifody]

а не проще на такой коротенькой строке пробежаться циклом по символам?
1. "?" или "&" - начало параметра, следом идет имя параметра до "=" или конца строки
2. "=" - окончание имени параметра, далее идет значение параметра до "&" или окончания строки

[Delphi_ProGer]

может поможет:

procedure IsolateText(const S: String; Tag1, Tag2: String;
  list: TStrings);
 Var
    pScan, pEnd, pTag1, pTag2: PChar;
    foundText: String;
    searchtext: String;
  Begin
    { Set up pointers we need for the search. HTML is not case sensitive, so
      we need to perform the search on a uppercased copy of S.}
    searchtext := Uppercase(S);
    Tag1:= Uppercase( Tag1 );
    Tag2:= Uppercase( Tag2 );
    pTag1:= PChar(Tag1);
    pTag2:= PChar(Tag2);
    pScan:= PChar(searchtext);
    Repeat
      { Search for next occurence of Tag1. }
      pScan:= StrPos( pScan, pTag1 );
      If pScan <> Nil Then Begin
        { Found one, hop over it, then search from that position
          forward for the next occurence of Tag2. }
        Inc(pScan, Length( Tag1 ));
        pEnd := StrPos( pScan, pTag2 );
        If pEnd <> Nil Then Begin
          { Found start and end tag, isolate text between,
            add it to the list. We need to get the text from
            the original S, however, since we want the un-uppercased
            version! So we calculate the address pScan would hold if
            the search had been performed on S instead of searchtext. }
          SetString( foundText,
                     Pchar(S) + (pScan- PChar(searchtext) ),
                     pEnd - pScan );
          list.Add( foundText );

          { Continue next search after the found end tag. }
          pScan := pEnd + Length(tag2);
        End { If }
        Else { Error, no end tag found for start tag, abort. }
          pScan := Nil;
      End; { If }
    Until pScan = Nil;
end;

[Bright-rider]

Сделай пост запросом, а в документе напиши параметры.

[fucil]

Delphi_ProGer а что ваша процедура делает если не сикрет ?

[Delphi_ProGer]

Просто парсит инфо (S: String) , которая находиться между Tag1, и Tag2, и добавляет все отпарсеное в стринглист)
Например если на сайте есть структура вроде

<name>Nick1</name>
<name>Nick2</name>
<name>Nick3</name>

то вызвав IsolateText('input_string' ,'<name>', '</name>',list), у вас в листе должно быть:
Nick1
Nick2
Nick3
Как то так

[fucil]

Спасибо за ответ думал не ответишь или как все скажешь что влом разобраться самому !
Честно было влом разбираться держи + ))
Рад рад просто душевно ..


У меня типа такой есть только она работает по другому. Смысл такой-же, только она в массив раскидывает.