Преглед на файлове

Update URPC.pas

Fixed bug caused by WideString on JSON result response.
PascalCoin преди 6 години
родител
ревизия
9b9ecca0be
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      src/core/URPC.pas

+ 1 - 1
src/core/URPC.pas

@@ -671,7 +671,7 @@ begin
             Fsock.sendstring(headers[n] + CRLF);
         end;
         if Fsock.lasterror = 0 then begin
-          FSock.SendBuffer(addr(jsonresponsetxt[Low(jsonresponsetxt)]),Length(jsonresponsetxt));
+          FSock.SendString(jsonresponsetxt);
         end;
       end;
       _RPCServer.AddRPCLog(FSock.GetRemoteSinIP+':'+InttoStr(FSock.GetRemoteSinPort),'Method:'+methodName+' Params:'+paramsTxt+' '+Inttostr(errNum)+':'+errDesc+' Time:'+FormatFloat('0.000',(TPlatform.GetElapsedMilliseconds(tc)/1000)));