Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.26;
Скачать: CL | DM;

Вниз

URL ENCODING   Найти похожие ветки 

 
csr   (2003-11-21 11:39) [0]

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


 
panov ©   (2003-11-21 12:15) [1]

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

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;


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

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2004.01.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
1-83193
BJValentine
2004-01-14 16:39
2004.01.26
Память


7-83295
Kinder
2003-11-08 18:02
2004.01.26
Сколько мышь накатала?


1-83140
frost
2004-01-15 13:18
2004.01.26
Как не показывать главную форму.


6-83226
AndreySoft
2003-10-21 20:14
2004.01.26
Как программно установить IP-адрес


14-83272
Makhanev A.S.
2004-01-04 14:38
2004.01.26
Утилитка для поиска класса окна по наведению мыши...