[Muxa]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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

[Muxa]

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

[Marvel]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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

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

[Muxa]

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

[Marvel]

замените

Код:

1	str: PChar;

на

Код:

1	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]

Код:

1	CreateFileW(<b>PChar</b>(<font color="Navy">'D:\test.txt'</font>),GENERIC_WRITE,FILE_SHARE_READ,<b>nil</b>,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);