Stream对象又称流式对象
在内存、外存和数据库字段中的管理操作抽象为对象方法，并且充分利用了面向对象技术的优点，应用程序可以相当容易地在各种Stream对象中拷贝数据。
下面介绍各种对象的数据和方法及使用方法。
TStream对象
TStream对象是能在各种媒介中存储二进制数据的对象的抽象对象。从TStream 对象继承的对象用于在内存、Windows资源文件、磁盘文件和数据库字段等媒介中存储数据。
Stream中定义了两个属性：Size和Position。它们分别以字节为单位表示的流的大小和当前指针位置。TStream中定义的方法用于在各种流中读、写和相互拷贝二进制数据。因为所有的Stream对象都是从TStream中继承来的，所以在TStream中定义的域和方法都能被Stream对象调用和访
问。此外，又由于面向对象技术的动态联编功能，TStream为各种流的应用提供了统一的接口，简化了流的使用；不同Stream对象是抽象了对不同存储媒介的数据上的操作，因此，TStream的需方法为在不同媒介间的数据拷贝提供了最简捷的手段。
TStream的属性和方法
1. Position属性
声明：property Position: Longint;
Position属性指明流中读写的当前偏移量。
2. Size属性
声明：property Size: Longint;
Size属性指明了以字节为单位的流的的大小，它是只读的。
3. CopyFrom方法
声明：function CopyFrom(Source: TStream; Count: Longint): Longint;
CopyFrom从Source所指定的流中拷贝Count个字节到当前流中， 并将指针从当前位置移动Count个字节数，函数返回值是实际拷贝的字节数。
4. Read方法
声明：function Read(var Buffer; Count: Longint): Longint; virtual; abstract;
Read方法从当前流中的当前位置起将Count个字节的内容复制到Buffer中，并把当前指针向后移动Count个字节数，函数返回值是实际读的字节数。如果返回值小于Count，这意味着读操作在读满所需字节数前指针已经到达了流的尾部。
Read方法是抽象方法。每个后继Stream对象都要根据自己特有的有关特定存储媒介的读操作覆盖该方法。而且流的所有其它的读数据的方法（如：ReadBuffer，ReadComponent等）在完成实际的读操作时都调用了Read方法。面向对象的动态联编的优点就体现在这儿。因为后继Stream对
象只需覆盖Read方法，而其它读操作(如ReadBuffer、ReadComponent等)都不需要重新定义，而且TStream还提供了统一的接口。
5. ReadBuffer方法
声明：procedure ReadBuffer(var Buffer; Count: Longint);
ReadBuffer方法从流中将Count个字节复制到Buffer 中， 并将流的当前指针向后移动Count个字节。如读操作超过流的尾部，ReadBuffer方法引起EReadError异常事件。
6. ReadComponent方法
声明：function ReadComponent(Instance: TComponent): TComponent;
ReadComponent方法从当前流中读取由Instance所指定的部件，函数返回所读的部件。ReadComponent在读Instance及其拥有的所有对象时创建了一个Reader对象并调用它的ReadRootComponent方法。
如果Instance为nil，ReadComponent的方法基于流中描述的部件类型信息创建部件，并返回新创建的部件。
7. ReadComponentRes方法
声明：function ReadComponentRes(Instance: TComponent): TComponent;
ReadComponentRes方法从流中读取Instance指定的部件，但是流的当前位置必须是由WriteComponentRes方法所写入的部件的位置。
ReadComponentRes
首先调用ReadResHeader方法从流中读取资源头，然后调用ReadComponent方法读取Instance。如果流的当前位置不包含一个资源头。ReadResHeader将引发一个EInvalidImage异常事件。在Classes库单元中也包含一个名为ReadComponentRes的函数，该函数执行相同的操作，只不过它基于应
用程序包含的资源建立自己的流。
8. ReadResHeader方法
声明：procedure ReadResHeader;
ReadResHeader方法从流的当前位置读取Windows资源文件头，并将流的当前位置指针移到该文件头的尾部。如果流不包含一个有效的资源文件头，ReadResHeader将引发一个EInvalidImage异常事件。
流的ReadComponentRes方法在从资源文件中读取部件之前，会自动调用ReadResHeader方法，因此，通常程序员通常不需要自己调用它。
9. Seek方法
声明：function Seek(Offset: Longint; Origin: Word): Longint; virtual; abstract;
Seek方法将流的当前指针移动Offset个字节，字节移动的起点由Origin指定。如果Offset是负数，Seek方法将从所描述的起点往流的头部移动。下表中列出了Origin的不同取值和它们的含义：
函数Seek的参数的取值
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
常量 值 Seek的起点 Offset的取值
─────────────────────────────────
SoFromBeginning 0 流的开头 正 数
SoFromCurrent 1 流的当前位置 正数或负数
SoFromEnd 2 流的结尾 负 数
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
10. Write方法
在Delphi对象式管理的对象中有两类对象的方法都有称为Write的：Stream对象和Filer对象。Stream对象的Write方法将数据写进流中。Filer对象通过相关的流传递数据，在后文中会介绍这类方法。
Stream对象的Write方法声明如下：
function Write(const Buffer; Count: Longint): Longint; virtual; abstract;
Write方法将Buffer中的Count个字节写入流中，并将当前位置指针向流的尾部移动Count个字节，函数返回写入的字节数。
TStream的Write方法是抽象的，每个继承的Stream对象都要通过覆盖该方法来提供向特定存储媒介(内存、磁盘文件等)写数据的特定方法。流的其它所有写数据的方法(如WriteBuffer、WriteComponent)都调用Write担当实际的写操作。
11. WriteBuffer方法
声明：procedure WriteBuffer(const Buffer; Count: Longint);
WriteBuffer的功能与Write相似。WriteBuffer方法调用Write来执行实际的写操作，如果流没能写所有字节，WriteBuffer会触发一个EWriteError异常事件。
12. WriteComponent方法
在Stream对象和Filer对象都有被称为WriteComponent的方法。Stream对象的WriteComponent方法将Instance所指定的部件和它所包含的所有部件都写入流中；Writer对象的WriteComponent将指定部件的属性值写入Writer对象的流中。
Stream对象的WriteComponent方法声明是这样的：
procedure WriteComponent(Instance: Tcomponent);
WriteComponent创建一个Writer对象，并调用Writer的WriteRootComponent方法将Instance及其拥有的对象写入流。
13. WriteComponentRes方法
声明：WriteComponentRes(const ResName: String; Instance: TComponent);
WriteComponentRes方法首先往流中写入标准Windows 资源文件头，然后将Instance指定的部件写入流中。要读由WriteComponentRes写入的部件，必须调用ReadComponentRes方法。
WriteComponentRes使用ResName传入的字符串作为资源文件头的资源名，然后调用WriteComponent方法将Instance和它拥有的部件写入流。
14. WriteDescendant方法
声明：procedure WriteDescendant(Instance Ancestor: TComponent);
Stream对象的WriteDescendant方法创建一个Writer对象，然后调入该对象的WriteDescendant方法将Instance部件写入流中。Instance可以是从Ancestor部件继承的窗体，也可以是在从祖先窗体中继承的窗体中相应于祖先窗体中Ancestor部件的部件。
15. WriteDescendantRes方法
声明：procedure WriteDescendantRes(const ResName: String;
Instance, Ancestor: TComponent);
WriteDescendantRes方法将Windows资源文件头写入流，并使用ResName作用资源名，然后调用WriteDescendant方法，将Instance写入流。
TStream的实现原理
TStream对象是Stream对象的基础类，这是Stream对象的基础。为了能在不同媒介上的存储数据对象，后继的Stream对象主要是在Read和Write方法上做了改进，。因此，了解TStream是掌握Stream对象管理的核心。Borland公司虽然提供了Stream对象的接口说明文档，但对于其实现和应
用方法却没有提及，笔者是从Borland Delphi 2.0 Client/Server Suite 提供的源代码和部分例子程序中掌握了流式对象技术。
下面就从TStream的属性和方法的实现开始。
1. TStream属性的实现
前面介绍过，TStream具有Position和Size两个属性，作为抽象数据类型，它抽象了在各种存储媒介中读写数据所需要经常访问的域。那么它们是怎样实现的呢？
在自定义部件编写这一章中介绍过部件属性定义中的读写控制。Position和Size也作了读写控制。定义如下：
property Position: Longint read GetPosition write SetPosition;
property Size: Longint read GetSize;
由上可知，Position是可读写属性，而Size是只读的。
Position属性的实现就体现在GetPosition和SetPosition。当在程序运行过程中，任何读取Position的值和给Position赋值的操作都会自动触发私有方法GetPosition和SetPosition。两个方法的声明如下：
function TStream.GetPosition: Longint;
begin
Result := Seek(0, 1);
end;
procedure TStream.SetPosition(Pos: Longint);
begin
Seek(Pos, 0);
end;
在设置位置时，Delphi编译机制会自动将Position传为Pos。
前面介绍过Seek的使用方法，第一参数是移动偏移量，第二个参数是移动的起点，返回值是移动后的指针位置。
Size属性的实现只有读控制，完全屏蔽了写操作。读控制方法GetSize实现如下：
function TStream.GetSize: Longint;
var
Pos: Longint;
begin
Pos := Seek(0, 1);
Result := Seek(0, 2);
Seek(Pos, 0);
end;
2. TStream方法的实现
⑴ CopyFrom方法
CopyFrom是Stream对象中很有用的方法，它用于在不同存储媒介中拷贝数据。例如，内存与外部文件之间、内存与数据库字段之间等。它简化了许多内存分配、文件打开和读写等的细节，将所有拷贝操作都统一到Stream对象上。
前面曾介绍：CopyFrom方法带Source和Count两个参数并返回长整型。该方法将Count个字节的内容从Source拷贝到当前流中，如果Count值为0则拷贝所有数据。
function TStream.CopyFrom(Source: TStream; Count: Longint): Longint;
const
MaxBufSize = $F000;
var
BufSize, N: Integer;
Buffer: PChar;
begin
if Count = 0 then
begin
Source.Position := 0;
Count := Source.Size;
end;
Result := Count;
if Count > MaxBufSize then BufSize := MaxBufSize else BufSize := Count;
GetMem(Buffer, BufSize);
try
while Count <> 0 do
begin
if Count > BufSize then
N := BufSize
else
N := Count;
Source.ReadBuffer(Buffer^, N);
WriteBuffer(Buffer^, N);
Dec(Count, N);
end;
finally
FreeMem(Buffer, BufSize);
end;
end;
⑵ ReadBuffer方法和WriteBuffer方法
ReadBuffer方法和WriteBuffer方法简单地调用虚拟函数Read、Write来读写流中数据，它比Read和Write增加了读写数据出错时的异常处理。
procedure TStream.ReadBuffer(var Buffer; Count: Longint);
begin
if (Count <> 0) and (Read(Buffer, Count) <> Count) then
raise EReadError.CreateRes(SReadError);
end;
procedure TStream.WriteBuffer(const Buffer; Count: Longint);
begin
if (Count <> 0) and (Write(Buffer, Count) <> Count) then
raise EWriteError.CreateRes(SWriteError);
end;
⑶ ReadComponent、ReadResHeader和ReadComponentRes方法
ReadComponent方法从当前流中读取部件。在实现上ReadComponent方法创建了一个TStream对象，并用TReader的ReadRootComponent方法读部件。在Delphi对象式管理中，Stream对象和Filer对象结合很紧密。Stream对象的许多方法的实现需要Filer对象的支持，而Filer对象的构造函数
直接就以Stream对象为参数。在ReadComponent方法的实现中就可清楚地看到这一点：
function TStream.ReadComponent(Instance: TComponent): TComponent;
var
Reader: TReader;
begin
Reader := TReader.Create(Self, 4096);
try
Result := Reader.ReadRootComponent(Instance);
finally
Reader.Free;
end;
end;
ReadResHeader方法用于读取Windows资源文件的文件头，由ReadComponentRes方法在读取Windows资源文件中的部件时调用，通常程序员不需自己调用。如果读取的不是资源文件ReadResH := FSize + Offset;
end;
Result := FPosition;
end;
Offse代表移动的偏移量。Origin代表移动的起点，值为0表示从文件头开始，值为1表示从当前位置开始，值为2表示从文件尾往前，这时OffSet一般为负数。Seek的实现没有越界的判断。
3. SaveToStream和SaveToFile方法
SaveToStream方法是将MemoryStream对象中的内容写入Stream所指定的流。其实现如下：
procedure TCustomMemoryStream.SaveToStream(Stream: TStream);
begin
if FSize <> 0 then Stream.WriteBuffer(FMemory^, FSize);
end;
SaveToStream方法调用了Stream的WriteBuffer方法，直接将FMemory中的内容按FSize字节长度写入流中。
SaveToFile方法是与SaveToStream方法相关的。SaveToFile方法首先创建了一个FileStream对象，然后把该文件Stream对象作为SaveToStream的参数，由SaveToStream 方法执行写操作，其实现如下：
procedure TCustomMemoryStream.SaveToFile(const FileName: string);
var
Stream: TStream;
begin
Stream := TFileStream.Create(FileName, fmCreate);
try
SaveToStream(Stream);
finally
Stream.Free;
end;
end;
在Delphi 的许多对象的SaveToStream 和SaveToFile、LoadFromStream和LoadFromFile方法的实现都有类似的嵌套结构。
TMemoryStream对象
TMemoryStream对象是一个管理动态内存中的数据的Stream对象，它是从TCustomMemoryStream中继承下来的，除了从TCustomMemoryStream中继承的属性和方法外，它还增加和覆盖了一些用于从磁盘文件和其它注台读数据的方法。它还提供了写入、消除内存内容的动态内存管理方法。下面
介绍它的这些属性和方法。
TMemoryStream的属性和方法
1. Capacity属性
声明：property Copacity: Longint;
Capacity属性决定了分配给内存流的内存池的大小。这与Size属性有些不同。Size属性是描述流中数据的大小。在程序中可以将Capacity 的值设置的比数据所需最大内存大一些，这样可以避免频繁地重新分配。
2. Realloc方法
声明：function Realloc(var NewCapacity: Longint): Pointer; virtual;
Realloc方法，以8K为单位分配动态内存，内存的大小由NewCapacity指定，函数返回指向所分配内存的指针。
3. SetSize方法
SetSize方法消除内存流中包含的数据，并将内存流中内存池的大小设为Size字节。如果Size为零，是SetSize方法将释放已有的内存池，并将Memory属性置为nil；否则，SetSize方法将内存池大小调整为Size。
4. Clear方法
声明：procedure Clear;
Clear方法释放内存中的内存池，并将Memory属性置为nil。在调用Clear方法后，Size和Position属性都为0。
5. LoadFromStream方法
声明：procedure LoadFromStream(Stream: TStream);
LoadFromStream方法将Stream指定的流中的全部内容复制到MemoryStream中，复制过程将取代已有内容，使MemoryStream成为Stream的一份拷贝。
6. LoadFromFile方法
声明：procedure LoadFromFile(count FileName: String);
LoadFromFile方法将FileName指定文件的所有内容复制到MemoryStream中，并取代已有内容。调用LoadFromFile方法后，MemoryStream将成为文件内容在内存中的完整拷贝。
TMemoryStream对象的实现原理
TMemoryStream从TCustomMemoryStream对象直接继承，因此可以享用TCustomMemoryStream的属性和方法。前面讲过，TCustomMemoryStream是用于内存中数据操作的抽象对象，它为MemoryStream对象的实现提供了框架，框架中的内容还要由具体MemoryStream对象去填充。TMemoryStrea
m对象就是按动态内存管理的需要填充框架中的具体内容。下面介绍TMemoryStream对象的实? FBuffer := AllocMem(FDataSet.RecordSize);
FRecord := FBuffer;
if not FDataSet.GetCurrentRecord(FBuffer) then Exit;
OpenMode := dbiReadOnly;
end else
begin
if not (FDataSet.State in [dsEdit, dsInsert]) then DBError(SNotEditing);
OpenMode := dbiReadWrite;
end;
Check(DbiOpenBlob(FDataSet.Handle, FRecord, FFieldNo, OpenMode));
end;
FOpened := True;
if Mode = bmWrite then Truncate;
end;
该方法首先是用传入的Field参数给FField，FDataSet，FRecord和FFieldNo赋值。方法中用AllocMem按当前记录大小分配内存，并将指针赋给FBuffer，用DataSet部件的GetCurrentRecord方法，将记录的值赋给FBuffer，但不包括BLOB数据。
方法中用到的DbiOpenBlob函数是BDE的API函数，该函数用于打开数据库中的BLOB字段。
最后如果方法传入的Mode参数值为bmWrite，就调用Truncate将当前位置指针以后的
数据删除。
分析这段源程序不难知道：
● 读写BLOB字段，不允许BLOB字段所在DataSet部件有Filter，否则产生异常事件
● 要读写BLOB字段，必须将DataSet设为编辑或插入状态
● 如果BLOB字段中的数据作了修改，则在创建BLOB 流时，不再重新调用DBiOpenBlob函数，而只是简单地将FOpened置为True，这样可以用多个BLOB 流对同一个BLOB字段读写
Destroy方法释放BLOB字段和为FBuffer分配的缓冲区，其实现如下：
destructor TBlobStream.Destroy;
begin
if FOpened then
begin
if FModified then FField.FModified := True;
if not FField.FModified then
DbiFreeBlob(FDataSet.Handle, FRecord, FFieldNo);
end;
if FBuffer <> nil then FreeMem(FBuffer, FDataSet.RecordSize);
if FModified then
try
FField.DataChanged;
except
Application.HandleException(Self);
end;
end;
如果BLOB流中的数据作了修改，就将FField的FModified置为True；如果FField的Modified为False就释放BLOB字段，如果FBuffer不为空，则释放临时内存。最后根据FModified的值来决定是否启动FField的事件处理过程DataChanged。
不难看出，如果BLOB字段作了修改就不释放BLOB字段，并且对BLOB 字段的修改只有到Destroy时才提交，这是因为读写BLOB字段时都避开了FField，而直接调用BDE API函数。这一点是在应用BDE API编程中很重要，即一定要修改相应数据库部件的状态。
2. Read和Write方法的实现
Read和Write方法都调用BDE API函数完成数据库BLOB字段的读写，其实现如下：
function TBlobStream.Read(var Buffer; Count: Longint): Longint;
var
Status: DBIResult;
begin
Result := 0;
if FOpened then
begin
Status := DbiGetBlob(FDataSet.Handle, FRecord, FFieldNo, FPosition,
Count, @Buffer, Result);
case Status of
DBIERR_NONE, DBIERR_ENDOFBLOB:
begin
if FField.FTransliterate then
NativeToAnsiBuf(FDataSet.Locale, @Buffer, @Buffer, Result);
Inc(FPosition, Result);
end;
DBIERR_INVALIDBLOBOFFSET:
{Nothing};
else
DbiError(Status);
end;
end;
end;
Read方法使用了BDE
API的DbiGetBlob函数从FDataSet中读取数据，在本函数中，各参数的含义是这样的：FDataSet.Handle代表DataSet的BDE句柄，FReacord表示BLOB字段所在记录，FFieldNo表示BLOB字段号，FPosition表示要读的的数据的起始位置，Count表示要读的字节数，Buffer是读出数据所占的内存，
Result是实际读出的字节数。该BDE函数返回函数调用的错误状态信息。
Read方法还调用了NativeToAnsiBuf进行字符集的转换。
function TBlobStream.Write(const Buffer; Count: Longint): Longint;
var
Temp: Pointer;
begin
Result := 0;
if FOpened then
begin
if FField.FTransliterate then
begin
GetMem(Temp, Count);
try
AnsiToNativeBuf(FDataSet.Locale, @Buffer, Temp, Count);
Check(DbiPutBlob(FDataSet.Handle, FRecord, FFieldNo, FPosition,
Count, Temp));
finally
FreeMem(Temp, Count);
end;
end else
Check(DbiPutBlob(FDataSet.Handle, FRecord, FFieldNo, FPosition,
Count, @Buffer));
Inc(FPosition, Count);
Result := Count;
FModified := True;
end;
end;
Write方法调用了BDE API的DbiPutBlob函数实现往数据库BLOB字段存储数据。
该函数的各参数含义如下：
调用函数DbiPutBlob的各传入参数的含义
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
参数名 含义
──────────────────────────────
FDataSetHandle 写入的数据库的BDE句柄
FRecord 写入数据的BLOB字段所在的记录
FFieldNo BLOB字段号
FPosition 写入的起始位置
Count 写入的数据的字节数
Buffer 所写入的数据占有的内存地址
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
标志，该标志意味着后面存储有一连串的项目。Reader对象，在读这一连串项目时先调用ReadListBegin方法读取该标志位，然后用EndOfList判断是否列表结束，并用循环语句读取项目。在调用WriteListBegin方法的后面必须调用WriteListEnd方法写列表结束标志，相应的在Reader对象中
有ReadListEnd方法读取该结束标志。
5. WriteListEnd方法
声明：procedure WriteListEnd;
WriteListEnd方法在流中，写入项目列表结束标志，它是与WriteListBegin相匹配的方法。
6. WriteBoolean方法
声明：procedure WriteBoolean(Value: Boolean);
WriteBoolean方法将Value传入的布尔值写入流中。
7. WriteChar方法
声明：procedure WriteChar(Value: char);
WriteChar方法将Value中的字符写入流中。
8. WriteFloat方法
声明：procedure WriteFloat(Value: Extended);
WriteFloat方法将Value传入的浮点数写入流中。
9. WriteInteger方法
声明：procedure WriteInteger(Value: Longint);
WriteInteger方法将Value中的整数写入流中。
10. WriteString方法
声明：procedure WriteString(const Value: string);
WriteString方法将Value中的字符串写入流中。
11. WriteIdent方法
声明：procedure WriteIdent(const Ident: string);
WriteIdent方法将Ident传入的标识符写入流中。
12. WriteSignature方法
声明：procedure WriteSignature;
WriteSignature方法将Delphi Filer对象标签写入流中。WriteRootComponent方法在将部件写入流之前先调用WriteSignature方法写入Filer标签。Reader对象在读部件之前调用ReadSignature方法读取该标签以指导读操作。
13. WritComponent方法
声明：procedure WriteComponent(Component: TComponent);
WriteComponent方法调用参数Component的WriteState方法将部件写入流中。在调用WriteState之前，WriteComponent还将Component的ComponetnState属性置为csWriting。当WriteState返回时再清除csWriting.
14. WriteRootComponent方法
声明：procedure WriteRootComponent(Root: TComponent);
WriteRootComponent方法将Writer对象Root属性设为参数Root带的值，然后调用WriteSignature方法往流中写入Filer对象标签，最后调用WriteComponent方法在流中存储Root部件。
posted @ 2011-09-22 09:27 delphi初学者 阅读(76) 评论(0) 编辑
Fillchar
[例1]：Fillchar通常用来给数据赋初值。
var a:array [1..10] of arrtype;
执行fillchar(a,sizeof(a),0);
当arrtype为
1.real(其他实数类型差不多) 使得a中的元素全部成为0.0
2.integer(byte,word,longint,shortint都相同) 全部为0
3.boolean 全部为false
4.char 全部为#0
这里使用了函数sizeof(a)，其功能是返回变量a所占的总字节数，如上例返回：
当arrtype为
1.real sizeof(a)的值为60（每个元素占6个字节，10个元素共占60个字节）
single sizeof(a)的值为40（每个元素占4个字节，10个元素共占40个字节）
double sizeof(a)的值为80（每个元素占8个字节，10个元素共占80个字节）
extended sizeof(a)的值为100（每个元素占10个字节，10个元素共占100个字节）
comp sizeof(a)的值为80（每个元素占8个字节，10个元素共占80个字节）
2.integer(word) sizeof(a)的值为20 （每个元素占2个字节，10个元素共占20个字节）
3.byte (shortint) sizeof(a)的值为10 （每个元素占1个字节，10个元素共占10个字节）
4.longint sizeof(a)的值为40 （每个元素占4个字节，10个元素共占40个字节）
5.boolean sizeof(a)的值为10（每个元素占1个字节，10个元素共占10个字节）
6.char sizeof(a)的值为10 （每个元素占1个字节，10个元素共占10个字节）
所以例1的结果就是将数组a的所有元素（全部字节）用0来填充，要注意对不同类型的数据而言，对“0”的“解释”是截然不同的！对整型或实型量来 讲，所有字节均为0，则该量也为0；对boolean型量（一个字节）来讲，0表示false（非0数表示true），则该量为false；对char型 量（一个字节）来讲，0表示ASCII码值为0的字符，则该量为#0。
[例2]：将上例中的fillchar(a,sizeof(a),0)改为 fillchar(a,sizeof(a),1)，结果如何呢？
执行fillchar(a,size(a),1);
当arrtype为
1.boolean 全部为true(1是非0值，表示true)
2.char 全部为#1
3.byte，shortint 每个元素是1字节量，全部为1
4.integer,word 每个元素是2字节量，全部为(257)10。这是因为
在一个integer或word 型变量中，它的高、低两个字节均用1来填充（将10进制数1转化为二进制数00000001），结果为：
高字节 低字节
15 14 13 12 11 10 9 8 | 7 6 5 4 3 2 1 0
0 0 0 0 0 0 0 1 | 0 0 0 0 0 0 0 1
显然，得到的量就是(257)10=(0000000100000001)2。
如果，执行的是fillchar(a,size(a),171),结果又是怎样的？
因为(171)10=(10101011)2,所以，填充后为：
高字节 低字节
15 14 13 12 11 10 9 8 | 7 6 5 4 3 2 1 0
1 0 1 0 1 0 1 1 | 1 0 1 0 1 0 1 1
对于integer类型的量，其值为(-21589)10,这是因为integer类型的数据是用补码表示的有符号数，最高位是符号位，0表示 正，1表示负，由于本数是负数,补码为1010101110101011，则反码为1010101110101010，原码为 1101010001010101，其值为-(214+212+210+26+24+22+1)10=-(21589)10；对于word类型的量，其值 为(43947)10,这是因为word类型的数据是用原码表示的无符号数（非负数），原码为1010101110101011，其值为(215+213 +211+29+28+27+25+23+21+1)10=(43947)10；
5.longint 每个元素是4字节量，执行fillchar(a,size(a),1)后,全部为(16843009)10。这是因为,对于每个元素来讲,用1填充后变为:
最高字节 次高字节
31 30 29 28 27 26 25 24 | 23 22 21 20 19 18 17 16
0 0 0 0 0 0 0 1 | 0 0 0 0 0 0 0 1
次低字节 最低字节
15 14 13 12 11 10 9 8 | 7 6 5 4 3 2 1 0
0 0 0 0 0 0 0 1 | 0 0 0 0 0 0 0 1
longint类型的数据是用补码表示的有符号数，最高位是符号位，0表示正，1表示负，由于本数是正数,故补码、反码及原码均为 00000001000000010000000100000001，其值为(224+216+28+1)10=( 16843009)10；
如果，执行的是fillchar(a,size(a),255),结果又是怎样的？
由于(255)10=(11111111)2,故填充后,补码为11111111111111111111111111111111,它是负数, 则其反码为11111111111111111111111111111110,原码为 10000000000000000000000000000001,其值为-1
6.single 每个元素是4字节量，全部为2.36942782761724E-0038,这是因为,对于每个元素来讲,用1填充后的结果与longint类型的二进制码完全相同,但是, single类型对此数据的“解释”却完全不同：
A.最高位(第31位)是整个数的符号位,0为正, 1为负;
B.接着的8位(第30位至第23位)是用移码表示的阶码;
C.后面的23位(第22至第0位)表示尾数;
D.单精度量的值为：±2实际指数*实际尾数
①、若阶码=00000000，则实际指数=-126，实际尾数=(0.???????????????????????)2,其中的?代表相应位置上的二进制码(0或1);显然,在？全为0时, 这个单精度量的值为0;
②、若阶码大于00000000且小于11111111，则实际指数=阶码-(127)10=阶码-01111111，实际尾数=(1.???????????????????????)2
③、INF（无穷大）若阶码=11111111，尾数全0，则已达上界，被作为无穷大
④、浮点运算错误：若阶码=11111111，尾数在（00000000000000000000000， 10000000000000000000000）之间。
⑤、NAN（非数:Not A Number）若阶码=11111111，尾数在[10000000000000000000000， 11111111111111111111111]之间
下面,我们来分析二进制码为00000001000000010000000100000001的单精度数(single类型)的值是多少。①最 高位为0，表示正数；②阶码为00000010，换成10进制数为2，则实际指数=2-127=-125，③尾数为 00000010000000100000001，实际尾数=1. 00000010000000100000001, 换成10进制数为1+2-7+2-15+2-23=1.00784313678741455078125, ④此单精度数的值是+2-125*1.00784313678741455078125≈2.36942782761724e-38
7.其他实数类型就不一一列举了。
8.对于集合类型 若arrtype=set of '#'..'z'; 执行fillchar(a,sizeof(a),0)后的结果：a全为空集；sizeof(a)返回120。为什么sizeof(a)的值为120？原 来，对集合类型来讲，由于元素范围事先必须给定（如'#'..'z'），每个元素是否存在于某集合中，只需用0或1记下即可，用0表示该元素不属于某集 合，用1表示该元素属于某集合，即只用1个二进制位就可表示1个元素是否属于某集合，那么只要我们按元素的序号顺序记下一串二进制代码，就可以标记所有范 围内的元素是否属于某集合了。但这里有一个问题：数据的存储通常是以字节为单位进行的，不是直接访问每一个二进制位，因此，必须将用户给定的元素的范围进 行调整，调整原则是：两端适当外扩,使第一个元素的序号以及元素的个数正好成为8的倍数，这样就可以字节为单位存储集合了。即：若arrtype=set of char1..char2（事先要定义char1,char2常量），则范围扩大为newchar1..newchar2,其中newchar1=chr (ord(char1)-ord(char1) mod 8), newchar2=chr(ord(char2)+7-ord(char2) mod 8)。对于arrtype=set of '#'..'z'，用户给定的范围是：#35..#122,则扩大后的实际范围是#32..#127，元素个数为96，需要用96bit=12byte表 示，故数组a中每个元素（数组中的元素）占12字节，共10个元素要占120字节。
问题：对于arrtype=set of '#'..'z'; 执行fillchar(a,sizeof(a),135)后的结果是什么呢？(135)10= (10000111)2, 数组a中每个元素如a[1]占12字节，即： 100001111000011110000111100001111000011110000111100001111000011110000111100001111000011110000111， 共96个二进制位，最低位为1，表示扩展后范围内的第1个集合元素（#32即空格）属于集合a[1]，第2位为1，表示第2个元素（#33即“！”）属于 集合a[1]，第3位为1，表示第3个元素（#34即“"”）属于集合a[1]，第4位为0，表示第4个元素（#35即“#”）不属于集合a[1]，依此 类推。其他的数组元素a[2],a[3],...,a[10]都与a[1]相同。
[例3]部分字节填充问题。前面讲的都是全部字节被填充（因为用了sizeof()函数） 对例1，若执行fillchar(a,1,55)，即将变量a的第一个字节（下标最小的元素的最低字节）填充为(55)10，其原理雷同。
[小结] Fillchar(var X; Count: Word; value)过程的功能是，把指定变量X在内存段中所占的低Count个字节中的每个字节用一个字节的数据value来填充，由于各种数据类型对相同的二 进制码具有不同的解释，故最后得到的结果也大相径庭。本文探讨了各种类型数据的内部存储机制，有助于加深对数据类型的理解。
posted @ 2011-09-13 15:26 delphi初学者 阅读(33) 评论(0) 编辑
WinAPI: GetDiskFreeSpaceEx - 获取磁盘容量信息
WinAPI: GetDiskFreeSpaceEx - 获取磁盘容量信息
//声明:
GetDiskFreeSpaceEx(
lpDirectoryName: PChar; {磁盘根路径}
var lpFreeBytesAvailableToCaller: TLargeInteger; {可用空间}
var lpTotalNumberOfBytes: TLargeInteger; {总空间}
TotalFree: PLargeInteger {剩余空间}
): BOOL;
---------------------------------------------------------------------------
-----
//举例:
procedure TForm1.FormCreate(Sender: TObject);
var
d1,d2,d3: Int64;
begin
GetDiskFreeSpaceEx('C:',d1,d2,@d3);
Memo1.Clear;
with Memo1.Lines do
begin
Add(Format('可用空间: %f GB',[d1/1024/1024/1024]));
Add(Format('总空间: %f GB',[d2/1024/1024/1024]));
Add(Format('剩余空间: %f GB',[d3/1024/1024/1024]));
end;
end;
本文转自：http://www.cnblogs.com/del/archive/2008/02/11/1066914.html
posted @ 2011-09-13 09:31 delphi初学者 阅读(107) 评论(0) 编辑
GetVolumeInformation
GetVolumeInformation函数来获取硬盘的序列号
函数声明：
BOOL GetVolumeInformation(
LPCTSTR lpRootPathName, // 与获取信息卷的根路径
LPTSTR lpVolumeNameBuffer, // 用于装在卷名的一个字符串
DWORD nVolumeNameSize, // 字符串的长度
LPDWORD lpVolumeSerialNumber, // 用于装载磁盘卷序列号的变量
LPDWORD lpMaximumComponentLength, // 指定一个变量，用于装载文件名每一部分的长度
LPDWORD lpFileSystemFlags, // 用于装载一个或多个二进制位标志的长度
LPTSTR lpFileSystemNameBuffer, // 指定一个缓冲区
DWORD nFileSystemNameSize // lpFileSystemNameBuffer,的长度
);
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button4: TButton;
OpenDialog1: TOpenDialog;
ComboBox1: TComboBox;
Edit5: TEdit;
Label2: TLabel;
Button5: TButton;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
function gefiletime(sFilename:string;timetype:integer):tdatetime;
var
ffd:twin32finddata;
dft:dword;
lft,time:tfiletime;
h:thandle;
begin
h:=windows.FindFirstFile(pchar(sfilename),ffd);
case timetype of
0:time:=ffd.ftCreationTime;
1:time:=ffd.ftLastWriteTime;
2:time:=ffd.ftLastAccessTime;
end;
if(h<>invalid_handle_value) then
begin
windows.FindClose(h);
filetimetolocalfiletime(time,lft);
filetimetodosdatetime(lft,longrec(dft).hi,longrec(dft).lo);
result:=filedatetodatetime(dft);
end
else
result:=0;
end;
function getdiskvoiserialld(drivename:string):dword;
var
dwtemp1,dwtemp2:dword;
nresult:pdword;
begin
new(nresult);
getvolumeinformation(pchar(drivename+'\'),nil,0,nresult,dwtemp1,dwtemp2,nil,0);
result:=nresult^;
dispose(nresult);
end;
{$R *.dfm}
procedure TForm1.Button4Click(Sender: TObject);
begin
if opendialog1.Execute then
edit1.Text:=opendialog1.FileName;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=datetostr(gefiletime(edit1.text,0));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.Text:=datetostr(gefiletime(edit1.text,1));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit4.Text:=datetostr(gefiletime(edit1.text,2));
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
edit5.Text:=inttostr(getdiskvoiserialld(combobox1.Items[combobox1.ItemIndex]));
end;
procedure TForm1.Button5Click(Sender: TObject);
var
nu : DWORD;
Vf : DWORD;
Num : DWORD; //用来存储得到的硬盘序列号
vl : array[0..MAX_PATH] of Char; //字符串的长度
begin
GetVolumeInformation(PChar(Trim(Edit1.Text)),nil,SizeOf(vl),@Num,nu,Vf,nil,0);
Edit2.Text := IntToStr(Num);
end;
end.
posted @ 2011-09-13 09:15 delphi初学者 阅读(242) 评论(0) 编辑
FindFirstFile
VC声明
HANDLE FindFirstFile(
LPCTSTR lpFileName, // file name
LPWIN32_FIND_DATA lpFindFileData // data buffer
);
lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路
径名
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结
构可用于后续的搜索
调用失败 返回为INVALID_HANDLE_VALUE(即-1)
typedef struct _WIN32_FIND_DATA { // wfd
DWORD dwFileAttributes;
FILETIME ftCreationTime;
FILETIME ftLastAccessTime;
FILETIME ftLastWriteTime;
DWORD nFileSizeHigh;
DWORD nFileSizeLow;
DWORD dwReserved0;
DWORD dwReserved1;
TCHAR cFileName[ MAX_PATH ];
TCHAR cAlternateFileName[ 14 ];
} WIN32_FIND_DATA;
WIN32_FIND_DATA是文件查找结构体（我这样给它命名），主要作用是进行文件查找。
你可以用函数FindFirst()和FindNext()来遍历一个目录
posted @ 2011-09-12 11:06 delphi初学者 阅读(277) 评论(0) 编辑
设置文件日期信息
unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TMainForm = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Label2: TLabel;
Edit2: TEdit;
Button2: TButton;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
function GetFilesTime(sFilename: String; Timetype: Integer): TDateTime;
var
ffd: TWin32FindData;
dft: DWord;
lft, Time: TFileTime;
sHandle: THandle;
begin
sHandle:= Windows.FindFirstFile(PChar(sFileName), ffd);
if (sHandle <>INVALID_HANDLE_VALUE) then
begin
case Timetype of
0: Time:= ffd.ftCreationTime;
1: Time:= ffd.ftLastWriteTime;
2: Time:= ffd.ftLastAccessTime;
end;
Windows.FindClose(sHandle);
FileTimeToLocalFileTime(Time, lft);
FileTimeToDosDateTime(lft, LongRec(dft).HI, LongRec(dft).Lo);
Result:= FileDateToDateTime(dft);
end else Result:= 0;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text:= OpenDialog1.FileName;
end;
procedure TMainForm.Button2Click(Sender: TObject);
begin
if Edit1.Text<> '' then
begin
Edit2.Text:= DateToStr(GetFilesTime(Edit1.Text, 0));
Edit3.Text:= DateToStr(GetFilesTime(Edit1.Text, 1));
Edit4.Text:= DateToStr(GetFilesTime(Edit1.Text, 2));
end
else ShowMessage('请指定文件！');
end;
end.
posted @ 2011-09-12 11:05 delphi初学者 阅读(37) 评论(0) 编辑
文件函数
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Edit2: TEdit;
Button3: TButton;
Edit3: TEdit;
Button4: TButton;
Edit4: TEdit;
Button5: TButton;
Edit5: TEdit;
Button6: TButton;
Edit6: TEdit;
Button7: TButton;
Edit7: TEdit;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
edit1.Text:=opendialog1.FileName;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//将当前路径名与指定文件名合成一个绝对的文件名
edit2.Text:=expandfilename(edit1.text)
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
//获取一个以UNC格式的包括风络驱动器名的绝对文件名
edit3.Text:=expandUNCfileName(edit1.text);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
//从绝对文件名中获取目录名
edit4.Text:=ExtractFileDir(edit1.text);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
//从绝对文件名中获取驱动器名
edit5.Text:=extractfiledrive(edit1.text);
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
//从绝对文件名中获取扩展名
edit6.Text:=extractfileext(edit1.text);
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
//从绝对文件名中获取文件名
edit7.Text:=extractfilename(edit1.text);
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
//从绝对文件名中获取路径名
edit8.Text:=extractfilepath(edit1.text);
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
//从绝对文件名中获取相对于某一路径的相对路径名
edit9.Text:=extractRelativepath(edit1.text,edit4.text);
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
// 将长文件名转化为短文件名
edit10.Text:=extractshortpathname(edit1.text);
end;
end.
posted @ 2011-09-12 09:18 delphi初学者 阅读(40) 评论(0) 编辑
读取文件属性 FileGetAttr
procedure TForm1.N17Click(Sender: TObject); //读取文件属性 FileGetAttr; var FileName: string; Attr: Integer; //属性值是一个整数 begin FileName := 'F:\test\Test.txt'; Attr := FileGetAttr(FileName); ShowMessage(IntToStr(Attr)); //属性可选值(有些用不着): //FILE_ATTRIBUTE_READONLY = 1; 只读 //FILE_ATTRIBUTE_HIDDEN = 2; 隐藏 //FILE_ATTRIBUTE_SYSTEM = 4; 系统 //FILE_ATTRIBUTE_DIRECTORY = 16; 文件夹 //FILE_ATTRIBUTE_ARCHIVE = 32; 存档 //FILE_ATTRIBUTE_DEVICE = 64 //FILE_ATTRIBUTE_NORMAL = 128; 一般 //FILE_ATTRIBUTE_TEMPORARY = 256 //FILE_ATTRIBUTE_SPARSE_FILE = 512 //FILE_ATTRIBUTE_REPARSE_POINT = 1204 //FILE_ATTRIBUTE_COMPRESSED = 2048; 压缩 //FILE_ATTRIBUTE_OFFLINE = 4096 //FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = 8192; 不被索引 //FILE_ATTRIBUTE_ENCRYPTED = 16384 end;
下面进行函数分析：
function FileGetAttr(const FileName: string): Integer; begin Result := GetFileAttributes(PChar(FileName)); end; //可以看出此函数是由API函数GetFileAttributes封装而来，参数是要操作文件的文件名 //返回值是整型的属性值，如'32'表示为存档文件
posted @ 2011-09-12 05:49 delphi初学者 阅读(128) 评论(0) 编辑
WinAPI: SetCurrentDirectory、GetCurrentDirectory - 设置与获取当前目录
//声明: SetCurrentDirectory( lpPathName: PAnsiChar {路径名} ): BOOL; GetCurrentDirectory( nBufferLength: DWORD; {缓冲区大小} lpBuffer: PAnsiChar {缓冲区} ): DWORD; {返回目录实际长度} //举例: var buf: array[0..MAX_PATH] of Char; begin SetCurrentDirectory('c:\temp'); GetCurrentDirectory(SizeOf(buf), buf); ShowMessage(buf); {c:\temp} end; |
posted @ 2011-09-12 05:39 delphi初学者 阅读(85) 评论(0) 编辑
临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别
临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别
TRtlCriticalSection 是一个结构体，在windows单元中定义；
是InitializeCriticalSection，EnterCriticalSection，LeaveCriticalSection, DeleteCriticalSection 等这几个kernel32.dll中的临界区操作API的参数；
TCriticalSection是在SyncObjs单元中实现的类，它对上面的那些临界区操作API函数进行了了封装，简化并方便了在Delphi的使用；
如TCriticalSection.Enter;就是调用了EnterCriticalSection这个API函数。
多线程程序中，如果各个线程要访问同一个资源，如同一个变量
这时就要使用线程同步技术，才不会使线程之间产生冲突和干扰
线程同步有多种办法，使用临界区是其中最简单，也是效率最高的办法(CPU占用时间最少)
使用临界区代码如下：
先声明一个TRTLCriticalSection类型的全局变量
var
MyCs:TRTLCriticalSection;
在程序开始或建立线程之前，初始化
InitializeCriticalSection(MyCs);//初始化临界区
在程序结束或所有线程结束后，删除它
DeleteCriticalSection(MyCs);//删除临界区
再在线程中要同步的地方加入
EnterCriticalSection(MyCs); //进入临界区
try
//程序代码
finally
LeaveCriticalSection(MyCs); //离开临界区
end;