Запись в файл

[hiho]

Не так давно решил дописать одну из рабочих программ по передаче файла. В итоге словил ошибку, что файл передается и принимается нормально, но пишется только в половину размера, причем винда уверенно кажет, что файл принят и записан байт в байт! Проблема обнаружилась в Delphi 2010, но почему-то не сразу. В итоге:

  hFile := FileCreate('C:\\Новая папка\\test.txt');
  FileOpen('C:\\Новая папка\\test.txt',  fmOpenWrite or fmShareDenyNone);
  FileWrite(hFile,'test',4);
  FileCLose(hFile);

выполняется с ошибкой. При просмотре в hex-редакторе, первые 2 байта - 00.

Дома тестил еще на 3-х машинах с аналогичной конфигурацией, везде одно и тоже. Докажите же мне, что это не чей-то злой умысел, а мои кривые руки!

OS: Win 7 Ultimate

[veniside]

> выполняется с ошибкой. При просмотре в hex-редакторе, первые 2 байта - 00.

юникод?

[hiho]

хм... скорей всего, но точно не уверен

[veniside]

тогда ошибки нет )
и, кстати, FileOpen() — это функция, а не процедура.

[hiho]

а как заставить этот код работать как положено? А то раньше в седьмой дельфе такой проблемы не видел, а когда в принудительном порядке поставили семерку, оказалось что под нее идет только десятая версия, а там этот юникод на каждом шагу

[veniside]

судя по тому, что у вас половина инфы пропадает, могу предположить, что данные вы храните в строке, а при записи указываете длину строку в символах (а не в байтах). начиная с 2009 дельфи тип string стал двухбайтовым. нужно хранить данные в AnsiString, а ваш пример может выглядеть так:

  FileWrite(hFile, AnsiString('test'), 4);

тогда будет работать примерно как раньше )

[hiho]

хех, и правда заработало, спасибо, а то я уже всю голову сломал

[Пепел Феникса]

правильно ставить для простых строк(string)

SizeOf(Char)*Length(string);

для AnsiString соответственно

SizeOf(AnsiChar)*Length(AnsiString);