delphi保存读取utf 8的文本文件
delphi保存读取utf-8的文本文件
给客户做了一个批量识别图像并合成双层pdf的程序，最后客户需要生成的同时附带一份记事本文件，就是OCR过后的文本，并指定utf-8格式的。在处理utf-8时出现了点小问题，现在总结如下
首先 利用delphi自带的UTF8Encode函数，将普通字符转换为utf-8编码
创建一个流，MemoryStream或FileStream都可
函数看起来如下
引用
procedure SaveUTF8File(AContent:WideString;AFileName: string);
var
ffileStream:TFileStream;
futf8Bytes: string;
S: string;
begin
ffileStream:=TFileStream.Create(AFileName,fmCreate);
futf8Bytes:= UTF8Encode(AContent);
ffileStream.Write(futf8Bytes[1],Length(futf8Bytes));
ffileStream.Free;
end;
运行后查看生成的文件，全是乱码，上网搜索发现
unicode文本文件：头两个字符分别是FF FE（16进制）
utf-8文本文件：头两个字符分别是EF BB（16进制）
原来是忘了把文件头加进去了
于是加入代码后
引用
procedure SaveUTF8File(AContent:WideString;AFileName: string);
var
ffileStream:TFileStream;
futf8Bytes: string;
S: string;
begin
ffileStream:=TFileStream.Create(AFileName,fmCreate);
futf8Bytes:= UTF8Encode(AContent);
S:=#$EF#$BB#$BF;
ffileStream.Write(S[1],Length(S));
ffileStream.Write(futf8Bytes[1],Length(futf8Bytes));
ffileStream.Free;
end;
保存文件后查看，还是乱码。找了半天问题最后终于发现问题出现在声明的参数WideString上，改成string就没问题了。
最后生成 的代码如下
引用
procedure SaveUTF8File(AContent:string;AFileName: string);
var
ffileStream:TFileStream;
futf8Bytes: string;
S: string;
begin
ffileStream:=TFileStream.Create(AFileName,fmCreate);
futf8Bytes:= UTF8Encode(AContent);
S:=#$EF#$BB#$BF;
ffileStream.Write(S[1],Length(S));
ffileStream.Write(futf8Bytes[1],Length(futf8Bytes));
ffileStream.Free;
end;
再附上一段读取utf-8文本的代码
引用
function LoadUTF8File(AFileName: strin
相关文档：
1．引言
在利用delphi开发应用程序的时候，通常我们要设计出很多各种格式的文档、报表，经常要进行文件的创建、编辑及修改，虽然delphi本身提供了很多设计报表的控件或方法，但是存在明显的不足，比如中文输入，数据格式的控制等操作起来比较麻烦。利用大家都很熟悉的office工具结合开发，能够很好的解决这方面的问题。以� ......
delphi TStringList的用法
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。
常规的用法大家都知道，现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来：
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValuefromIndex
先看第一个：CommaText。怎么 ......
VC声明
HANDLE CreateMutex(
LPSECURITY_ATTRIBUTES lpMutexAttributes, // SD
BOOL bInitialOwner, // initial owner
LPCTSTR lpName // object name
);
delphi声明：
function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PChar): THandle; stdcall;
创� ......
一、Dll建立
（一）DLL项目的建立
library mydll;
uses
base in 'base.pas';
exports
Triple name 'Tr';
{$R *.res}
begin
end.
（二）函数单元
unit base;
interface
uses windows;
function Triple(N:integer):integer;stdcall;
......
