Einzelnen Beitrag anzeigen

Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#2

AW: Lokale Links im TWebBrowser

  Alt 3. Nov 2010, 21:54
Stichwort Urlencode (Sonderzeichen sind codiert, z,B auch das Leerzeichen mit %20, was man oft sieht).

Ganze einfach hatte ich das mal so realisiert, gibt es aber evtl. besseres:
Delphi-Quellcode:
function EncodeUrl(AString : String): String;
const
  ValidChars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUFWXYZ-_.~1234567890';
var
  i : Integer;
begin
  Result := '';
  for i := 1 to Length(AString) do
    if Pos(AString[i], ValidChars) <= 0 then
      Result := Result + '%' + IntToHex(Ord(AString[i]), 2)
    else
      Result := Result + AString[i];
end;
  Mit Zitat antworten Zitat