Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.19;
Скачать: CL | DM;

Вниз

Файл в двоичном формате   Найти похожие ветки 

 
asdqwer   (2002-12-08 09:27) [0]

Как открыть файл (не только текстовый) в двоичном (или хотя бы шестнадцатеричном) формате?


 
Sha ©   (2002-12-08 09:32) [1]

Знаю точно, что Reset может открыть в восьмиричном :)


 
Юрий Зотов ©   (2002-12-08 10:27) [2]

> asdqwer (08.12.02 09:27)

Уточните, пожалуйста, а что имеется в виду под словами "открыть файл в двоичном или шестнадцатиричном формате"?

Может, не "открыть", а "показать" все-таки?


 
Danlicha ©   (2002-12-08 13:11) [3]

BlockRead, BlockWrite, SaveDialog Example

var

FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array [1..2048] of Char;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then { Display Save dialog box}
begin
AssignFile(ToF, SaveDialog1.FileName); { Open output file }

Rewrite(ToF, 1); { Record size = 1 }
Canvas.TextOut(10, 10, "Copying " + IntToStr(FileSize(FromF))
+ " bytes...");
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;


Хелп читать надо.



Страницы: 1 вся ветка

Текущий архив: 2002.12.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
14-61770
STANT
2002-11-27 17:39
2002.12.19
Народ! Хватит трепаться!!!


14-61789
Grifon
2002-11-22 22:11
2002.12.19
---|Ветка была без названия|---


3-61431
alxx
2002-11-29 17:19
2002.12.19
Относительно триггеров.


3-61404
Геннадий
2002-12-03 08:32
2002.12.19
Подскажите с InterBase


8-61717
DeMoN-777
2002-09-03 16:47
2002.12.19
Как узнать длинну трека или клипа проигрываемого в TMediaPlayer ?