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工具结合开发，能够很好的解决这方面的问题。以� ......
常忘记，在此做笔记。
这几个函数都包含在StrUtils中，所以需要uses StrUtils;
假设字符串是 Dstr := ’Delphi is the BEST’, 那么
LeftStr(Dstr, 5) := ’Delph’
MidStr(Dstr, 6, 7) := ’ ......
1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样)
2.Shift+F8 调试时弹出CPU窗口。
3.Shift+F10 等于鼠标右键（Windows快捷� ......
Delphi7 调用 C#的Webservice 不能传入参数
解决办法：
在Delphi导入WSDL后生成的单元的最后一行，即initialization里的初始化端口的代码中加入代码
InvRegistry.RegisterInvokeOptions(TypeInfo(接口名), ioDocument);
即可
......
一、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;
......
