String(ansi) to Url-Encoded String

[rossinie00]

gugux,
ich bin auf der suche nach einer procedure oder einer möglichkeit besser gesagt um einen ansistring in einen url-encoded string umzuwandeln. Nicht die buchstaben nur also die sonderzeichen.
zb. whitespace = + oder so
Danke

[Lannes]

Richtig: whitespace = +
Die anderen sind die Hexadezimalcodes z.B. das Zeichen "&" ist dann "%26"

Folgender Code ist die Umkehrung deiner Frage:

Delphi-Quellcode:

// Converts a URLencoded string to a normal string 
Function DecodeURL(Instr: String): String; 
Var 
   S:        String; 
   X:        Integer; 
   C,N1,N2:  Char; 
Begin 
   If Instr='' then exit; 
   S := ''; 
   TempURL := Instr;                       // Copy URLencoded string 
   Index := 1;                             // Reset string index 
   Repeat 
      C := GetURLchar;                     // Get next character 
      If C='%' then                        // If it's a hex esc char 
      Begin 
         N1 := GetURLchar;                  // Get first digit 
         N2 := GetURLchar;                  // Get second digit 
         X := (Hex2Int(N1)*16)+Hex2Int(N2); // Convert to integer 
         S := S+Chr(X);                     // Add character 
      end else 
      If C='+' then                         // If + then convert to space 
         S := S+' ' else 
      S := S+C;                             // Just add character 
   Until C=' ';                             // Until no more in string 
   Result := S; 
end;

Hoffe das hilft Dir.

[Lannes]

Hallo,

das hast Du gesucht, oder :wink:

Delphi-Quellcode:

Function URLEncode(Value : String) : String;
Var I : Integer;
Begin
   Result := '';
   For I := 1 To Length(Value) Do
      Begin
         If Pos(UpperCase(Value[I]), ValidURLChars) > 0 Then
            Result := Result + Value[I]
         Else
            Begin
               If Value[I] = ' ' Then
                  Result := Result + '+'
               Else
                  Begin
                     Result := Result + '%';
                     Result := Result + IntToHex(Byte(Value[I]), 2);
                  End;
            End;
      End;
End;

[rossinie00]

das 2.
aber da klebt er bei: ValidURLChars als undef bezeichner.
muss ich da noch was in die uses eintragen?

[Lannes]

was vergessen :oops:

Delphi-Quellcode:

Const ValidURLChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789$-_@.&+-!*"''(),;/#?:';

[rossinie00]

irgendwie macht es nicht das, wie's soll.

hab jetzt

test := URLEncode(test);
macht er nicht

[Luckie]

Warum die ganze Arbeit? UrlCanonicalize ;)

Zitat:

Takes a URL string and converts it into canonical form.
[..]
This function performs such tasks as replacing unsafe characters with their escape sequences and collapsing sequences like "..\...".

Ist allerdings in der shlwapi.dll drinne und da weiß ich nicht, ob es dafür schon eine Übersetzung für Delphi gibt.

[rossinie00]

Zitat:

Ist allerdings in der shlwapi.dll drinne und da weiß ich nicht, ob es dafür schon eine Übersetzung für Delphi gibt.

desswegen die ganze arbeit *g*

[Lannes]

Zitat:

Zitat von rossinie00

irgendwie macht es nicht das, wie's soll.

hab jetzt

test := URLEncode(test);
macht er nicht

Poste mal deinen Code.
Bei mir klappt es, hab es gerade nochmal getestet.
Aus 'http://www.google.de/search?hl=de&q=Delphi&meta='
wird 'http://www.google.de/search?hl%3Dde&q%3DDelphi&meta%3D'

[rossinie00]

hab ich doch. ist relativ komplex und nicht gpl.
bei mir siehts so aus:

text := urlencode(memo1.text);
memo1.text := text ;