🚀 go-pugleaf

Hamid wrote:
> I'm using TNMURL to encode a url, but seemingly the component fails to encode urls containing Unicode characters. How can I solve the problem?

Here are a couple of routines. I'll leave you to work them out, and fire questions at this 
post :-

AnsiString mjunescape(AnsiString webstr,bool dopls)
{
   int ii,jj=webstr.Length(),kk,mm; AnsiString retv="",pschs="0123456789ABCDEF"; char ch;
   for (ii=1;ii<=jj;++ii)
   {
     ch=webstr[ii]; if (ch=='+' && dopls) { retv+=" "; continue;}
     if (ch!='%') { retv+=ch; continue;}
     if (ii<jj) if (webstr[ii+1]=='%') { retv+="%"; ++ii; continue;}
     if (ii<jj-1)
     {
       kk=pschs.Pos((char)toupper(webstr[ii+1]));
       mm=pschs.Pos((char)toupper(webstr[ii+2]));
       if (kk>0 && mm>0) { retv+=(char)((kk-1)*16+mm-1); ii+=2;} else retv+=ch;
     }
   }
   return retv;
}

AnsiString mjescape(AnsiString webstr,bool dospc)
{
   int ii,jj=webstr.Length(); AnsiString retv=""; char ch;
   AnsiString 
pschs="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789*@._-$!'()%";
   for (ii=1;ii<=jj;++ii)
   {
     ch=webstr[ii]; if (ch==' ' && dospc) { retv+="+"; continue;}
     if (pschs.Pos(ch)>0) retv+=ch; else retv+="%"+IntToHex(ch,2);
   }
   return retv;
}


-- 
Mark Jacobs
http://www.dkcomputing.co.uk