delphi query 存储为dbf_delphi 2010 导出sql server 数据到DBF乱码问题

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

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

1 procedurecopyfile(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 orfmcreate);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，进行导出操作，结果乱码问题解决。