Parameter aus einer URL parsen und ggf. ändern

[kcx]

Hey,

Ich habe z.B folgende URL:
http://www.seite.de/index.php?id=1&name=abc&f=87

Nun würde ich die Parameter dieser URL gerne bequem ändern, ohne da jetzt groß was mit Pos(), Copy(), Insert() usw. zu veranstalten, damit es vll. später so aussieht:
http://www.seite.de/index.php?id=25x&name=123a&f=12

Bei den Indys und in der Win32 API habe ich zwar Methoden gefunden, mit der ich eine URL zerlegen bzw. parsen kann, aber ich bräuchte etwas, womit ich gezielt und bequem irgwelche Parameter manipulieren kann.

Kennt da jmd. was oder muss man da doch die hässlichen Pos(), Copy() etc. Funktionen verwenden?

[inherited]

Nö :mrgreen:

Delphi-Quellcode:

function GetParameters(url: String; var sl: TStringList): Boolean;
var params: String;
begin
  params := Copy(url, pos('?', url)+1, length(url));
  sl.Delimiter := '&';
  sl.DelimitedText := params;
  result := sl.Count <> 0;
end;

Um das aus der StringList wieder in eine URL zu bekommen könnte man folgendes machen:

Delphi-Quellcode:

function PutParameters(baseurl: String; var sl: TStringList): string;
var i: Integer;
begin
  result := baseurl + '?';
  for i := 0 to sl.Count-2 do
  begin
    result := result + sl[i] + '&';
  end;
  if sl.Count > 0 then
  begin
    result := result + sl[sl.Count-1];
  end;
end;

Und/Oder um die Parameterliste zu ändern:

Delphi-Quellcode:

function ChangeParameters(url: String; var sl: TStringList): string;
begin
  result := Copy(url, 1, Pos('?', url)-1);
  result := PutParameters(result, sl);
end;

Aufruf, Beispiel:

Delphi-Quellcode:

var myparams: TStringList;
...
myParams := TStringList.Create;
if GetParams('http://www.seite.de/index.php?id=1&name=abc&f=87', myParams) then
begin
  myParams.Values['id'] := 25;
end;

Ungetestet hingetippelt :mrgreen:

[kcx]

Ah, Vielen Dank für den Tipp mit der StringList und der Eigenschaft "Values", das hätte mir schon gereicht.
:dp: