高分求解utf-8:delphi7开发ISAPI网络服务器端程序时的UTF8问题,内附源码!!! ( 积分: 200 )

  • 主题发起人 主题发起人 qaz1znz
  • 开始时间 开始时间
Q

qaz1znz

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi7开发ISAPI网络服务器端程序时的UTF8问题, 内附源码

delphi7开发ISAPI服务器端程序时的UTF8问题,源码内有正确的地方和错误的地方的注释,
高手帮忙看一下问题出在那儿

源码下载地址:http://www.tjxyh.com/test_utf8.rar
 
procedure TPageProducerPage1.A_testGetValue(Sender: TObject;
var Value: Variant);
var FileText:TStrings;
begin//这里返回的UTF-8字符串错误
FileText:=TStringList.Create;
try
FileText.LoadFromFile('utf8test.txt');
[red]Value:=FileText.Text;[/red]
....
end;
红色的改成Value := Utf8Encode(FileText.Text);
 
to:zqw0117
我的装入的文件就是UTF-8编码的,如果用Utf8Encode再编码的话更乱了,
我源码里二种方式调用这个文件,A_testGetValue脚本方式出错,而Include引入
是正确的.

求解!!
 
求解!!!!!
 
求解!!!!!
 
求解!!!!!
 
求解!!!!!
 
下载一个unicode for delphi包,使用TntClasses里面有个widestring版的TTntStringList

http://www.tntware.com/delphicontrols/unicode/
 
后退
顶部