(Это снова я) Как записать в файл?

[Air]

Здравствуйте.
- Столкнулся с проблемой записи бинарных данных из реестра в файл
Использую код:

...
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 есть специальные функции для работы с бинарными выражениями?

[Квэнди]

Что пытаетесь записать в файл, что записывается в файл?
При попытке работы не с Filestream , а просто с нетипизированными файлами проблема таже ?

[execom]

Я не знаю зачем весь этот сыр-бор, но помоему так проще:

Function WriteBinaryData(BinaryData:string; j:KolBait):Boolean;
VAR
  FCh : file of char;
    I : integer;
Begin
Result:=False;
AssignFile(FCh,'PasswordBinary.txt');
If Not FileExists('PasswordBinary.txt') Then ReWrite(FCh)
                                        Else Reset(FCh);
For I:=1 To j Do
Write(FCh,BinaryData[i]);
CloseFile(FCh);
If j=15 Then Result:=True;
End;

Код не запускал, поэтому допускаю мелкие недочеты...

[Квэнди]

Все- таки ответьте на мои вопросы )

[Air]

Сообщение от Квэнди

Все- таки ответьте на мои вопросы )

В файл заносятся 16-ричные и бинарные данные.
Использование (например) AssignFile не даст нужного результата.
Дело в том, что в реестре тип 'REG_BINARY' содержит массив чисел.
Теперь я использую массив для чтения и записи.

...
Var
s:byte;
...
Function WriteBinaryData(BinaryData:array of Widechar;p:integer):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,soEnd);
j:=f.Write(BinaryData,p); // Длина определяется программой
if j=p then Result:=true; // p - Размер данных
f.Free;
end;
...

Как бы странно это не казалось, f.Write(BinaryData,p); записывает массив так, как он выглядит в реестре.
Что касается расширения, - это просто так, для просмотра, оно может быть и .sys, потому что файл будет работать непосредственно с программой.

Я пологаю, спрашивать о том, как написать программу которая сама распространяется по локальной сети, не стоит?

[rpy3uH]

допустим у тебя есть 16 битное число

var
   n: dword;
   chislo: word;
    f: thandle;
begin
   f:=CreateFile('....',GENERIC_WRITE,0,0,OPEN_EXISTING,0,0);
  ......
  writefile(f,chislo,2,n,0);

так же с 32 битными числами
только

var chislo:dword;
writefile(f,chislo,4,n,0)