如何在Delphi中为保存的文件增加数量？
在Delphi中为保存的文件增加数量，可以使用以下方法：
- 使用TFileStream类创建一个文件流对象，并使用Write方法将数据写入文件。
var
FileStream: TFileStream;
Data: TBytes;
begin
FileStream := TFileStream.Create('file.txt', fmCreate or fmShareDenyWrite);
try
Data := TEncoding.UTF8.GetBytes('Hello, world!');
FileStream.Write(Data, Length(Data));
finally
FileStream.Free;
end;
end;- 使用TFile类的WriteAllText或WriteAllBytes方法将数据写入文件。
begin
TFile.WriteAllText('file.txt', 'Hello, world!');
// 或
TFile.WriteAllBytes('file.bin', TEncoding.UTF8.GetBytes('Hello, world!'));
end;- 使用TStreamWriter类将数据写入文件。
var
StreamWriter: TStreamWriter;
begin
StreamWriter := TStreamWriter.Create('file.txt');
try
StreamWriter.WriteLine('Hello, world!');
finally
StreamWriter.Free;
end;
end;- 使用TStringList类将数据写入文件。
var
StringList: TStringList;
begin
StringList := TStringList.Create;
try
StringList.Add('Hello, world!');
StringList.SaveToFile('file.txt');
finally
StringList.Free;
end;
end;以上方法都可以用于在Delphi中为保存的文件增加数量。具体使用哪种方法，取决于具体的需求和场景。
相关·内容
1回答
TStreamWriter锁定文件以进行读取
delphi
在我们的项目中，我们使用StreamWriter来写入日志文件。 在编写时，我想在文件内部搜索一些特定的行。例如在单元测试期间。但不知何故，我无法读取文件，因为它被一个进程阻塞了。我不明白为什么它被阻塞了，因为我想我打开FileStream时没有任何阻塞。 我把所有的东西都提取到了这个小例子中。在写入文件时，我必须进行哪些更改才能不阻止文件读取？ program Playground;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, System.Classes;
var
FileStream: TFileStream;
浏览 26提问于2021-01-22得票数 2
回答已采纳
2回答
如何防止TStrings.SaveToStream写入物料清单？
delphi、delphi-xe3、tstringlist
我使用的是Delphi XE3。 在我的代码中，我需要创建一个文件流，然后将一些我自己的数据以及几个TStringList的内容写入其中。该文件为UTF-16LE格式。 因此，我的代码如下： FileStream := TFileStream.Create('D:\MyFile.dat', fmCreate or fmOpenWrite or fmShareExclusive);
try
// Write some data to FileStream
// Write contents of StringList1 into FileStream
Strin
浏览 43提问于2019-12-25得票数 2
回答已采纳
4回答
如何在delphi XE中将文件内容读取为字符串
delphi、delphi-2007、delphi-xe
我正在将我的应用程序从delphi 2007迁移到delphi xe，但是我在读取文件(ascii)并将内容存储在字符串中的过程中遇到了问题
这是在delphi2007中运行正常的代码。
function LoadFileToStr(const FileName: TFileName): String;
var
FileStream : TFileStream;
begin
FileStream:= TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
if FileStream.Size&
浏览 0提问于2011-05-24得票数 11
回答已采纳
1回答
使用TIdCompressorLib解压缩gzip文件
delphi、indy
我正在使用Delphi 2007与Indy 10。我有一个gzip文件。我已经证实它可以用这个来解压缩。
我正在尝试使用TIdCompressorZlib组件来使用Delphi解压缩。这是我的代码：
procedure TForm2.Button9Click(Sender: TObject);
var
lCompressor : TIdCompressorZLib;
FileStream : TFileStream;
memorystream: TMemoryStream;
begin
lCompressor := TIdCompressorZLib.create(self);
浏览 0提问于2016-08-13得票数 0
3回答
Delphi TDecompressionStream的C#等价物是什么？
c#、.net、delphi、compression
我有一些做这件事的Delphi代码需要用C#重新编码：
procedure TDocSearchX.Decompress;
var
BlobStream:TBlobStream;
DecompressionStream:TDecompressionStream;
FileStream:TFileStream;
Buffer:array[0..2047] of byte;
count:integer;
begin
BlobStream:=TBlobStream.Create(DocQueryDATA,bmRead);
DecompressionStream:=TDecompres
浏览 3提问于2009-05-08得票数 0
回答已采纳
1回答
Base64编码字符串到二进制文件
arrays、delphi、base64、binaryfiles
我有一个编码的字符串，包含PDF数据。使用EncdDecd单元，我可以将字符串解码为Byte。
这就是我遇到麻烦的地方:我尝试将字符保存到一个字符串中，但是一旦它到达一个零值(ASCII = 0或#0或$00)，该字符串就不再追加。示例：
uses
EncdDecd;
var
EncodedString : String;
Report : String;
Base64Bytes: TBytes; // contains the binary data
begin
Base64Bytes := DecodeBase64(EncodedString);
for I :=
浏览 10提问于2011-10-31得票数 3
回答已采纳
1回答
Delphi: TFileStream & TStringList保存空白文本文件
file、delphi、text、tstringlist、tfilestream
我是一名大学生(英国)，正在使用delphi完成我的A2计算项目。我真的不是很先进，所以请容忍我！好了，在加密之后，我使用TStringList将TMemoBox的内容保存到文本文件中。然而，这是不可能的，因为TStringList在消息后显示换行符，这扰乱了加密。我关注了文章，这篇文章同时使用了TStringList和TFIleStream来删除它，但是没有给我一个完整的文本文件，结果是空的。请您帮助保存数据，而不是根本不存储它？非常感谢。这是我的程序的一部分。
var
EmailText : TStringList;
FileStream : TFileStream;
begin
浏览 9提问于2014-11-29得票数 0
1回答
将文件拆分为TFileStream
delphi
我正在执行两个函数来连接和分割TFileStream中的文件，代码如下：
加入
procedure TFormHome.btnJoinClick(Sender: TObject);
var
InStream, OutStream: TFileStream;
OutFileName, InFileName1, InFileName2: string;
begin
OutFileName := 'salida.out';
InFileName1 := 'image.jpg';
InFileName2 := 'test.exe';
浏览 8提问于2016-09-22得票数 2
回答已采纳
1回答
在Delphi10.4.2中，当我使用TWriter.WriteString时，会节省两个额外的字节： var
FileStream: TFileStream;
Writer: TWriter;
begin
FileStream := TFileStream.Create('stream.txt', fmCreate or fmOpenWrite or fmShareDenyNone);
Writer := TWriter.Create(FileStream, $FF);
try
Writer.WriteString('2&
浏览 13提问于2021-05-07得票数 1
回答已采纳
1回答
Filestream Bytes写得不正确
delphi、filestream、unicode-string、delphi-10.1-berlin
为什么我在RADStudio10.1中使用下面的代码得到错误的输出？
var
sPalette : string;
mystream: TfileStream;
begin
mystream := TfileStream.Create('C:\Data\test.bmp', fmCreate);
sPalette := #1#2#3#4#5#6;
mystream.WriteBuffer(Pointer(sPalette)^, Length(sPalette));
mystream.Free;
end;
Got输出：01 00 02 00 03 00
预
浏览 7提问于2022-06-02得票数 1
回答已采纳
4回答
如何让这个文件编写代码与Unicode一起工作(Delphi)
delphi、logging、unicode、file-io
在迁移到Unicode和Delphi 2009之前，我已经编写了一些代码，这些代码一次一行地在日志文件中添加一些文本：
procedure AppendToLogFile(S: string);
// this function adds our log line to our shared log file
// Doing it this way allows Wordpad to open it at the same time.
var F, C1 : dword;
begin
if LogFileName <> '' then begin
F
浏览 6提问于2010-01-26得票数 4
回答已采纳
4回答
是否可以使用字符串数据类型结构写入/读取文件？
delphi、file、delphi-xe2
为了在我使用的文件中写一些东西，例如下面的代码：
procedure MyProc (... );
const
BufSize = 65535;
var
FileSrc, FileDst: TFileStream;
StreamRead: Cardinal;
InBuf, OutBuf: Array [0..bufsize] of byte;
begin
.....
FileSrc := TFileStream.Create (uFileSrc, fmOpenRead Or fmShareDenyWrite);
try
FileDst := TFileStr
浏览 0提问于2011-09-28得票数 0
回答已采纳
1回答
如何在Delphi中读取64 in的视频文件？
delphi、delphi-xe8
我想使用字幕API。它需要视频文件的第一个和最后一个64 It的md5哈希。我知道如何做md5部分，只是想知道我将如何实现得到128 of的数据。
以下是我无法在Delphi中实现的Java问题的解决方案。
到目前为止，我的Delphi代码：
function TSubdbApi.GetHashFromFile(const AFilename: string): string;
var
Md5: TIdHashMessageDigest5;
Filestream: TFileStream;
Buffer: TByteArray;
begin
Md5 := TIdHashMess
浏览 0提问于2015-05-13得票数 4
回答已采纳
1回答
我在XP SP3上使用的是Delphi7和Indy9。
我有一个带有多个<img>标签的超文本标记语言。
我想把<img src="filepath" ...>标签转换成<img src="data:image/jpg;base64,...">标签。
作为练习，我计划在每个图像上这样做：
procedure TForm1.Button2Click(Sender: TObject);
VAR
Str : AnsiString;
Stream1, Stream2 : TFileStream;
Decode
浏览 16提问于2017-01-13得票数 1
2回答
德尔福，用indy10将图像从客户端发送到服务器
delphi、sockets、tcp、indy10
我如何从一个Timage (客户端)发送到另一个Timage(服务器端)？我使用delphi XE3和idtcpclient1，idtcpserver1 (indy10组件)。我已经试着做了些什么，但我遇到了一些麻烦。
服务器端：
FileStream := TFileStream.Create('ciao.jpg', fmCreate);
AContext.Connection.IOHandler.LargeStream := True;
AContext.Connection.IOHandler.ReadStream(FileStream); FileStream.Free
浏览 2提问于2013-05-17得票数 1
回答已采纳
5回答
Delphi -共享冲突打开文本文件
delphi、delphi-7、text-files
我试图在Delphi7应用程序中打开一个文本文件进行读取，但收到I/O错误32 (共享冲突)，因为另一个应用程序已经打开了该文件。我曾尝试将FileMode设置为"fmOpenRead or fmShareDenyNone“，但现在意识到这并不适用于文本文件。
有没有办法读取由另一个应用程序打开的文本文件？
var
f: TextFile;
begin
FileMode := fmOpenRead or fmShareDenyNone; // FileMode IS NOT APPLICABLE TO TEXT FILES!!
AssignFile(f, FileNam
浏览 1提问于2009-04-26得票数 6
1回答
使用Delphi将通过WinHTTP下载的文件保存到磁盘
delphi、download、delphi-xe、winhttp
对的回答显示了在Delphi语言中通过类型库导入使用WinHTTP是多么容易。
我导入了WinHTTP的类型库，然后尝试使用该api编写一个文件下载帮助函数。以下是我得到的结果：
我似乎想不出如何将IWinHttpRequest.ResponseStream (在TLB文件中声明为OleVariant )作为流保存到磁盘上。
// IWinHttpRequest is defined by importing type library of WinHTTP.
// Microsoft WinHTTP Services, version 5.1 (Version 5.1) C:\Windows\
浏览 0提问于2011-07-23得票数 3
回答已采纳
1回答
应客户要求通过IdTCPServer发送文件
delphi-7、tcpclient、indy、tcpserver
如果执行客户端请求，我将尝试通过TCP-服务器发送文本文件。互联网上的例子要么过时了，要么没用。我知道我应该用一条小溪，但我不知道该怎么做。
我修改了我在互联网上找到的一个代码，但是我被困在了这条小溪里。有人能引导我朝正确的方向前进吗？
服务器：
TForm2.bStartClick(Sender: TObject);
begin
if not IdTCPServer1.Active then
begin
IdTCPServer1.Active := True;
Log('Server started on port ' + IntToStr(IdTCP
浏览 3提问于2017-05-17得票数 0
回答已采纳
1回答
自定义组件中的持久性二进制数据
delphi、binary、components、streaming
我正在制作一个自定义组件来保存程序中的二进制数据。哪种数据类型可以保存二进制数据并自动将其流式传输到.DFM文件？
我尝试过TBytes，但它不能流式传输。String和AnsiString流，但它们不适合二进制数据。我尽量避免使用手动的TReader/TWriter方法。
下面是描述这个问题的一小段代码。BinProp (TBytes)不会流入Blob.bin文件，即使已发布BinProp属性也是如此：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variant
浏览 1提问于2020-04-01得票数 3
2回答
在Delphi2010中将字符串写入TFileStream
delphi、unicode、delphi-2010、delphi-2007
我有Delphi 2007代码，如下所示：
procedure WriteString(Stream: TFileStream; var SourceBuffer: PChar; s: string);
begin
StrPCopy(SourceBuffer,s);
Stream.Write(SourceBuffer[0], StrLen(SourceBuffer));
end;
我这样叫它：
var
SourceBuffer : PChar;
MyFile: TFileStream;
....
SourceBuffer := StrAlloc(1024);
MyFile
浏览 5提问于2009-09-16得票数 16
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
