如何把widestring类型用writefile写入再用readfile读出来？在线等，最好给个例子

Question

别人给个接口是要需要用VC中的BSTR写入,在Delphi中也就是WideString,我这边写进去读出来总是乱码，恳求一个例子，不够还可以加分

Answer 1

用 PWideChar
WideString是BROLAND类型，非WINDOWS标准

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  handle: THandle;
  str: WideString;
  buffer: array [0..255] of WideChar;
  i: Integer;
begin
  ZeroMemory(@buffer, SizeOf(buffer));
  str := 'My file!';
  for i := 0 to Length(str) -1 do
  buffer[i] := str[i + 1];
  handle := FileCreate('c:\a.txt', fmCreate);
  FileWrite(handle, buffer, SizeOf(str));
  FileRead(handle,buffer,255);
  ShowMessage(buffer);
  FileClose(handle);
end;