Delphi CGI - Find GET

Der skulle self havde stået side.dk/fil.exe?hej=hejhej&jeg=ersod

Tag en form med en knap og et memo felt og prøv det her :


function ResolveNextToken(var s: string; Token: Char = #32): string;
var
  j: Integer;
begin
  Result := '';
  if s = '' then
    exit;
  j := 1;
  while (j <= Length(s)) and (s[j] <> Token) do
    inc(j);
  Result := Copy(s, 1, j - 1);
  Delete(s, 1, j);
end;



procedure TForm1.Button1Click(Sender: TObject);
var
  s : String;
  i : Integer;
begin
  s := 'http://side.dk/fil.exe?hej=hejhej&jeg=ersod';
  i := pos('?', s);

  if i = 0 then
    exit;

  s := Copy(s, i+1, Length(s));
  memo1.Lines.Add('===  GET  ===');
  memo1.Lines.Add(s);
  memo1.Lines.Add('===  PARAMETRE  ===');

  while s <> '' do
    Memo1.Lines.Add(ResolveNextToken(s, '&'));
end;


Det giver dig BÅDE hele din GET streng, samt de enkelte parametere i den !!!

Jens B

Tak :D