Текущий архив: 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