FDELPHI 12
ＵＲＬエンコード

みなさん、こんにちは。

Ｄ４ Standard を使ってます。
で、単に文字列のＵＲＬエンコードをしたいだけなのですが、何かお手軽なコン
ポってないのでしょうか。探しかたが悪いのかもしれないのですが、どうもネッ
トワーク関係のコンポしか見つからないのです。サンプル蔵にもないようだし。

まぁ、自分で作ってもいいのですが、実はどの文字（バイト）がＵＲＬとして許
容されているのかＲＦＣを調べるのが面倒、というのが本音だったりします。

ちなみに、ＵＲＬデコードは以下のようなルーチンをでっち上げて使っています。

function HexToChar(const a,b:char): char;
  function atoh(const c:char): integer;
  begin
    if c in ['0' .. '9'] then result := ord(c) - ord('0')
    else if c in ['A' .. 'F'] then result := ord(c) - ord('A')+10
    else if c in ['a' .. 'f'] then result := ord(c) - ord('a')+10
    else result := 0;
  end;
begin
  result := char(atoh(a)*16 + atoh(b))
end;

  // ＵＲＬデコード
  repeat
    i := Pos('%',str1);
    if i > 0 then
      str1 := Copy(str1,1,i-1)
              + HexToChar(str1[i+1],str1[i+2])
              + Copy(str1,i+3,Length(str1)-i-1);
  until i=0;


どなたかご教示いただけると幸いです。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　としき

FDELPHI プレゼント 「日経ソフトウエアのDelphiプログラミング」 応募
＃間に合ったかな？