关于Tfilestream如何将一个数据流分成两个文件保存?(100分)

  • 主题发起人 主题发起人 lengbing
  • 开始时间 开始时间
L

lengbing

Unregistered / Unconfirmed
GUEST, unregistred user!
我是想把一个二进制数据流(209字节)分成两个文件保存,第一段125字节,然后保存成N1.mtb
第二段84字节,保存成N2.mtb。请大家帮忙!
 
再用一个stream,如
var
Filestream2:TStream;
temp:array of[0..125]of char;
begin
FileStream2:=TFileStream.Create('N1.mtb',fmCreate);
//第二个参数好像是fmCreate,我记不太清,你可以查一下帮助
FileStream1.Seek( , );//移到需要读的位置
FileStream1.Read(temp,125);
FileStream2.Write(temp,125);
FileStream2.Free;
FileStream2:=TFileStream.Create('N2.mtb',fmCreate);
FileStream1.Seek( , );//移到需要读的位置
FileStream1.Read(temp,84);
FileStream2.Write(temp,84);
FileStream2.Free;
end;
 
thbin,你好,非常感谢你对我的帮助,不过我还有一点不明,要Seek如何定义。第一个文件从0-125,第二个文件从125读起到尾。应该怎么定。
 
var
Filestream2:TStream;
temp:array of[0..125]of char;
begin
FileStream2:=TFileStream.Create('N1.mtb',fmCreate);
//第二个参数好像是fmCreate,我记不太清,你可以查一下帮助
FileStream1.Read(temp,125);
FileStream2.Write(temp,125);
FileStream2.Free;
FileStream2:=TFileStream.Create('N2.mtb',fmCreate);
FileStream1.Seek(125 , soBeginning);//移到需要读的位置
FileStream1.Read(temp,84);
FileStream2.Write(temp,84);
FileStream2.Free;
end;
 
非常感谢二位的帮忙,这个问题终于解决了。我还有一个问题,不知二位大侠有没有高招,就是如何将GIF(2色)转换成BMP(2色)图。要源码!希望能够得到你们的帮助!
谢谢!
 
后退
顶部