delphi - No mapping for the Unicode character exists in the target multi-byte code page -


i have soap builded delphi 2007 , work!

after conversion in delphi 10.1 berlin have lot of exceptions:

no mapping unicode character exists in target multi-byte code page

the cause seem, when webbroker httpapp parsing request parameters, raise exception if request has url encoded chars in query string, eg.:

http://localhost/soap/soap.dll/action?param=%e0

in fact if call url.decode() %e0 (à url encoded):

tnetencoding.url.decode('%e0');

it raise same exception:

no mapping unicode character exists in target multi-byte code page

the problem seem unit system.netencoding on method turlencoding.dodecode(const input: string): string. method try convert url encoded chars in utf-8 without fallback on windows-1252. string %e0 windows-1252 encoding à, delphi conver utf-8 version: %c3%a0.

a small (not perfect, not elegant) fix add fallback:

try   result := tencoding.utf8.getstring(bytes); // original delphi 10.1 line except   on e: eencodingerror result := string(pchar(bytes)); // fallback end;

full code:

function turlencoding.dodecode(const input: string): string;    function decodehexchar(const c: char): byte;   begin     case c of        '0'..'9': result := ord(c) - ord('0');        'a'..'f': result := ord(c) - ord('a') + 10;        'a'..'f': result := ord(c) - ord('a') + 10;     else       raise econverterror.create('');     end;   end;    function decodehexpair(const c1, c2: char): byte; inline;   begin     result := decodehexchar(c1) shl 4 + decodehexchar(c2)   end;  var   sp, cp: pchar;   i: integer;   bytes: tbytes;  begin   setlength(bytes, length(input) * 4);   := 0;   sp := pchar(input);   cp := sp;   try     while sp^ <> #0     begin       case sp^ of         '+':           bytes[i] := byte(' ');         '%':           begin             inc(sp);             // escaped % (%%)             if (sp)^ = '%'               bytes[i] := byte('%')             else             begin               // encoded byte, may single byte (%<hex>)               // or part of multi byte (%<hex>%<hex>...) character               cp := sp;               inc(sp);               if ((cp^ = #0) or (sp^ = #0))                 raise ehttpexception.createfmt(serrordecodingurltext, [cp - pchar(input)]);               bytes[i] := decodehexpair(cp^, sp^)             end;           end;       else         // accept single , multi byte characters         if ord(sp^) < 128           bytes[i] := byte(sp^)         else           := + tencoding.utf8.getbytes([sp^], 0, 1, bytes, i) - 1        end;       inc(i);       inc(sp);     end;   except     on e: econverterror       raise econverterror.createfmt(sinvalidurlencodedchar, [char('%') + cp^ + sp^, cp - pchar(input)])   end;   setlength(bytes, i);    // ------> fix <------   try      result := tencoding.utf8.getstring(bytes); // original line   except      on e: eencodingerror result := string(pchar(bytes));   end;   // end fix end;

after lot of search founds bug fix list rad studio 10.1 berlin , says bug fixed:

webbroker httpapp parsing request parameters , getting error "no mapping unicode character exists in target multi-byte code page"

but not work me...

try use web.reqmulti;

i have same exception when user webbroker handle post method web page when there multi-byte character in form.

and after added use web.reqmulti in webbroker's project, exception gone.


Comments

Post a Comment

Popular posts from this blog

How to get the arclen between two curve points in Maya? -

in maya 2015, can arclen of curve using command: cmds.arclen('bezier1') but want arclen of 2 points in curve. there anyway this? using maya's api surely best way @scottiedoo said, here function made when didn't know api , gives same results. from maya import cmds def computecrvlength(crv, startparam = none, endparam = none): ''' compute length of curve between 2 given uparameters. if both uparameters arguments set none (default), compute length of whole curve. arguments: - crv = string; existing nurbcurve - startparam = 0 <= float <= 1 or none; default = none; point parameter value, if not none, compute points between startpt , endpt values. - endparam = 0 <= float <= 1 or none; default = none; point parameter value, if not none, compute points between startpt , endpt values. returns: - length of curve between given uparameters - length of curve start startp...
Read more

C++ Linked List -

i trying create linked list download txt file , use linked list handle file line line. when handling downloaded linked list operations performed on such text editor would. encountering problems however. seems "node(string value)" section of code has wrong though original node() declaration no arguments passes. unable figure out quite is. node.h class node { public: node(); node(string value); void setnext(node *nextnode); // allows user set "next" pointer of node points friend class linkedlist; private: string data; // data box node* next; // pointer box }; node.cpp # include <string> # include "node.h" using namespace std; node::node() { data = ""; next = null; } node::node(string value) { data = value; next = null; } void node::setnext(node *nextnode) // allows user set "next" pointer of node points { this->next = nextnode; } your #include <string> ...
Read more

git svn - Unignore directories in git-svn (adding directories to a sparse checkout) -

when using git svn, sparse checkout of central repository may achieved along lines of git clone -s url-to-root --include-paths 'dir1|dir2|dir3' after using setup time, add directory dir4 tracked. directory has existed in many commits have checked out. editing variable svn-remote.svn.include-paths running git config --edit does not have desired effect on git fetch (only files changed in future commits checked out changed; not immediately), , following not check out dir4: git svn fetch --include-paths dir4 i think following work ineffective due refetching revisions since first revision @ dir4 appeared first time (let's call rev): git svn reset -r rev git svn fetch --include-paths dir4 git svn rebase what better way of tracking dir4? if not care history of dir4? is there better way initial sparse checkout git-svn if suspect want change list of tracked directories later? have tried starting listing directoreis not fetched in original commit, not know how...
Read more