[Muxa]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
written:cardinal;
begin
    str:='Test - Тест';
    WriteFile(H_File,str,Length(str),written,nil);
    FileClose(H_File);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  H_File:=CreateFileW('D:\test.txt',GENERIC_WRITE,FILE_SHARE_READ,
                      nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
  if (GetLastError()=INVALID_HANDLE_VALUE) then
     ShowMessage('Не удалось создать файл');
end;

Надо записать в файл вышеуказанную строку. Но почему-то пишет только абракадабру...

[Marvel]

а вот так чем не устраивает:

Код:

var
  f: file;
  buf: PChar;
begin
  buf := 'текст';
  try
    AssignFile(f, 'file.txt');
    Rewrite(f, 1);
    BlockWrite(f,buf^,Length(buf));
    CloseFile(f);
  except
    ShowMessage('ошибка создания файла');
  end;
end;

[Muxa]

Нужно именно на API.

[Marvel]

вот так попробуй:

Код:

var
  H_File: THandle;
.....

procedure TForm1.Button1Click(Sender: TObject);
var
  str: PChar;
  written: cardinal;
begin
  str := 'Test - Тест';
  WriteFile(H_File,str^,Length(str),written,nil);
  FileClose(H_File);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  H_File := CreateFileW('D:\test.txt',GENERIC_WRITE,FILE_SHARE_READ,
                        nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
  if (GetLastError() = INVALID_HANDLE_VALUE) then
     ShowMessage('Не удалось создать файл');
end;

проверил, работает

[Muxa]

У меня выводит в файле лишь - "T e s t - ".
P.S. Delphi2010

[Marvel]

замените

Код:

str: PChar;

на

Код:

str: PAnsiChar;

это связано с тем, что Delphi 2009/2010 по умолчанию работают в Unicode. Отключить Unicode просто так нельзя, но если Unicode вообще не нужен, то проблема легко решается механической заменой string на AnsiString, char на AnsiChar, PChar на PAnsiChar.

[Muxa]

Спасибо, разобрался.

[Muxa]

CreateFileW('D:\test.txt',GENERIC_WRITE,FILE_SHARE _READ,
nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);

А как передать вместо "D:\test.txt" путь в String-строке? А то компилятор ругается на несовпадение String и PWideChar (при использовании префикса W) и несовпадение String и PAnsiChar при префиксе CreateFileA.

-----------
Разобрался

[Marvel]

Код:

CreateFileW(PChar('D:\test.txt'),GENERIC_WRITE,FILE_SHARE_READ,nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);