| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Файл в двоичном формате
asdqwer © (2002-12-08 09:27:00)Как открыть файл (не только текстовый) в двоичном (или хотя бы шестнадцатеричном) формате?
Danlicha (2002-12-08 13:11:00) [1]BlockRead, BlockWrite, SaveDialog Example
var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
ifOpenDialog1.Execute then{ Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
ifSaveDialog1.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;
Хелп читать надо.
Юрий Зотов (2002-12-08 10:27:00) [2]> asdqwer (08.12.02 09:27)
Уточните, пожалуйста, а что имеется в виду под словами "открыть файл в двоичном или шестнадцатиричном формате"?
Может, не "открыть", а "показать" все-таки?
Sha (2002-12-08 09:32:00) [3]Знаю точно, что Reset может открыть в восьмиричном :)
| |
