低级问题：如何把TFileStream中的一个字节读到一个byte变量中？

vericky 2003-09-11 05:09:45

脸红。

...全文

44 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

karach 2003-09-11

打赏
举报

回复

read(b,1)
知道答案了就给分八

keyz 2003-09-11

打赏
举报

回复

read(b,1)

vericky 2003-09-11

打赏
举报

回复

已经知道答案了，给分。

Delphi中，使用TFileStream读取文件的，自己写的一个Demo，主要是Read方法的使用。

delphi读写取流记录文件TFileStream img格式图片追加存储

号称比 DELPHI 自带的 zlib 更快 ...Hello,you can found an optimized version of Zlib 1.2.1 that you can embed into every Delphi executable without use external dlls.Further I have build a little example hoping to aid "young" Delphi programmers getting in trouble with streams...Please let me know if you‘ll discover errors.These objects and sources are targeted for executing into P6+ CPU core, and Delphi5-6-7-x software.Benchmarks show this zlib 40% average faster than native DLL distribution and 100% reliable (original test of zlib 1.1.4 version).How to compress and decompress a file:procedure TForm1.Button1Click(Sender: TObject);var InputStream, OutputStream: TFileStream; DeCompressionStream: TZDecompressionStream; CompressionStream: TZCompressionStream; InputFileName, OutputFileName: string;begin//compress InputFileName := ‘c:image.png‘; OutputFilename := ‘c:image.png.bzip‘; InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest); CompressionStream.CopyFrom(InputStream, InputStream.Size); CompressionStream.Free; OutputStream.Free; InputStream.Free;// decompress InputFileName := ‘c:image.png.bzip‘; OutputFilename := ‘c:image2.png‘; //rename to original into final code InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); DecompressionStream := TZDecompressionStream.Create(InputStream); OutputStream.CopyFrom(DecompressionStream, 0); DecompressionStream.Free; OutputStream.Free; InputStream.Free;end;Cheers,Roberto Della Pasqua,www.dellapasqua.com.Btw: these sources code of zlib 1.2.1 aren‘t changed by me and now I get some compiler warnings, but don‘t worry: they are only little hints about code sintax (cross-platform C compiler typical behavior).

马八位位组流用于HORSE中的应用程序/八位字节流的中间件要使用安装在您的项目中： $ boss install github.com/HashLoad/horse-octet-stream 具有八位字节流中间件的示例Horse Server uses Horse, Horse.OctetStream, System.Classes, System.SysUtils; begin THorse.Use(OctetStream); THorse.Get( ' /stream ' , procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc) var LStream: TFileStream; begin LStream := TFileStream.Creat

//读取文件函数 function ReadFile1(FileName:String):boolean; var sFileName: string; f: TfileStream; ED_Data: array[0..2048] of char; lRet: integer; lOffset: Longint; lOrigin: Word; i,count:integer; begin sFileName:=form1.opendialog1.FileName; f := TfileStream.Create(sFileName,fmOpenRead); try f.Seek(lOffset,lOrigin); //文件定位，从lOrigin开始移动lOffset begin lRet := f.Read(f,count); //lRet为实际读到的字节数，ED_Data为读到的内容 form1.Memo2.Lines.LoadFromStream(f); j:=f.size div 1024; //计算文件一共有多少个包 // form1.suimemo1.Text:=strtohexstr(ed_data[count]); Application.ProcessMessages; begin for i:=0 to j do begin form1.Label1.Caption:='正在读取第 '+inttostr(i)+' 包 '; form1.Memo1.Text:=form1.Memo1.Text+ midstr(strtohex(form1.Memo2.text),2048*i,2048)+' '; //Progressbar进度栏 form1.ProgressBar1.Max :=j; form1.ProgressBar1.Min:=0; form1.ProgressBar1.Position := i; Application.ProcessMessages; end; // form1.memo2.clear; showmessage('成功读取'+inttostr(i)+'个包'); Application.ProcessMessages; end; end; finally FreeAndNil(f); Application.ProcessMessages; end; end;

语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章