Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.025 c