当前位置：首页 > news >正文

沈阳网站建设服务器/百度网页翻译

news 2025/7/1 13:22:14

沈阳网站建设服务器,百度网页翻译,申请域名地址,开发一个网站需要几个人二进制文件二进制文件与结构数组非常相似，只是结构位于磁盘文件中而不是内存中的数组中。因为二进制文件中的结构在磁盘上，所以您可以创建非常大的它们的集合（仅受可用磁盘空间的限制）。它们也是永久性的并且始终可用。唯一的缺点…

二进制文件

二进制文件与结构数组非常相似，只是结构位于磁盘文件中而不是内存中的数组中。因为二进制文件中的结构在磁盘上，所以您可以创建非常大的它们的集合（仅受可用磁盘空间的限制）。它们也是永久性的并且始终可用。唯一的缺点是磁盘访问时间慢。

二进制文件有两个区别于文本文件的特征：

您可以立即跳转到文件中的任何结构，它提供与数组中一样的随机访问。
您可以随时更改文件中任何位置的结构内容。

二进制文件通常也比文本文件具有更快的读写时间，因为记录的二进制图像直接从内存存储到磁盘（反之亦然）。在文本文件中，所有内容都必须来回转换为文本，这需要时间。

Pascal如同C一样，可以

非常干净地支持文件结构概念。打开文件后，您可以读取结构、写入结构或查找文件中的任何结构。这个文件概念支持文件指针的概念。打开文件时，指针指向记录 0（文件中的第一条记录）。任何读取操作都会读取当前指向的结构并将指针向下移动一个结构。任何写操作都会写入当前指向的结构并将指针向下移动一个结构。Seek将指针移动到请求的记录。

请记住，C 将磁盘文件中的所有内容视为从磁盘读取到内存或从内存读取到磁盘的字节块。C 使用文件指针，但它可以指向文件中的任何字节位置。因此，您必须跟踪事物。

以下程序说明了这些概念：

program demo_file_bin;{$IFDEF FPC}{$MODE Delphi}
{$ENDIF}{$APPTYPE CONSOLE}{$R *.res}usesSysUtils, Windows,libc_win in '..\libfiber-delphi\libc_win.pas';constLEN = 50;{$POINTERMATH ON}
type
stud_t = recordname : array[0..LEN] of TChar;id : uint32;average : Single;end;(* https://www.skenz.it/cs/c_language/write_and_read_a_binary_file *)
function main:integer;
varfp : PFILE;student : array[0..1] of stud_t;i : integer;row : array[0..(LEN+1)-1] of TChar;n_stud : uint32;
beginstrcopy(student[0].name, 'Steven');student[0].id := 120000;student[0].average := 25.5;strcopy(student[1].name, 'Julia');student[1].id := 120001;student[1].average := 28.5;fp := fopen('out.bin', 'w'); { Open the file for writing }if fp = nil then beginWriteln('Error: file out.bin cannot be opened');exit(1);end;{ Write the file }{ NOTE 2: a binary file sometimes cannot be readablecorrectly in a PC that it is not the one which generates it,because, for instance, integer numbers can be coded with adifferent number of bytes.}{ Write in binary all the data contained in the structure }fwrite(@student, sizeof(stud_t), 2, fp);{ DIMENSION OF THE GENERATED FILEThe dimension of the generated file will be:n_stud*sizeof(stud_t)in the case of the computer used to test the program:2*60 = 120 byte}fclose(fp); { Close the file }fp := fopen('out.bin', 'r'); { Open the file for reading }if fp = nil then beginWriteln('Error: file out.bin cannot be opened');exit(1);end;{ Read the file }n_stud := 0;student[0] := default(stud_t);student[1] := default(stud_t);while fread(@student[n_stud], sizeof(stud_t), 1, fp) = 1  doInc(n_stud);fclose(fp); { Close the file }{ Print the read records }for i := 0 to n_stud-1 dowriteln(format('%s %d %f',[student[i].name, student[i].id, student[i].average]));Result := 0;
end;begintry{ TODO -oUser -cConsole Main : Insert code here }main;excepton E: Exception doWriteln(E.ClassName, ': ', E.Message);end;
end.

在此程序中，使用了结构描述rec ，但您可以使用任何您想要的结构描述。您可以看到fopen和fclose 的工作方式与它们对文本文件所做的完全一样。

这里的新函数是fread、fwrite和fseek。fread 函数有四个参数：