записать байт файл

[мандарин]

мне надо массив байт записать в ранне существующий файл вот че написал но это не работает в чем ошибка или че то другое подскажите.


bayt: byte;
mas: array [1..300] of byte;

AssignFile(fail1, 'd:\3.bmp');
reset(fail1);
command_vnutr:=('02');


i:=0;
while i<300 do
begin
i:=i+1;
bayt:=mas[i];
write(fail1, bayt);

[Viteef]

А что за ошибка, что компилятор говорит?

[мандарин]

да ошибки то нет просто не работает не записывает

[Viteef]

Файл типизированный? Если да то:

Удобнее изпользовать FOR:

for i:=0 to 300 do
begin
bayt:=mas[i];
seek(fail1,filesize(fail1)); //Кажется так...
write(fail1, bayt);
end;
Надеюсь после записи ты делаешь CloseFile(fail1);?

[мандарин]

вроде работает спасибо большое если че оброщайся

[BOBAH13]

а можно поинтерисоватся ? а зачем переберать целый массив ? разве нельзя сделать так

assignfile(f, 'file');
reset(f,1);
blockwrite(f, masiv, sizeof(masiv));
closefile(f);

??? вроде не ошибся в коде

[Viteef]

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

а можно поинтерисоватся ? а зачем переберать целый массив ? разве нельзя сделать так

assignfile(f, 'file');
reset(f,1);
blockwrite(f, masiv, sizeof(masiv));
closefile(f);

??? вроде не ошибся в коде

Если небольшой массив то можно и так.

[zetrix]

Да? Хм... Судя по входящим типам размер записываемой структуры (хоть массив, хоть что) до 2147483647 байт. Этого вполне достаточно.

[rpy3uH]

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

а можно поинтерисоватся ? а зачем переберать целый массив ? разве нельзя сделать так

assignfile(f, 'file');
reset(f,1);
blockwrite(f, masiv, sizeof(masiv));
closefile(f);

??? вроде не ошибся в коде

этот код должен работать!

но лучше использовать API, примерно так:

h:=CreateFile(.....);
Writefile(h,massiv,sizeof(massiv),_writed,0);
closehandle(h);