tfilestream

1热度

1回答

在TFileStream的构造函数中指定“FILE_SHARE_READ或FILE_SHARE_WRITE”时，Delphi XE3给出EFOpenError

在Delphi XE（Windows 7 x64）下，以下语句在Delphi XE（Windows 7 x64）下正常运行，但给出了“Exception class EFOpenError with message ...”。它看起来像一个错误。如果是这样，是否有解决方法？ TFileStream.Create( 'C:\Test.txt' , fmOpenRead, /

0热度

1回答

TFileStream.Read没有读取文件的最后部分

我在循环中使用TFileStream.Read读取文本文件，但我发现最后一部分没有被读入缓冲区 - 虽然总字节数读取等于文件大小。这是我的代码： procedure TForm1.DoImport; var f: String; fs: TFileStream; r, c: Integer; buf: TBytes; const bufsi

0热度

1回答

ASP.NET - 流文件到客户端占用服务器内存吗？

我有一个要求，使文件服务器中的文件可以通过运行在Web服务器上的应用程序进行下载。用户将点击应用程序页面上的可用链接，并出现另存为对话框。这种用例很常见，我可能会谈论一些基本的东西，但如果有人能确认我的下列假设是否正确，我将不胜感激。 1）通过文件服务器上的文件，通过Web服务器中的虚拟目录虚拟映射以便应用程序可以访问（作为链接），可以使用内容处置直接将其流式传输到客户端（使用代码类似于回答her

1热度

1回答

带字符串的额外空格缓冲void类型转换隐式地在Filestream.WriteBuffer方法中

不需要在这里留言一段时间，但是我在实现文件流时遇到问题。当写一个字符串FILESTREAM时，resultnig文本文件具有运行此方法时插入每个字符之间所以多余的空格： Function TDBImportStructures.SaveIVDataToFile(const AMeasurementType: integer; IVDataRecordList: TIV; Export

1热度

1回答

delphi TFileStream“内存不足”

我在使用TFileStream从文件读取数据块到动态数组的一些Delphi代码时遇到了问题。编写代码的最初目的是比较具有相同大小但可能不同日期和时间戳的两个文件的内容，以查看内容是否相同。这是通过将每对文件中的数据读入单独的动态数组并将一个数组的每个字节与另一个数组的相应字节进行比较来完成的。该代码对TFileStream.Read进行多次调用。大约75次调用后，程序崩溃，出现“内存不足”错误消

1热度

1回答

写tList <string> to tFileStream

我在Windows 10中使用柏林。我尝试将tList<string>保存到文件中。我知道如何处理tStringlist，tStreamWriter和tStreamReader，但我需要使用tFileStream，因为应该添加其他类型的数据。在以下代码中，读取数据的Button2Click循环引发eOutOfMemory异常。当我将简单的字符串值分配给_String时，它工作得很好，但是如果我

6热度

2回答

TDownloadURL无法从HTTPS下载

我一直试图通过TDownloadURL类创建（TFileStream）PDF，但是我真的在从URL获取文件/流时遇到麻烦，特别是如果URL是HTTPS。我不知道如果我是清楚的，但我会发布一个段，这样它可以帮助理解： implementation var pdfStreamed: TDownloadUrl; var fileStream : TFileStream; procedur

4热度

2回答

通过文件流取消保存文件的适当方法？

我正在写的一个工具负责在数小时内下载数千个图像文件。最初，使用TIdHTTP，我将Get文件转换为TMemoryStream，然后将其保存到文件中，只要没有例外。为了提高速度，我将TMemoryStream更改为TFileStream。但是，现在，如果找不到资源，或者其他任何导致没有实际文件的异常，它仍保存一个空文件。完全可以理解的，因为我只是简单地在下载之前创建一个文件流... FileSt

1热度

1回答

如何消除TFileStream上的Free Pascal'not recognized'编译错误？

我在Windows 8.1上使用Free Pascal 2.6.4 32位。我想使用TFileStream来复制文件。 program copy; procedure CopyFile (strFilename : string); var SourceF, DestF : TFileStream; begin end; begin writeln('startin

0热度

1回答

需要读取一个文件，任何扩展名一次一个字节XE5到动态数组

我已经尝试将文件读入TFileStream，但这是我被卡住的文件被插入到TFileStream中，但我无法读取文件的字节，我没有编程一段时间，请帮助我。我也试图把它读成正常文件 var myFile : File; byteArray : array of byte; oneByte : byte; i, count : Integer; begin