Форум: "Сети";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

Get запросы   Найти похожие ветки 

← →
SaperXL   (2003-01-20 04:01) [0]

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

---

← →
___Nikolay   (2003-01-20 11:38) [1]

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

---

← →
Troll   (2003-01-20 22:57) [2]

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

---

← →
int64   (2003-01-21 00:55) [3]

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;

---

← →
Ghost_   (2003-01-21 10:07) [4]

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;

---

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

Форум: "Сети";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Наверх

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