Delphi 2010でTFileStreamに文字列を書き込む

Question

次のようなDelphi 2007コードがあります：

procedure WriteString(Stream: TFileStream; var SourceBuffer: PChar; s: string);
begin
  StrPCopy(SourceBuffer,s);
  Stream.Write(SourceBuffer[0], StrLen(SourceBuffer));
end;

このように呼び出します：

var
  SourceBuffer : PChar;
  MyFile: TFileStream;

....

SourceBuffer := StrAlloc(1024);
MyFile := TFileStream.Create('MyFile.txt',fmCreate);
WriteString(MyFile,SourceBuffer,'Some Text');
....

これはDelphi 2007で機能しましたが、Delphi 2010で多くのジャンク文字が表示されます。これはUnicodeコンプライアンスの問題が原因であることがわかりますが、問題の対処方法がわかりません。

これまでに試したことがあります：

• のデータ型を変更する SourceBuffer（およびパラメーター WideStringが期待）PWideCharに

• リストされている提案のいずれか ここ

何が間違っているのですか？

Answer 1

文字列をストリームに書き込むために別のバッファは必要ありません。おそらく最も簡単な方法は、次のように文字列をUTF8にエンコードすることです。

procedure TStreamEx.writeString(const data: string);
var
   len: cardinal;
   oString: UTF8String;
begin
   oString := UTF8String(data);
   len := length(oString);
   self.WriteBuffer(len, 4);
   if len > 0 then
      self.WriteBuffer(oString[1], len);
end;

function TStreamEx.readString: string;
var
   len: integer;
   iString: UTF8String;
begin
   self.readBuffer(len, 4);
   if len > 0 then
   begin
      setLength(iString, len);
      self.ReadBuffer(iString[1], len);
      result := string(iString);
   end;
end;

TStreamExをTStreamのクラスヘルパーとして宣言しましたが、これらを例のような単独の手順と関数として書き直すことはそれほど難しくないはずです。

Answer 2

Delphi 2010には、このための優れたソリューションがあります。ここに文書化されています：

http://docwiki.embarcadero.com/CodeExamples/en/StreamStrRdWr_% 28Delphi％29

var
  Writer: TStreamWriter;
...

  { Create a new stream writer directly. }
  Writer := TStreamWriter.Create('MyFile.txt', false, TEncoding.UTF8);
  Writer.Write('Some Text');

  { Close and free the writer. }
  Writer.Free();