Wort und Umlaute etc...

[Bauer007]

Ich habe zb ein Wort Mühe das soll zu M%C3%BChe werden - nur wie codiere ich sowas?!

Irgendwie finde ich dazu nichts passendes zumal ich auch D5 STD nutze!

[Christian Seehase]

Moin Sebastian,

dafür könntest Du UrlEscape nehmen.
Diese befindet sich in der shlwapi.dll.
Du müsstest die Funktion nur selber importieren.

[dominikkv]

Such mal nach StringReplace
StringReplace(myText, 'ü', '%C3%BC', [rfReplaceAll]);

[Bauer007]

Zitat von dominikkv:

Such mal nach StringReplace
StringReplace(myText, 'ü', '%C3%BC', [rfReplaceAll]);

Na ja das war nur ein beispiel! Es geht um ALLES Buchstaben die NICHT in einer URL angeben werden!

ÜÖÄß etc....

[dominikkv]

Zitat von Bauer007:

Zitat von dominikkv:

Such mal nach StringReplace
StringReplace(myText, 'ü', '%C3%BC', [rfReplaceAll]);

Na ja das war nur ein beispiel! Es geht um ALLES Buchstaben die NICHT in einer URL angeben werden!

ÜÖÄß etc....

Du kannst diese Prozedur auch mehrmals mit verschiedenen Buchstaben anwenden

[uligerhardt]

Zitat von Christian Seehase:

dafür könntest Du UrlEscape nehmen.
Diese befindet sich in der shlwapi.dll.
Du müsstest die Funktion nur selber importieren.

Delphi-Quellcode:

uses
  ShLwApi;

[Bauer007]

Schon klar habe ich auch so gemacht das UrlEscape nicht das ist was ich suche da es den IE5 mindestens benötigt! Mlchte mich nicht so beschränken...


habe dann dieses versucht:

Delphi-Quellcode:

  NEW_SEARCH_STRING_TEMP := '';
  for i := 1 to Length(NEW_SEARCH_STRING) do
    if NEW_SEARCH_STRING[i] in ['0'..'9', 'A'..'Z', '[', ']', '_', 'a'..'z'] then NEW_SEARCH_STRING_TEMP := NEW_SEARCH_STRING_TEMP + NEW_SEARCH_STRING[i]
    else NEW_SEARCH_STRING_TEMP := NEW_SEARCH_STRING_TEMP + '%' + IntToHex(Ord(NEW_SEARCH_STRING[i]), 2);

daraus wird Mühe zu M%FChe STATT wie es sein sollte M%C3%BChe

[Bauer007]

Zitat von Bauer007:

Schon klar habe ich auch so gemacht das UrlEscape nicht das ist was ich suche da es den IE5 mindestens benötigt! Mlchte mich nicht so beschränken...


habe dann dieses versucht:

Delphi-Quellcode:

  NEW_SEARCH_STRING_TEMP := '';
  for i := 1 to Length(NEW_SEARCH_STRING) do
    if NEW_SEARCH_STRING[i] in ['0'..'9', 'A'..'Z', '[', ']', '_', 'a'..'z'] then NEW_SEARCH_STRING_TEMP := NEW_SEARCH_STRING_TEMP + NEW_SEARCH_STRING[i]
    else NEW_SEARCH_STRING_TEMP := NEW_SEARCH_STRING_TEMP + '%' + IntToHex(Ord(NEW_SEARCH_STRING[i]), 2);

daraus wird Mühe zu M%FChe STATT wie es sein sollte M%C3%BChe

ps.: ShLwApi habe ich nicht

[Christian Seehase]

Zitat von uligerhardt:

Zitat von Christian Seehase:

dafür könntest Du UrlEscape nehmen.
Diese befindet sich in der shlwapi.dll.
Du müsstest die Funktion nur selber importieren.

Delphi-Quellcode:

uses
  ShLwApi;

Die kennt allerdings noch nicht mal D7, geschweige denn D5

[marabu]

Hallo Sebastian,

wenn du die Indy Komponenten installiert hast, dann kannst du auch die Klassenmethode UrlEncode() von TIdURI verwenden. Beachte auch, dass %C3%BC die UTF-8 Kodierung des ü ist.

Grüße vom marabu