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 ;

[Sprint]

Zitat:

Zitat von Luckie

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

http://www.softgames.de/forum/viewtopic.php?t=106661

[Luckie]

Warum in die Ferne schweifen, wenn die Suche doch so nahe liegt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  szUrl : string; 
  dwLen : dword; 
begin 
  // Länge für den Puffer festlegen 
  SetLength(szUrl,MAX_PATH); 
  ZeroMemory(@szUrl[1],length(szUrl)); 

  // Längenwert für die Funktion merken 
  dwLen := length(szUrl); 

  // Funktion aufrufen, ... 
  if(InternetCanonicalizeUrl( 
    'http://www.EinURL.de/Ein Dokument mit Leerzeichen.html', 
    @szUrl[1], 
    dwLen, 
    0)) then 
  begin 
    SetLength(szUrl,strlen(pchar(szUrl))); 
    ShowMessage(Format('%s (%d)',[szUrl,dwLen])); 
  end 
  // ... oder im Fehlerfall anzeigen, dass der Puffer 
  // größer sein muss 
  else 
    ShowMessage(Format('Sie brauchen einen Puffer mit %d Zeichen.',[dwLen])); 
end;

[rossinie00]

*schups*

[Luckie]

Zitat:

Zitat von rossinie00

*schups*

Ja und? Hie rim Thread wurde funktionierender Quellcode gepostet.

[rossinie00]

mh irgendwie nicht. sorry, werds nochmal testen und dann ggf die Frage als beantwortet zeichen

[MathiasSimmack]

Das geht. Ist nämlich von mir der Codeauszug. :stupid: