[code snippet] function HTTPEncode

[KeYDoN]

Script Name: HTTPEncode
Script Description: This function will encode a string(Source) to be safe for use in a URL.
Original Author(s): KeYDoN
Core Version: 0.5.0

Sick of waiting for 2.6 or some surprising 2.5.5 version?
here you go:

Code:

Code: [Select]

function HTTPEncode(Str: String):String;
var
i: integer;
s: string;
begin
for i:=1 to length(Str) do begin
s:= Copy(Str,i,1);
if s=' ' then result:=result+'%20'
else if s='!' then result:=result+'%21'
else if s='"' then result:=result+'%22'
else if s='#' then result:=result+'%23'
else if s='$' then result:=result+'%24'
else if s='%' then result:=result+'%25'
else if s='&' then result:=result+'%26'
else if s='''' then result:=result+'%27'
else if s='(' then result:=result+'%28'
else if s=')' then result:=result+'%29'
else if s='*' then result:=result+'%2A'
else if s='+' then result:=result+'%2B'
else if s=',' then result:=result+'%2C'
else if s='-' then result:=result+'%2D'
else if s='.' then result:=result+'%2E'
else if s='/' then result:=result+'%2F'
else if s=':' then result:=result+'%3A'
else if s=';' then result:=result+'%3B'
else if s='<' then result:=result+'%3C'
else if s='=' then result:=result+'%3D'
else if s='>' then result:=result+'%3E'
else if s='?' then result:=result+'%3F'
else if s='@' then result:=result+'%40'
else if s='[' then result:=result+'%5B'
else if s='\' then result:=result+'%5C'
else if s=']' then result:=result+'%5D'
else if s='^' then result:=result+'%5E'
else if s='_' then result:=result+'%5F'
else if s='`' then result:=result+'%60'
else if s='{' then result:=result+'%7B'
else if s='|' then result:=result+'%7C'
else if s='}' then result:=result+'%7D'
else if s='~' then result:=result+'%7E'
else if s='§' then result:=result+'%A7'
else if s='²' then result:=result+'%B2'
else if s='³' then result:=result+'%B3'
else if s='´' then result:=result+'%B4'
else if s='µ' then result:=result+'%B5'
else result:=result+s;
end;
end;

If i forgot something, tell me

[truup]

If i forgot something, tell me

Umm... Spacebar? :O

[KeYDoN]

is on the first position

[xmRipper]

Umm... Spacebar? :O

if s=' ' then result:=result+'%20'

[truup]

:x My bad

[Riax]

I think you should remove the period, colon, and forward slash from the function; the period and slash are common to all URI's, and the colon is commonly used to designate a port after the hostname in a URL.

Also, the question mark, equals sign, and ampersand are used in the URL's of most sites which utilize some form of server-side scripting, such as PHP or ASP, to generate dynamic content.

Other vaild URI characters found in the function are as follows:

#
+
- (hyphen)
_ (underscore)
~

There may be others, but those are the ones that caught my eye.

[KeYDoN]

You cannot exclude these signs.

You may not encode the whole URL, just the parameters!
http://enesce.com/help/html/Functions/HTTPEncode.html

[Riax]

I stand thoroughly corrected. Serves me right for not double-checking the scripting manual to make sure I knew exactly what the function will do in v2.6.