| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Get запросы [D6, Win2k]

SaperXL ©   (2003-01-20 04:01:00) 

Нет ли в Дельфи случайно ф-ции кодирующей строку в пригодную для url"а форму типа: "%20%64%65%66..."? Я пользуюсь TNMHTTP.

---

Ghost_   (2003-01-21 10:07:00) [1]

function Encode(const msg:String):String;
var
I:Integer;
begin
Result:="";
for I:=1 to Length(msg) do
begin
if msg[I]=" " then Result:=Result+"+"
else if msg[I] in ["a".."z", "A".."Z", "0".."9"] then Result:=Result+msg[I]
else Result:=Result+"%"+IntToHex(ord(msg[I]), 2);
end;
end;

---

int64   (2003-01-21 00:55:00) [2]

function Encode(const S: string): string;
var
I: Integer;
Hex: string;
begin
for I := 1 to Length(S) do

case S[i] of
" ": result := Result + "+";
"A".."Z", "a".."z", "*", "@", ".", "_", "-",
"0".."9", "$", "!", """", "(", ")":
result := Result + s[i];
else
begin
Hex := IntToHex(ord(S[i]), 2);
if Length(Hex) = 2 then Result := Result + "%" + Hex else
Result := Result + "%0" + hex;
end;
end;
end;

---

Troll   (2003-01-20 22:57:00) [3]

угу называется NMURL.

---

___Nikolay   (2003-01-20 11:38:00) [4]

На закладке FastNet в D5
есть специальный компонент, который кодирует
строку под URL

---

Наверх