delphi中無型別檔案讀寫

阿新 • • 發佈：2020-08-01

unit Unit1;  
  
interface  
  
uses  
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, StdCtrls;  
  
type  
  TForm1 = class(TForm)  
    Memo1: TMemo;  
    Button1: TButton;  
    Button2: TButton;  
    Button3: TButton;  
    Button4: TButton;  
    Button5: TButton;  
    Button6: TButton;  
    Button7: TButton;  
     
procedure Button1Click(Sender: TObject);  
    procedure Button2Click(Sender: TObject);  
    procedure Button3Click(Sender: TObject);  
    procedure Button4Click(Sender: TObject);  
    procedure Button5Click(Sender: TObject);  
    procedure Button6Click(Sender: TObject);  
    procedure Button7Click(Sender: TObject);  
   
private  
    { Private declarations }  
  public  
    { Public declarations }  
  end;  
  
var  
  Form1: TForm1;  
  
implementation  
  
{$R *.dfm}  
  
const  
  FileName = 'c:\temp\binary.dat';  
var  
  F: file;  
  
//用無型別的方式寫入一個位元組  
procedure TForm1.Button1Click(Sender: TObject);  
var  
  b: Byte;  
 
begin  
  AssignFile(F,FileName);  
  Rewrite(F,1); //第二個引數表示: 把 1 個位元組當作一個寫入單位  
  
  b := 65;  
  BlockWrite(F,b,1); //寫入; 引數2是要寫入的內容; 引數3表示寫入 1 次.  
  
  CloseFile(F);  
//落實 binary.dat 的大小: 1個位元組; 內容: A (可用記事本開啟)  
end;  
  
  
//用無型別的方式讀出一個位元組  
procedure TForm1.Button2Click(Sender: TObject);  
var  
  b: Byte;  
begin  
  AssignFile(F,FileName);  
  Reset(F,1); //把 1 個位元組當作一個讀取單位  
  
  BlockRead(F,b,1); //讀取一次; 放入 b  
  ShowMessage(Chr(b)); //A  
  
  CloseFile(F);  
end;  
  
  
//寫入更多位元組  
procedure TForm1.Button3Click(Sender: TObject);  
var  
  buffer: array[0..127] of Byte;  
  i: Integer; //儲存多個位元組, 需要用陣列了  
begin  
  for i := Low(buffer) to High(buffer) do  
    buffer[i] := i; //給陣列賦值, 注意現在陣列大小是 128  
  
  AssignFile(F,FileName);  
  Rewrite(F,32); //規定把 32 個位元組當作一個讀取單位, 注意這個數字和緩衝區大小必須是倍數關係  
  
  BlockWrite(F,buffer,4); //需要寫入幾次呢? 128/32=4  
  
  CloseFile(F);  
//寫成的檔案肯定是128位元組大小, 但用記事本可能看不了, 因為這個二進位制不是文字  
end;  
  
  
//讀出  
procedure TForm1.Button4Click(Sender: TObject);  
var  
  buffer: array[0..127] of Byte;  
  i: Integer;  
begin  
  AssignFile(F,FileName);  
  Reset(F,4); //把 4 位元組當作一個讀取單位; 為了那個倍數關係, 這裡一般是 1  
  
  BlockRead(F,buffer,32); //當然需要 32 次才能讀完  
  
  CloseFile(F);  
  
  //怎麼顯示一下呢? 還是用 Memo 吧; 顯示字元? 數字? 還是十六進位制吧  
  Memo1.Clear;  
  for i := Low(buffer) to High(buffer) do  
  begin  
    Memo1.Lines.Add(IntToHex(buffer[i],1));  
  end;  
(*顯示結果: 0 1 2 3 ... 7D 7E 7F *)  
  
end;  
  
  
//讀寫 Char 與實際讀寫位元組  
procedure TForm1.Button5Click(Sender: TObject);  
var  
  cArr1,cArr2: array[0..4] of Char;  
  i: Integer;  
  num: Integer; //記錄實際讀寫的位元組數  
