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

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

URL ENCODING [D7, Win95/98, WinME, NT4, Win2k, WinXP]

csr ©   (2003-11-21 11:39:00) 

Как сделать кодирование строки как в TNMURL только под делфи 7, где нет такого компонента? Например абв=%E0%E1%E2

---

csr   (2003-11-22 19:26:00) [1]

Огромное Вам спасибо, господа!

---

Dimka Maslov   (2003-11-21 12:55:00) [2]

http://delphibase.endimus.com/?action=viewfunc&topic=strcode&id=10156
http://delphibase.endimus.com/?action=viewfunc&topic=strcode&id=10157

---

panov   (2003-11-21 12:15:00) [3]

Вот функция кодирования.
Обратную тоже нетрудно написать.

function Decode(Value: String):String;
var
i,L: Integer;
begin
Result := "";
L := 0;
for i := 1 to Length(Value) do
begin
if (Value[i]<>"%") and (Value[i]<>"+") and (L<1) then
begin
Result := Result + Value[i];
end
else
begin
if Value[i]="+" then Result := Result+" "
else if Value[i]="%" then
begin
L := 2;
if (i<Length(Value)-1) then
begin
Result := Result + Chr(StrToInt("$"+Copy(Value,i+1,2))); //Chr(HexToInt(Value[i+1])*16+HexToInt(Value[i+2]));
end;
end
else Dec(L);
end;
end;
end;


---

Наверх