UrlEncode [D5]
Mamed © (2005-03-15 17:03:00)
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:00) [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 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;
}
Наверх 
ЧАТ |
Орешник |
|
