UrlEncode

← →
Mamed (2005-03-15 17:03) [0]

v Navigation properti WebBrowsera xochu posilat strokoviy parametr.Vnutri etogo paramatera mnogo komantnix simvoliv(?,-,+ i t.d) .kak v delphi zdelat URLcode takoga paramera

← →
wicked © (2005-03-15 18:31) [1]

извините, что на иностранном, но, думаю, перевести на паскаль не составит труда:
const char * hex_array = "0123456789ABCDEF"; const char * badch = "\"<>%\\^[]`+$,;/?:@=&# (){}"; #define HiChar(c) (hex_array[((c) >> 4) & 0xf]) #define LoChar(c) (hex_array[(c) & 0xf]) AnsiString __fastcall URLencode(const AnsiString s) { AnsiString result; int n = s.Length(); result.SetLength(n * 3); int j = 1; for(int i = 1; i <= n; i++){ char c = s[i]; if(strchr(badch, c) || c < 33 || (unsigned char)c > 127){ result[j] = "%"; result[j + 1] = HiChar(c); result[j + 2] = LoChar(c); j += 3; } else result[j++] = c; } result.SetLength(j - 1); return result; }

UrlEncode Найти похожие ветки