Текущий архив: 2005.03.27;
Скачать: CL | DM;
Вниз
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;
}
Страницы: 1 вся ветка
Текущий архив: 2005.03.27;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.027 c