begin  
  for i := Low(cArr1) to High(cArr1) do  
    cArr1[i] := Chr(65+i); //填充 A B C D E  
  
  AssignFile(F,FileName);  
  Rewrite(F,1); //建立  
  
  BlockWrite(F,cArr1,Length(cArr1),num); //引數4: num 是實際寫入的位元組數  
  ShowMessage(IntToStr(num)); //5  
  
  Reset(F,1); //重新開啟  
  
  BlockRead(F,cArr2,Length(cArr2),num); //引數5: num 是實際讀出的位元組數  
  ShowMessage(IntToStr(num)); //5  
  
  ShowMessage(cArr2); //ABCDE  
  
  CloseFile(F);  
end;  
  
  
//寫入長字串, 讀出其十六進位制碼  
procedure TForm1.Button6Click(Sender: TObject);  
var  
  p: PChar;  
  b: Byte;  
begin  
  p := '萬一的 Delphi 部落格';  
  
  AssignFile(F,FileName);     //關聯檔名  
  Rewrite(F,1);               //建立並開啟  
  BlockWrite(F,p,Length(p));  //寫入  
  
  
  FileMode := fmOpenRead;     //這時可以設檔案為只讀  
  Reset(F,1);                 //為讀取開啟  
  
  Memo1.Clear;  
  while not Eof(F) do  
  begin  
    BlockRead(F,b,1);  
    Memo1.Text := Memo1.Text + IntToHex(b,2) + ' ';  
  end;  
  //顯示結果: 70 F0 45 00 08 F7 12 00 A6 FB 43 00 A0 1A E5 00 FF C5  
  
  CloseFile(F);  
end;  
  
  
//複製個檔案  
procedure TForm1.Button7Click(Sender: TObject);  
var  
  FromF,ToF: file;  
  NumRead,NumWritten: Integer;  
  Buffer: array[1..2048] of Byte;  
begin  
  AssignFile(FromF, 'c:\temp\test1.dat'); //假定有這個檔案  
  Reset(FromF, 1);  
  AssignFile(ToF, 'c:\temp\test2.dat');  
  Rewrite(ToF, 1);  
  
  repeat  
    BlockRead(FromF, Buffer, SizeOf(Buffer), NumRead);  
    BlockWrite(ToF, Buffer, NumRead, NumWritten);  
  until (NumRead = 0) or (NumWritten <> NumRead);  
  { NumRead=0 表示讀完了; NumWritten <> NumRead 表示磁碟空間不夠了 }  
  
  CloseFile(FromF);  
  CloseFile(ToF);  
end;  
  
end.

unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;
type
TForm1=class(TForm)
Memo1:TMemo;
Button1:TButton;
Button2:TButton;
Button3:TButton;
Button4:TButton;
Button5:TButton;
Button6:TButton;
Button7:TButton;
procedureButton1Click(Sender:TObject);
procedureButton2Click(Sender:TObject);
procedureButton3Click(Sender:TObject);
procedureButton4Click(Sender:TObject);
procedureButton5Click(Sender:TObject);
procedureButton6Click(Sender:TObject);
procedureButton7Click(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
{$R*.dfm}
const
FileName='c:\temp\binary.dat';
var
F:file;
//用無型別的方式寫入一個位元組
procedureTForm1.Button1Click(Sender:TObject);
var
b:Byte;
begin
AssignFile(F,FileName);
Rewrite(F,1);//第二個引數表示:把1個位元組當作一個寫入單位
b:=65;
BlockWrite(F,b,1);//寫入;引數2是要寫入的內容;引數3表示寫入1次.
CloseFile(F);
//落實binary.dat的大小:1個位元組;內容:A(可用記事本開啟)
end;
//用無型別的方式讀出一個位元組
procedureTForm1.Button2Click(Sender:TObject);
var
b:Byte;
begin
AssignFile(F,FileName);
Reset(F,1);//把1個位元組當作一個讀取單位
BlockRead(F,b,1);//讀取一次;放入b
ShowMessage(Chr(b));//A
CloseFile(F);
end;
//寫入更多位元組
procedureTForm1.Button3Click(Sender:TObject);
var
buffer:array[0..127]ofByte;
i:Integer;//儲存多個位元組,需要用陣列了
begin
fori:=Low(buffer)toHigh(buffer)do
buffer[i]:=i;//給陣列賦值,注意現在陣列大小是128
AssignFile(F,FileName);
Rewrite(F,32);//規定把32個位元組當作一個讀取單位,注意這個數字和緩衝區大小必須是倍數關係
BlockWrite(F,buffer,4);//需要寫入幾次呢?128/32=4
CloseFile(F);
//寫成的檔案肯定是128位元組大小,但用記事本可能看不了,因為這個二進位制不是文字
end;
//讀出
procedureTForm1.Button4Click(Sender:TObject);
var
buffer:array[0..127]ofByte;
i:Integer;
begin
AssignFile(F,FileName);
Reset(F,4);//把4位元組當作一個讀取單位;為了那個倍數關係,這裡一般是1
BlockRead(F,buffer,32);//當然需要32次才能讀完
CloseFile(F);
//怎麼顯示一下呢?還是用Memo吧;顯示字元?數字?還是十六進位制吧
Memo1.Clear;
fori:=Low(buffer)toHigh(buffer)do
begin
Memo1.Lines.Add(IntToHex(buffer[i],1));
end;
(*顯示結果:0123...7D7E7F*)
end;
//讀寫Char與實際讀寫位元組
procedureTForm1.Button5Click(Sender:TObject);
var
cArr1,cArr2:array[0..4]ofChar;
i:Integer;
num:Integer;//記錄實際讀寫的位元組數
begin
fori:=Low(cArr1)toHigh(cArr1)do
cArr1[i]:=Chr(65+i);//填充ABCDE
AssignFile(F,FileName);
Rewrite(F,1);//建立
BlockWrite(F,cArr1,Length(cArr1),num);//引數4:num是實際寫入的位元組數
ShowMessage(IntToStr(num));//5
Reset(F,1);//重新開啟
BlockRead(F,cArr2,Length(cArr2),num);//引數5:num是實際讀出的位元組數
ShowMessage(IntToStr(num));//5
ShowMessage(cArr2);//ABCDE
CloseFile(F);
end;
//寫入長字串,讀出其十六進位制碼
procedureTForm1.Button6Click(Sender:TObject);
var
p:PChar;
b:Byte;
begin
p:='萬一的Delphi部落格';
AssignFile(F,FileName);//關聯檔名
Rewrite(F,1);//建立並開啟
BlockWrite(F,p,Length(p));//寫入
FileMode:=fmOpenRead;//這時可以設檔案為只讀
Reset(F,1);//為讀取開啟
Memo1.Clear;
whilenotEof(F)do
begin
BlockRead(F,b,1);
Memo1.Text:=Memo1.Text+IntToHex(b,2)+'';
end;
//顯示結果:70F0450008F71200A6FB4300A01AE500FFC5
CloseFile(F);
end;
//複製個檔案
procedureTForm1.Button7Click(Sender:TObject);
var
FromF,ToF:file;
NumRead,NumWritten:Integer;
Buffer:array[1..2048]ofByte;
begin
AssignFile(FromF,'c:\temp\test1.dat');//假定有這個檔案
Reset(FromF,1);
AssignFile(ToF,'c:\temp\test2.dat');
Rewrite(ToF,1);
repeat
BlockRead(FromF,Buffer,SizeOf(Buffer),NumRead);
BlockWrite(ToF,Buffer,NumRead,NumWritten);
until(NumRead=0)or(NumWritten<>NumRead);
{NumRead=0表示讀完了;NumWritten<>NumRead表示磁碟空間不夠了}
CloseFile(FromF);
CloseFile(ToF);
end;
end.

delphi中無型別檔案讀寫

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

【python系統學習17】python中的檔案讀寫

python中的檔案讀寫檔案讀寫，是Python程式碼呼叫電腦檔案的主要功能，能被用於讀取和寫入文字、音訊片段、Excel文件、郵件以及任何儲存在電腦上的東西。

作業系統實驗7 無緩衝方式實現檔案讀寫

技術標籤：課程學習記錄實驗7 無緩衝方式實現檔案讀寫一、實驗目的（1）熟悉Windows系統檔案讀\\寫相關API。

python中reader_Python檔案讀寫教程

技術標籤：python中readervbnet讀取txt檔案全部內容怎麼用object file library格式開啟檔案

詳解python中的異常和檔案讀寫

Python異常 1、python異常的完整語法 try: # 提示使用者輸入一個整數 num = int(input(\"輸入一個整數：\"))

Python中xml.etree.ElementTree讀寫xml檔案例項

import osimport xml.etree.ElementTree as ET\'\'\'Python 標準庫中，提供了6種可以用於處理XML的包,本文舉例項說明第6種1.xml.dom2.xml.dom.minidom3.xml.dom.pulldom4.xml.sax5.xml.parse.expat6.xml.etree.Eleme

Python開啟檔案、檔案讀寫操作、with方式、檔案常用函式例項分析

本文例項講述了Python開啟檔案、檔案讀寫操作、with方式、檔案常用函式。分享給大家供大家參考，具體如下：

Python實現密碼薄檔案讀寫操作

製作一個\"密碼薄\",其可以儲存一個網址，和一個密碼(如123456)，請編寫程式完成這個“密碼薄”的增刪改查功能，並且實現檔案儲存功能

python檔案讀寫程式碼例項

實驗室導師又有任務，從一個.dat檔案中讀取波形資料，通過一個自編碼網路進行異常檢測。可是對我這種小白來說真的艱難。從最基礎的檔案讀寫開始吧。

python實現的config檔案讀寫功能示例

本文例項講述了python實現的config檔案讀寫功能。分享給大家供大家參考，具體如下：

Python 實現檔案讀寫、座標定址、查詢替換功能

讀檔案開啟檔案（檔案需要存在） #開啟檔案 f = open(\"data.txt\",\"r\")#設定檔案物件

python多執行緒同步之檔案讀寫控制

本文例項為大家分享了python多執行緒同步之檔案讀寫控制的具體程式碼，供大家參考，具體內容如下

python+tifffile之tiff檔案讀寫方式

背景使用python操作一批同樣解析度的圖片，合併為tiff格式的檔案。由於opencv主要用於讀取單幀的tiff檔案，對多幀的檔案支援並不好。

給Python學習者的檔案讀寫指南(含基礎與進階)

對於初學者來說，一份詳盡又清晰明白的指南很重要。今天，貓貓跟大家一起，好好學習Python檔案讀寫的內容，這部分內容特別常用，掌握後對工作和實戰都大有益處。學習是循序漸進的過程，欲速則不達。文章較長，建議大

Python檔案讀寫w+和r+區別解析

其實r 是隻讀，只能讀不能寫，這是很明確的，但是r+是可讀寫，變成r+後還沒太明白到底加了什麼，還是照樣寫不了，有沒有這樣的體驗呢,如下程式碼，只讀時

Python記憶體對映檔案讀寫方式

我就廢話不多說了，還是直接看程式碼吧！ import os import time import mmap filename = \'test.txt\'

C# XML配置檔案讀寫類（用於程式配置儲存）

呼叫方式按 Ctrl+C 複製程式碼按 Ctrl+C 複製程式碼檔案路徑存在則正常讀取，不存在則自動建立。

Python基於codecs模組實現檔案讀寫案例解析

codecs在讀取檔案時，發生錯誤： UnicodeDecodeError: \'utf-8\' codec can\'t decode byte 0xbe in position 0: invalid start byte

C++ I/O檔案讀寫操作的示例程式碼

IO: 向裝置輸入資料和輸出資料C++的IO流 c++中,必須通過特定的已經定義好的類,來處理IO(輸入輸出)

JAVA檔案讀寫例題實現過程解析

練習有這樣的一個words陣列，陣列中每個字串的格式為“詞性:單詞” String[] words = {\"verb:eat\",\"verb:drink\",\"verb:sleep\",\"verb:play\",\"noun:rice\",\"noun:meat\",\"noun:hand\",\"noun:hair\"};

delphi中無型別檔案讀寫

相關推薦