怎么读二进制的文件？

Question

procedure Tfrmdyqk1.Button2Click(Sender: TObject);
 var  strstream:Tmemorystream;
      //ls_qw:string;
begin    OleContainer1.DestroyObject;
    strstream := Tmemorystream.Create;    query1.Close;
    query1.sql.clear;
    query1.SQL.Add('select qw from oadbo.bw_qwb where wjid =' + inttostr(77777777));
    query1.open ;
    query1.First;
    
    
    Tblobfield(query1.fieldbyname('qw')).savetostream(strstream);
    strstream.position:=0;
    OleContainer1.loadfromstream(strstream);    strstream.free;
end;

Answer 1

myFile:file of byte;
或者：myFile:file of char;
然后一个字节一个字节地读。
AssignFile(myFile,FileName);
reset(myFile);
读一个字节：
read(myFile,aChar);   //或  read(myFile,aByte);   其它操作:seek();  CloseFile();  reWrite();