配合记事本的 BIG5 转 UTF-8 工具源代码

摘要:配合记事本的 BIG5 转 UTF-8 工具源代码

昨天为了安装 phpBB2 的 attachment_mod 的中文化，花了许多时间，事实上，已有网友提供 attachment_mod 中文化文件，不过，用的是 BIG5 码，但 phpBB2 已设定使用 UTF-8 无法使用。
一开始，先用自己写的 StatPlus 内码转换工具，可能是因为 BCB5 组件支持 UniCode/UTF-8 的能力不足，转出来的有 ?? 再贴回去，还是无法使用。 最后，用记事本开启相关 php 档(请参考从无到有 phpBB2 + 文件上传 + 中文化 安装)直接另存新档，在另存新档对话窗口中选择编码为 UTF-8，再存档。 存完的文件，其档头有 3 码是告知编辑软件此档是使用 UTF-8 编码的文件，而这 3 码，在 php 系统则是不允许的码，会变成载不入。 (以上都是看 Apache 控制面板内的 php error log 消息得知的喔) 还是动手写个程序吧：

view plaincopy to clipboardprint?

1. void __fastcall TForm1::Button1Click(TObject *Sender)  
2. {  
3.   if(this->OpenDialog1->Execute())  
4.   {  
5.     TFileStream *Stream=new TFileStream(this->OpenDialog1->FileName,fmOpenRead);  
6.     TFileStream *Output=new TFileStream(this->OpenDialog1->FileName+".u",fmCreate);  
7.     Stream->Position=3;  
8.     Output->CopyFrom(Stream,Stream->Size-3);  
9.     delete Stream;  
10.     delete Output;  
11.   }  
12. }  

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(this->OpenDialog1->Execute())
  {
    TFileStream *Stream=new TFileStream(this->OpenDialog1->FileName,fmOpenRead);
    TFileStream *Output=new TFileStream(this->OpenDialog1->FileName+".u",fmCreate);
    Stream->Position=3;
    Output->CopyFrom(Stream,Stream->Size-3);
    delete Stream;
    delete Output;
  }
}

这样，就可以把记事本另存的 UTF-8 的文件，再另存一份给 php 用。

原文:大专栏  配合记事本的 BIG5 转 UTF-8 工具源代码

标签：UTF,Stream,TFileStream,BIG5,OpenDialog1,Output,源代码,记事本
来源： https://www.cnblogs.com/petewell/p/11490011.html