tfilestream

    8热度

    2回答

    我需要扩展TFileStream,以便它可以使用不是来自0偏移量的文件,而是来自用户定义的偏移量。我的意思是它必须将用户定义的偏移量解释为流的开始。我的代码是: type TSuFileStream = class(TFileStream) protected FOffset : int64; procedure SetOffset(Offset : i

    2热度

    1回答

    我正在尝试使用TServerSocket/TClientSocket发送文件。只要我没有在任何地方释放文件流,我的意思是form.OnCreate事件也是完全发送文件。如果我在任何地方释放,只有1%或2%被发送。 我还必须将TFileStream.Create代码行放在服务器端OnCreate事件中。如果我在TForm2.ServerSocket1ClientRead中创建了一个流,那么我得到一个

    2热度

    2回答

    我正在与德尔福2006年TFileStream。当我调用TFileStream.Seek偏移超出界限我得到不同的返回值。当我在流的开始位置寻找位置时,该函数返回-1,如果我寻求一个超出流大小的函数,那么该函数将返回如果流很大时流中的位置。有没有办法来检查流上的查找操作是否成功?为什么TFileStream.Seek在搜索偏移超出当前流大小的界限时不会失败? 在此先感谢。

    1热度

    1回答

    有没有办法查看是否正在使用tfile流的实例? 例如,如果我声明FS型TFileStream的中,写入缓冲器,并 使用tfilestream.free我可以检查东西 像终于释放流: if tfilestream.NotActive then //code if tfilestream.beingused then //code if tfilestream.free = true th

    4热度

    1回答

    我一直工作在HTTP Web服务器应用程序(通过TIdHTTPWebBrokerBridge),并有一个小问题,当谈到加载文件转换成流(TFileStream)被发送回抚养错误客户。它不发生的每一次,但相当随机...我不断收到一个例外...... Cannot open file "C:\SomePath\SomeFile.html". The process cannot access the

    4热度

    2回答

    这是其占位符从https://forums.embarcadero.com/message.jspa?messageID=219481 if FileExists(dstFile) then begin Fs := TFileStream.Create(dstFile, fmOpenReadWrite); try Fs.Seek(Max(0, Fs.Size-102

    3热度

    3回答

    我的程序需要从随机访问的巨大二进制文件中读取块。我有一个可能有数千个条目的偏移量和长度的列表。用户选择一个条目,程序寻找偏移量并读取长度字节。 程序内部使用TMemoryStream来存储和处理从文件中读取的块。读取数据通过TFileStream的做过这样的: FileStream.Position := Offset; MemoryStream.CopyFrom(FileStream, Siz

    6热度

    4回答

    我正在使用Delphi7(非unicode VCL),我需要在TFileStream中存储很多WideStrings。我不能使用TStringStream,因为(宽)字符串与二进制数据混合在一起,预计格式会加速加载和写入数据......但我相信目前我加载/写入字符串的方式可能是我的代码的瓶颈... 当前我正在写一个字符串的长度,然后写入字符char ... 加载时,首先我加载长度,然后通过字符加载

    3热度

    1回答

    这QC报告说,德尔福不支持文件共享模式FILE_SHARE_DELETE http://qc.embarcadero.com/wc/qcmain.aspx?d=45628 我需要使用此模式TFileStreams - 谁能想到一个简单的解决办法,不涉及修改库代码或从库中复制大量东西?

    1热度

    1回答

    我正在尝试使用TFileStream编写和读取一个非固定字符串。虽然我收到访问冲突错误。这里是我的代码: // Saving a file (...) count:=p.Tags.Count; // Number of lines to save (Tags is a TStringList) FS.Write(count, SizeOf(integer));