delphi 2010 导出sql server 数据到DBF乱码问题

近日，由于业务需要导出sql server 数据到DBF文件，要查询多表记录，并适当处理后生成导出DBF文件，系统使用delphi2010平台开发。

首先按要求在VFP里创建DBF表，字段数有240个，作为样表，导出时取样表通过文件流拷贝一个新表，并按要求规则命名，拷贝一份新表使用：

 1 procedure copyfile(sfile,tfile:String);
 2 var
 3   f1,f2: tfilestream ;
 4 begin
 5   f1:=Tfilestream.Create(sfile,fmopenread);
 6   try
 7     f2:=Tfilestream.Create(tfile,fmopenwrite or fmcreate);
 8     try
 9       f2.CopyFrom(f1,f1.size);
10     finally
11       f2.Free;
12     end;
13   finally
14     f1.Free;
15   end;
16 end;

接着查询sql server 数据，使用delphi BDE Table，循环写入数据到DBF文件，结果，其中有中文的字段为乱码。

为了解决乱码问题，上网查了一些资料，也做了一些其他操作，最终得到解决。

产生乱码后，曾尝试把DBF文件字段数删除了大部分，再导入，结果没有乱码，字段数128个以内没乱码，128个以上就会有乱码。

又在delphi 7里进行如此操作导出，结果没有乱码，由于系统程序是delphi 2010开发的，还是要解决在2010版里，128个字段以上的导出记录中文乱码问题。

使用Database Desktop修改DBF文件的语言编码，通过Tools菜单Utilities子菜单的Restructure打开DBF文件，在Table Properties选Table Language，点Modify，在弹出的表语言选择里，有dBASE CHS cp936和dBASE CHS cp950选项，先选择dBASE CHS cp936保存，进行导出，结果还是乱码，再选择dBASE CHS cp950，进行导出操作，结果乱码问题解决。