该文本是身份证阅读器读卡后自动产生的一个文本,名字是WZ.TXT;
它给的DELPHI例子是这样的
iFileHandle := FileOpen(ExtractFilePath(Application.ExeName) +'wz.txt', fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PWideChar(AllocMem(iFileLength +2));
FileRead(iFileHandle, Buffer^, iFileLength);
FileClose(iFileHandle);
sWZ:=WideChartostring(buffer);
EditName.Text:=copy(sWZ,1,15); //姓名
wz.txt里面的文本是:
-岧Vs^ 1 0 1 1 9 7 8 0 6 0 6 VnSw??W禰蟚陙籰縎-濸[鉙aNY棄[Qg孨膥 4 2 0 5 2 7 1 9 7 8 0 6 0 6 1 0 1 1 ??W禰蟚陙籰縎lQ塠@\ 2 0 1 1 1 0 1 9 2 0 3 1 1 0 1 9
如何用 pb9将上面的代码例子翻译过来?并能正确读出wz.txt里面的内容
------解决方案--------------------------------------------------------
3年前做过,好像要转码先。。。忘记了。
------解决方案--------------------------------------------------------
PB12 里好读取,fileopen时可以指定编码读取
PB9里有Tounicode 不知道能不能行
下面是用utf16le读取出来的大概内容:
谭国平?????????????‰?????‰?‰?湖北省?圿家族自治县鸭子口乡静安村二组????????????????′‰‵′?????‰?‰??‰???圿家族自治县公安局????′‰???‰??′‰″??‰???