Запись в файл

[Anton931]

Почему используя следующий код записывается только первый символ строки в файл:

hFile := CreateFile(PChar(Path+'\my.txt'), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
 SetFilePointer(hFile, 0, nil, FILE_BEGIN);
 WriteFile(hFile, str, Length(str), Written, nil);
 CloseHandle(hFile);

[GreenWizard]

странно, что вообще записывает первый символ) попробуй:

 WriteFile(hFile, @str[1], Length(str), Written, nil);

[Anton931]

procedure WriteTxt(str: String);
begin
  LogFile := CreateFile(PChar('my.txt'), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
 SetFilePointer(LogFile, 0, nil, FILE_BEGIN);
 WriteFile(LogFile, @str[1], Length(str), Written, nil);
 CloseHandle(LogFile);
end;

Выдает ошибку

[dcc32 Error] Project1.dpr(142): E2036 Variable required

[GreenWizard]

@ убери оно в одних ф-ях нужно, в других - нет

[Anton931]

Все равно что то не то, записал только часть строки, а точнее только половину, строку 1234567890, в файл записал всего 12345

[JUDAS]

Сообщение от Anton931

Почему используя следующий код записывается только первый символ строки в файл:

hFile := CreateFile(PChar(Path+'\my.txt'), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
 SetFilePointer(hFile, 0, nil, FILE_BEGIN);
 WriteFile(hFile, str, Length(str), Written, nil);
 CloseHandle(hFile);

Автор , попробуй такой вариант

procedure WriteTxt(const text: String);
var str : TFileStream;
     filename : string;
begin
  if text='' then exit;
  filename:= ExtractFilePath(Appliaction.Exename)+'log.txt';
  if fileexists(filename) then
  begin
    str := TFileStream.Create(filename, fmOpenReadWrite);
    str.Position := str.Size;
  end else
    str := TFileStream.Create(filename, fmCreate);
  // используем filename как буфер
  filename:=text+#13#10;
  str.Write(filename[1], length(filename));
  str.Free;
end;

[Anton931]

Сообщение от JUDAS

Автор , попробуй такой вариант

procedure WriteTxt(const text: String);
var str : TFileStream;
     filename : string;
begin
  if text='' then exit;
  filename:= ExtractFilePath(Appliaction.Exename)+'log.txt';
  if fileexists(filename) then
  begin
    str := TFileStream.Create(filename, fmOpenReadWrite);
    str.Position := str.Size;
  end else
    str := TFileStream.Create(filename, fmCreate);
  // используем filename как буфер
  filename:=text+#13#10;
  str.Write(filename[1], length(filename));
  str.Free;
end;

не подходит из-за применения TFileStream, в api геморно ее вставлять

[GreenWizard]

тьфу! половину записало! Делфи 7+? у него же строки в юникоде и Length(s) нужно умножать на SizeOf(char) (или тупо на 2!)

[Аватар]

а точнее только половину, строку 1234567890, в файл записал всего 12345

Дык XE и Length - количество символов в строке, а не её длина в байтах. Второй параметр просто str[1]

[min@y™]

Кароче!

WriteFile(hFile, PChar(str), Length(str) * SizeOf(Char), Written, nil);