Блог программистов



F.A.Q.Pblog

1й год Форума программистов 2006-2007

Запись бинарных данных из реестра в файл

Столкнулся с проблемой записи бинарных данных из реестра в файл
Использую код:
Код:
... Var s:byte; ... Function WriteBinaryData(BinaryData:Widechar):Boolean; var f:tfilestream; f1:textfile; j:integer; begin Result:=false; assignfile(f1,'PasswordBinary.txt'); if not fileexists('PasswordBinary.txt') then begin rewrite(f1); closefile(f1); end; f:=tfilestream.Create('PasswordBinary.txt', fmOpenWrite); f.Seek(0,soBeginning); s:=byte(BinaryData); j:=f.Write(s,15); // Длина заранее определена if j=15 then Result:=true; f.Free; end; ...
Данные записываются не правильно, при чтении из реестра так же использовал тип "Widechar" и так же пробовал "Integer", "Byte", "Char" - запись происходит не верно.
- Может в Delphi 7 есть специальные функции для работы с бинарными выражениями?


Просмотр ответов:
http://programmersforum.ru/showthread.php?t=3416


Другие вопросы:
Проверка расширения файла
Програмное открытие файла
Компонент для работы с GIF
Сравнение текстовых файлов
Как затереть CD/DVD RW диск?



<<<Назад    Вперёд>>>