关于tfilestream的WriteBuffer方法的问题!

autocar 2003-10-21 01:04:02

关于tfilestream的WriteBuffer方法的问题!

var
ms:tfilestream;
//定义字节数组
b:array[0..1023] of byte;

begin

ms:= tfilestream.Create('d:\web.htm',fmOpenRead);
//写入字节数组
ms.WriteBuffer(b^,1024);

但编译时出错
出错提示为
说这句 ms.WriteBuffer(b^,1024); 错误

[Error] Unit1.pas(34): Pointer type required

...全文

95 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

DelphiBird 2003-10-21

打赏
举报

回复

ms.writebuffer(b,1024);

procedure CreateResourceFile( DataFile, ResFile: string; // file names ResID: Integer // id of resource ); var FS, RS: TFileStream; FileHeader, ResHeader: TResHeader; Padding: array[0..SizeOf(DWORD)-1] of Byte; begin FS := TFileStream.Create( // to read data file DataFile, fmOpenRead); RS := TFileStream.Create( // to write res file ResFile, fmCreate); { Create res file header - all zeros except for HeaderSize, ResType and ResID } FillChar(FileHeader, SizeOf(FileHeader), #0); FileHeader.HeaderSize := SizeOf(FileHeader); FileHeader.ResId := $0000FFFF; FileHeader.ResType := $0000FFFF; { Create data header for RC_DATA file } FillChar(ResHeader, SizeOf(ResHeader), #0); ResHeader.HeaderSize := SizeOf(ResHeader); // resource id - FFFF says "not a string!" ResHeader.ResId := $0000FFFF or (ResId shl 16); // resource type - RT_RCDATA (from Windows unit) ResHeader.ResType := $0000FFFF or (WORD(RT_RCDATA) shl 16); // data file size is size of file ResHeader.DataSize := FS.Size; // set required memory flags ResHeader.MemoryFlags := $0030; { Write the headers to the resource file } RS.WriteBuffer(FileHeader, sizeof(FileHeader)); RS.WriteBuffer(ResHeader, sizeof(ResHeader)); { Copy the file into the resource } RS.CopyFrom(FS, FS.Size); { Pad data out to DWORD boundary } if FS.Size mod SizeOf(DWORD) <> 0 then RS.WriteBuffer(Padding, SizeOf(DWORD) - FS.Size mod SizeOf(DWORD)); { Close the files } FS.Free; RS.Free; end;

最近需要将一个Delphi 7的古老程序重构升级为Delphi 10.3.3，没想到由于Delphi字符串定义发生了变化，造成写入文件的字符串出现垃圾字符我有Delphi 2007代码看起来像这样： procedure WriteString(Stream: TFileStream; var SourceBuffer: PChar; s: string); begin StrPCopy(SourceBuffer,s); Stream.Write(SourceBuffer[0], StrLen

文件分类文本文件（TextFile） & 二进制文件（Flie）二进制形式存放数据占有存储空间较少，但不直观；文本文件与之相反文件是由相同类型的数据元素组成的序列。在DELPHI中对文件操作提供强大的支持，常用的文件类型有三种：传统的Pascal文件，带句柄的文件和文件流传统的Pascal文件在Delphi中支持Pascal所使用的文件变量格式如F：TEXT或F：FILE。这种文件有带类型文件，文本件和无类型文件三种类型，但在DELPHI6中，有些Pascal中常用的文件操作如Assig

TFileStream类使得应用程序可以从磁盘的文件中读取数据。类关系 TObject->TStream->THandleStream 　　使用TFileStream类可以访问磁盘文件的信息。该类将打开一个全程的文件，并提供方法来读取该文件。如果应用程序中已经定义了该文件的句柄，可以使用THandleStream对象以同样的模式打开该文件。方法列表 ~TFilStream 删除TFileSt

// 写入中文 procedure TForm1.btn1Click(Sender: TObject); var 　 Stream : TFileStream; 　　fn : string; 　　fname : string; 　　Size : Integer; 　　Buffer : TBytes; 　　Encoding : TEncoding; begin 　　fn :=

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章