//delphi DecodeUtf8Str解决系统自带UTF8解码缺陷 function DecodeUtf8Str(const S: UTF8String): WideString; var lenSrc, lenDst  : Integer; begin   lenSrc  := Length(S);   if(lenSrc=0)then Exit;   lenDst  := MultiByteToWideChar(CP_UTF8, 0, Pointer(S), lenSrc, nil,

我遇到 NativeXML 在它的一个节点的属性上面写入属性,但是当读出的值中包含汉字的时候出现了乱码.检查代码如下 NativeXml := TNativeXml.Create; try NativeXml.EncodingString := 'GB2312';// 'UTF-8';        NativeXml.Utf8Convert := True;      NativeXml.BinaryEncoding := xbeBinHex;      NativeXml.Clear;   

一.HttpServletRequest介绍 HttpServletRequest对象代表客户端的请求,当客户端通过HTTP协议访问服务器时,HTTP请求头中的所有信息都封装在这个对象中,通过这个对象提供的方法,可以获得客户端请求的所有信息. 二.Request常用方法 2.1.获得客户机信息 getRequestURL方法返回客户端发出请求时的完整URL. getRequestURI方法返回请求行中的资源名部分. getQueryString 方法返回请求行中的参数部分. getPathInf

近日,由于业务需要导出sql server 数据到DBF文件,要查询多表记录,并适当处理后生成导出DBF文件,系统使用delphi2010平台开发. 首先按要求在VFP里创建DBF表,字段数有240个,作为样表,导出时取样表通过文件流拷贝一个新表,并按要求规则命名,拷贝一份新表使用: procedure copyfile(sfile,tfile:String); var f1,f2: tfilestream ; begin f1:=Tfilestream.Create(sfile,fmopenr

问题现象:delphi 程序在某电脑中显示???问号 乱码 问题原因:因为语言的原因.不同的国家可能显示的编码不一样. 问题处理:“控制面板”>“区域和语言选项”>“区域选项”>“标准和格式”区选择“中文(中国)”>“位置”区选择“中国”>“高级”选项里的“非Unicode程序的语言”区选择“中文(中国)>确定后退出

给部门同事写了个自动生成测试用例执行情况图表的工具,使用的sqlite3,遇到中文分别使用UTF8Encode和UTF8Decode进行处理,可还是出现了某些字段从数据库中读出时,最后一个汉字是乱码的情况. 自己看了一下SQLiteTable3.pas的代码,发现从数据库中读出utf8字符时用setstring进行了强制转换,造成没有正确读取全部字符.于是自己把源代码改了一下,使用RawByteString类型,保持原样,不做转换,完美解决乱码问题. 现将自己修改的版本放出,供大家使用~ 基于最

最近在做一个反馈功能,把数据反馈到对方公司网站,我公司是GBK编码,对方公司是UTF-8编码.因此,我需要将GBK编码数据转换成UTF-8编码数据,这样对方网站才不会乱码.最简单的方法是将HttpClient的ContentCharset设置为utf-8:如果ContentCharset是gbk并且又不想设置为utf-8,那么就需要将数据转换成UTF-8编码再发到对方网站. 问题出现:GBK转UTF-8时,奇数个中文会乱码,偶数个中文不会乱码.三个中文 public static void en

事情源于有个客户需使用我们C++的中间件动态库来跟设备连接通讯,但是传入以及传出的字符串指针格式都不正确(出现乱码或是被截断),估计是字符编码的问题导致.以下是解决问题的过程: 我们C++中间件动态库的接口函数声明: extern "C" bool __stdcall ExecuteTaskInFile(const char *szTaskID, const char *szInputFile, const char *szOutputFile, bool bSynch); 传入的字符

Delphi+MySQL:TADOQuery使用插入中文乱码解决方法 with adoquery dobeginclose;sql.clear;sql.text:=' insert into test (FieldName) values (:FieldName) ';Parameters.ParamByName('FiledName').Value := UTF8Encode('中文(简体/繁體)');ExecSQL;end;

<span style="font-size:14px;">一直想找如何解析JSON数据的说,今天终于找到有人发帖子了.之前有人说用superobject,Tlkjson,delphi json library,delphi  web unit等等.其实我是想找比较简单的解析方式.解析简单的json.下面是转载的坦然的源码. </span> unit Unit1; interface uses Winapi.Windows, Winapi.Messages, S

请求http接口的时候参数值是中文乱码: http接口一般都是由java,php以及C#开发而成的,乱码的原因也是由于编码的问题,一般传递数据的都是utf8,然后传递的时候都会urlEcode 那么delphi如何解决这个问题呢? 请看下面的实例,实例中的“哈哈”二字就是中文: procedure TClientForm.Button77Click(Sender: TObject);var paramStream: TIdMultiPartFormDataStream; vResponse: T

应女朋友的要求,要写一款销售管理的软件.用于管理服装店每天的销售记录,已及管理服装店的客户,并对客户进行生日提醒 因为之前使用C#写过一款家庭管理软件,主要是自己用,所以使用了服务器型数据库MySQL,积攒了一些数据库软件的开发经验. 针对这次的软件需求决定采用SQLite,因为本人比较鄙视Access,主要是因为不能跨平台,而且在实际需求上SQLite更适合. 因为女朋友要求尽快,那就必须得要快了... 这次采用了Delphi+SQLite的结构来写的,之前一直喜欢Delphi,但是没有深入涉

这里主要说的是中文乱码的问题 1. 发过去的是乱码如下处理, 服务器采用的是UFT-8编码的情况下 uses  HTTPApp;      sPost := HTTPEncode(UTF8Encode('中文处理')); 2. 返回的是乱码如下处理 ResponseStream:=TStringstream.Create('',TEncoding.UTF8); idhttp.Post(ConnectUrl,sends,ResponseStream);

vDataBaseName := aConfiginiFile.ReadString('DataBaseConfig', 'DataBase', CH_IPC712Db); vServer := aConfiginiFile.ReadString('DataBaseConfig', 'Server', CH_Server); vPort := aConfiginiFile.ReadString('DataBaseConfig', 'Port', CH_Port); vUserName := aC

NativeXml默认的字符类型为Utf8String,有时在读取中文时还是会出现乱码问题,在329版本中提供一种类型转换函数sdUtf8ToWide(),我们可以这样sdUtf8ToWide(AXmlNode.Value)进行类型转换,对之前的版本中XML节点有ValueWide属性可正确取得中文,在329版本中这个属性可能变成了ValueUnicode,但效果并不是很理想.

一般XML的编码格式设置成UTF8比较通用,下面演示使用UTF8编码方式存储和处理包含中文的XML字符串(文件).1.设置启用内置的widestring支持 NativeXml内部使用ANSI string和UTF8编码的string两种字符串类型.如果要让NativeXml能够解析widestring字符串的话,直接将TNativeXml的Utf8Encoded属性设置为True.如下: FXmlDoc:= TNativeXml.Create;FXmlDoc.Utf8Encoded:= Tru

var IdHTTP1:TIdHTTP; postStream : TStringStream; Wstr:WideString; res:WideString; begin IdHTTP1 := TidHTTp.create(nil); try Wstr:= 'aaccount=' + aaccount; Wstr:=Wstr+'&'+'passwd=' +passwd; postStream:=TStringStream.Create(ansitoUTF8(Wstr)); IdHTTP1.R

uses  Windows; 在工程文件中添加一句代码,如下: Application.Initialize; //添加以下一句解决外文系统乱码问题 SetThreadLocale(DWORD(Word(SORT_DEFAULT) ) or DWORD(Word(SUBLANG_CHINESE_SIMPLIFIED) ) or DWORD(Word(LANG_CHINESE))); Application.CreateForm(TForm1, Form1); Application.Run; 感

网络接口如下图: 浏览器演示如下:http://xxx.xxx.xxx.xxx/web/login!doLogin?data={"password":"yy123","userCode":"yyy123","terminalCode":"123"} 返回信息是一个json格式的字符串:{"errorMsg":"登录成功!","result

Delphi6下使用Indy10组件包,其中的TIdHttpServer控件在处理HTTP请求的时候 不能正确解码含有汉字的参数,如: http://127.0.0.1/test?cmd=open&areaname=测试&areadir=D:\test   对于这个Url,Chrome默认按UTF-8编码发送,IE默认按GBK编码发送,而这两种情况,TIdHttpServer的CommandGet事件中TIdHTTPRequestInfo.Params.Values['areaname']

用MyEclipse试了一下JAVA获取系统正在运行进程代码,结果Console输出的时候中文部分输出为乱码,在网上找了很多办法,都没有解决问题.后来发现一个方法,解决了问题,特此分享. 下面成功解决问题的方法:Perperties选项,在弹出的窗口右下边有一个"Text fileencoding"选项,选择下边的Other选项,可以修改该文件的编码格式,如UTF-8\GB2312等.这样,在我们编写Java文件时,输入的中文就不会是乱码. 而对于Console中文输出乱码问题,Run