社区
语言基础/算法/系统设计
帖子详情
低级问题:如何把TFileStream中的一个字节读到一个byte变量中?
vericky
2003-09-11 05:09:45
脸红。
...全文
45
3
打赏
收藏
低级问题:如何把TFileStream中的一个字节读到一个byte变量中?
脸红。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
karach
2003-09-11
打赏
举报
回复
read(b,1)
知道答案了就给分八
keyz
2003-09-11
打赏
举报
回复
read(b,1)
vericky
2003-09-11
打赏
举报
回复
已经知道答案了,给分。
使用T
FileStream
读文件
Delphi
中
,使用T
FileStream
读取文件的,自己写的
一个
Demo,主要是Read方法的使用。
delphi读写取流记录文件T
FileStream
delphi读写取流记录文件T
FileStream
img格式图片追加存储
delphi.fast.zlib.v.1.21
号称比 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: T
FileStream
; DeCompressionStream: TZDecompressionStream; CompressionStream: TZCompressionStream; InputFileName, OutputFileName: string;begin//compress InputFileName := ‘c:image.png‘; OutputFilename := ‘c:image.png.bzip‘; InputStream := T
FileStream
.Create(InputFileName, fmOpenRead); OutputStream := T
FileStream
.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 := T
FileStream
.Create(InputFileName, fmOpenRead); OutputStream := T
FileStream
.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-octet-stream:马的八位
字节
流
中
间件
马八位位组流 用于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: T
FileStream
; begin LStream := T
FileStream
.Creat
delphi 读取BIN文件
//读取文件函数 function ReadFile1(FileName:String):boolean; var sFileName: string; f: T
fileStream
; ED_Data: array[0..2048] of char; lRet: integer; lOffset: Longint; lOrigin: Word; i,count:integer; begin sFileName:=form1.opendialog1.FileName; f := T
fileStream
.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
社区内容
发帖
与我相关
我的任务
语言基础/算法/系统设计
Delphi 语言基础/算法/系统设计
复制链接
扫一扫
分享
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章