主题：内存的管理(第二节) DATE :2004-09-24
主题：内存的管理(第二节)
时间：9月24日下午3点
主持：A3.武稀松
地点：会议室
2004-09-24 15:02:49 A3.武稀松
好！开课
2004-09-24 15:03:31 英雄莫问出处
老兄，先列个提纲
2004-09-24 15:03:38 A3.武稀松
要讲内存管理显要知道Delphi的数据类型分几种？
2004-09-24 15:03:57 黄
喜欢，
2004-09-24 15:04:02 英雄莫问出处
这个恐怕不要讲了吧？
2004-09-24 15:04:00 B6
基本的吧
2004-09-24 15:04:21 欢乐狗熊
似乎有很多种哦，呵呵
2004-09-24 15:04:22 英雄莫问出处
不是说要讲共享内存的几种方式吗？
2004-09-24 15:04:23 B6
integer，char，^
2004-09-24 15:04:30 B6
record
2004-09-24 15:04:42 B6
string
2004-09-24 15:04:56 飘尘
还有CLASS了
2004-09-24 15:05:06 关艳月
其实，数据就分两种，实型和虚型。
2004-09-24 15:06:13 关艳月
象 pchar ,string, class ,record,array 就是虚型。
2004-09-24 15:06:17 关艳月
对不?
2004-09-24 15:06:24 欢乐狗熊
武松又不说话了
2004-09-24 15:06:25 英雄莫问出处
没错
2004-09-24 15:06:31 飘尘
string 应当是
CHAR的扩展类型
2004-09-24 15:06:40 欢乐狗熊
对
2004-09-24 15:06:48 A3.武稀松
一种是值类型，一种是抽象数据类型
2004-09-24 15:06:56 英雄莫问出处
等到真正定义虚型变量的时候，才分配内存
2004-09-24 15:07:13 B6
重点是内存管理，大家别跑题了
2004-09-24 15:07:36 英雄莫问出处
不是上次已经讲过基本的了？
2004-09-24 15:07:43 A3.武稀松
浮点数、有序数、纪录等都是抽象数据类型
2004-09-24 15:07:58 A3.武稀松
这种类型的内存管理基本我们不用管它
2004-09-24 15:08:03 关艳月
内存的基本类型要认识，这也是内存管理的重要因素啊。
2004-09-24 15:08:37 英雄莫问出处
这次讲讲共享内存的几种方式，比如内存映象文件、线程共享模式等？
2004-09-24 15:08:51 A3.武稀松
关艳月说得对，数据类型先搞清楚才能搞清楚内存管理
2004-09-24 15:09:32 A3.武稀松
另外一种抽象数据类型就是我们要手工分配长度的，例如指针、对象等等
2004-09-24 15:10:14 关艳月
我的做法很简单，所有的数据就分两种，这样最容易懂了。 A1教的。[:D]
2004-09-24 15:10:38 A3.武稀松
你倒是比较会活学活用
2004-09-24 15:11:28 A3.武稀松
其中值类型是由栈来管理的。这样我们就只要关心抽象数据类型就可以了
2004-09-24 15:11:54 た少林足球
这些对我来说太抽象了，听起来不太懂
2004-09-24 15:12:10 A3.武稀松
上次A1讲的银行卡就是我们这次话题的基础
2004-09-24 15:12:29 C03.MUSIC
有没有必要讲讲堆和栈
2004-09-24 15:12:45 た少林足球
那就讲一下
2004-09-24 15:12:49 关艳月
A3，不要把此“抽象”和类的“抽象”混和了，大家会混稍的。
2004-09-24 15:13:33 A3.武稀松
堆栈以后讲。其实Delphi中抽象数据类型也不一定非要我们手工分配和释放。有些编译器会帮我们处理。例如字符串
2004-09-24 15:14:07 关艳月
有两种字符串， string 和 pchar
2004-09-24 15:14:14 A3.武稀松
谁知道字符串的生存周期是怎样的？为什么不需要我们手工干预？
2004-09-24 15:14:48 英雄莫问出处
这是在DELPHI编译器里决定的
2004-09-24 15:15:02 英雄莫问出处
会自动分配和释放，继续
2004-09-24 15:15:14 Ares
有两种字符串， string 和 pchar？？？？
2004-09-24 15:15:15 A3.武稀松
对，但是编译器怎么知道什么时候释放？
2004-09-24 15:15:37 关艳月
你要干预它也可以啊。比如，当用到MoveMemory()的时候。
2004-09-24 15:15:52 A3.武稀松
PChar严格来说是字符指针。Type PChar=Char；
2004-09-24 15:15:59 A3.武稀松
PChar=^Char；
2004-09-24 15:16:20 Ares
movememory和copymemory有什么区别？
2004-09-24 15:16:36 A3.武稀松
字符串和接口、动态数组一样都是通过引用计数器来管理的
2004-09-24 15:17:17 A3.武稀松
引用计数器是垃圾回收中最快捷的一种方式
2004-09-24 15:18:24 关艳月
却是在DLL和EXE沟通中最可恨的方式。别怪我老挑毛病。
2004-09-24 15:18:51 A3.武稀松
也就是说在你赋值的时候他会自动把引用计数加一，表示有一个变量在使用它。当变量销毁或指向别处的时候他会自动把计数减一，如果引用计数为0。就回收这片内存
2004-09-24 15:20:00 A3.武稀松
String的引用计数器我们是不是有必要让她暴露出来看一下她的真面目？
2004-09-24 15:20:33 Ares
如果我手工将计数改了， 会有什么情况？
2004-09-24 15:20:53 关艳月
怕是你好难改吧。
2004-09-24 15:21:07 A3.武稀松
可以改。我来先讲一下字符串的构造。
2004-09-24 15:21:47 A3.武稀松
字符串其实可以看成是一个结构的指针。
2004-09-24 15:22:04 Ares
应该是@S[0] - 4
2004-09-24 15:22:21 A3.武稀松
我自己定义了一个和系统的AnsiString兼容的字符串结构。如下：
_PTAnsiString = ^_TAnsiString;
_TAnsiString = record
allocSiz: LongWord; //分配的大小
ReferencCount: LongWord; //引用次数
Length: LongWord; //字符串长度
Data: array[1..(Length + 1)] of AnsiChar;
end;
2004-09-24 15:23:26 A3.武稀松
可以看到Ares说的减4得到的是字符串的长度位置，而非今天我们要说的计数器位置
2004-09-24 15:24:08 A3.武稀松
计数器应该时减8才对
2004-09-24 15:24:24 A3.武稀松(42088303)
下面我们来证实一下
2004-09-24 15:24:46 Ares(53257667)
总之是那减去longint的长度的整倍数
2004-09-24 15:25:11 A3.武稀松(42088303)
type
_PTAnsiString = ^_TAnsiString;
_TAnsiString = record
allocSiz: LongWord; //分配的大小
ReferencCount: LongWord; //引用次数
Length: LongWord; //字符串长度
//Data: array[1..(Length + 1)] of AnsiChar;
end;
var
k, M, N : AnsiString;
p : _PTAnsiString;
begin
k := 'I am a Delphi fan!';
p := Pointer(Integer(@K[1]) - SizeOf(_TAnsiString));
Showmessage(format('编译器初始化分配给内存大小是：%d'
+ #13 + '引用次数是：%d'
+ #13 + '字符串长度是：%d;'
+ #13 + '字符串内容是："%s"',
[P^.allocSiz, P^.ReferencCount, P^.Length, K]));
end;
2004-09-24 15:25:19 Ares(53257667)
所以， 如果手工将那改了， 会不会有什么问题
2004-09-24 15:25:54 A3.武稀松(42088303)
大家可以试一下我上面贴的代码
2004-09-24 15:29:18 A3.武稀松(42088303)
我讲到怎么查看字符串的引用计数器
2004-09-24 15:29:33 A3.武稀松(42088303)
procedure TForm1.Button3Click(Sender: TObject);
type
_PTAnsiString = ^_TAnsiString;
_TAnsiString = record
allocSiz: LongWord; //分配的大小
ReferencCount: LongWord; //引用次数
Length: LongWord; //字符串长度
//Data: array[1..(Length + 1)] of AnsiChar;
end;
var
k, M, N : AnsiString;
p : _PTAnsiString;
begin
k := 'I am a Delphi fan!';
p := Pointer(Integer(@K[1]) - SizeOf(_TAnsiString));
Showmessage(format('编译器初始化分配给内存大小是：%d'
+ #13 + '引用次数是：%d'
+ #13 + '字符串长度是：%d;'
+ #13 + '字符串内容是："%s"',
[P^.allocSiz, P^.ReferencCount, P^.Length, K]));
end;
2004-09-24 15:31:41 TCP/IP INFO(31329846)
我执行了
2004-09-24 15:31:48 A3.武稀松(42088303)
OK。那我们在调整一下
2004-09-24 15:32:13 A3.武稀松(42088303)
type
_PTAnsiString = ^_TAnsiString;
_TAnsiString = record
allocSiz: LongWord; //分配的大小
ReferencCount: LongWord; //引用次数
Length: LongWord; //字符串长度
//Data: array[1..(Length + 1)] of AnsiChar;
end;
var
k, M, N : AnsiString;
p : _PTAnsiString;
begin
k := 'I am a Delphi fan!';
p := Pointer(Integer(@K[1]) - SizeOf(_TAnsiString));
M := K; //把K赋值给M实际上只是把M的指向地址修改为与K相同，并且把引用次数加一
Showmessage(format('编译器初始化分配给内存大小是：%d'
+ #13 + '引用次数是：%d'
+ #13 + '字符串长度是：%d;'
+ #13 + '字符串内容是："%s"',
[P^.allocSiz, P^.ReferencCount, P^.Length, K]));
end;
2004-09-24 15:32:55 A3.武稀松(42088303)
看看有什么变化
2004-09-24 15:33:28 Ares(53257667)
type
PStrRec = ^StrRec;
StrRec = packed record
refCnt: Longint;
length: Longint;
end;
2004-09-24 15:33:50 欢乐狗熊(228175978)
引用次数加1
2004-09-24 15:34:09 A3.武稀松(42088303)
Ares的是System单元给出的逻辑结构，不是真实的。还有些是他隐藏了的
2004-09-24 15:34:26 Ares(53257667)
不过好象ShortString不是这样的吧
2004-09-24 15:34:39 A3.武稀松(42088303)
procedure TForm1.Button3Click(Sender: TObject);
type
_PTAnsiString = ^_TAnsiString;
_TAnsiString = record
allocSiz: LongWord; //分配的大小
ReferencCount: LongWord; //引用次数
Length: LongWord; //字符串长度
//Data: array[1..(Length + 1)] of AnsiChar;
end;
var
k, M, N : AnsiString;
p : _PTAnsiString;
begin
k := 'I am a Delphi fan!';
p := Pointer(Integer(@K[1]) - SizeOf(_TAnsiString));
M := K; //把K赋值给M实际上只是把M的指向地址修改为与K相同，并且把引用次数加一
M := M + 'A';//把M的内容修改，这时候M和K的内容不同了，就不再用同一个地址
//而这时才为M分配一个新的内存块，把M指向新块，同时M原来的指向引用计数减一
Showmessage(format('编译器初始化分配给内存大小是：%d'
+ #13 + '引用次数是：%d'
+ #13 + '字符串长度是：%d;'
+ #13 + '字符串内容是："%s"',
[P^.allocSiz, P^.ReferencCount, P^.Length, K]));
end;
2004-09-24 15:34:51 A3.武稀松(42088303)
我说了我演示的是AnsiString
2004-09-24 15:36:03 A3.武稀松(42088303)
procedure TForm1.Button3Click(Sender: TObject);
type
_PTAnsiString = ^_TAnsiString;
_TAnsiString = record
allocSiz: LongWord; //分配的大小
ReferencCount: LongWord; //引用次数
Length: LongWord; //字符串长度
//Data: array[1..(Length + 1)] of AnsiChar;
end;
var
k, M, N : AnsiString;
p : _PTAnsiString;
begin
k := 'I am a Delphi fan!';
p := Pointer(Integer(@K[1]) - SizeOf(_TAnsiString));
M := K; //把K赋值给M实际上只是把M的指向地址修改为与K相同，并且把引用次数加一
M := M + 'A';//把M的内容修改，这时候M和K的内容不同了，就不再用同一个地址
//而这时才为M分配一个新的内存块，把M指向新块，同时M原来的指向引用计数减一
Showmessage(format('编译器初始化分配给内存大小是：%d'
+ #13 + '引用次数是：%d'
+ #13 + '字符串长度是：%d;'
+ #13 + '字符串内容是："%s"',
[P^.allocSiz, P^.ReferencCount, P^.Length, K]));
end;
2004-09-24 15:37:00 A3.武稀松(42088303)
那么大家对引用计数怎么理解的呢？
2004-09-24 15:37:45 TCP/IP INFO(31329846)
可能和 java 的 string 差不多
2004-09-24 15:37:58 TCP/IP INFO(31329846)
都是静态的吧
2004-09-24 15:38:12 TCP/IP INFO(31329846)
每次都分配
2004-09-24 15:38:17 A3.武稀松(42088303)
Java的垃圾回收比较复杂。Delphi就比较简单
2004-09-24 15:38:20 关艳月(110499998)
别用红色的字！！！
2004-09-24 15:38:24 D10.天地弦(185511468)
_TAnsiString = record
allocSiz: LongWord; //分配的大小
ReferencCount: LongWord; //引用次数
Length: LongWord; //字符串长度
2004-09-24 15:39:01 A3.武稀松(42088303)
D10这是给出的字符串逻辑结构。和系统的ANSIString兼容的
2004-09-24 15:39:42 A3.武稀松(42088303)
垃圾回收有很多种，其中引用计数是最为原始但最有效的。
2004-09-24 15:39:58 A3.武稀松(42088303)
这里的有效是指时间效率
2004-09-24 15:40:59 TCP/IP INFO(31329846)
把M的内容修改，这时候M和K的内容不同了,delphi 怎么实现的
2004-09-24 15:41:42 Ares(53257667)
把M的内容修改，这时候M和K的内容不同了,delphi 怎么实现的？
复制
2004-09-24 15:41:54 A3.武稀松(42088303)
编译器会处理:=这个动作如果内容相同的话就是用同一空间，计数加一。如果内容不同就重新分配空间，原计数器减一
2004-09-24 15:42:46 关艳月(110499998)
我提问：假如： A:='Hello'; B:=A ; C:=A+'' ，这时A的计数是多少？
2004-09-24 15:43:15 A3.武稀松(42088303)
Delphi中动态数组、字符串、接口都是通过计数器来管理的内存的。所以我们不必理会他们。
2004-09-24 15:43:30 A3.武稀松(42088303)
2
2004-09-24 15:44:08 TCP/IP INFO(31329846)
我试了是 2
2004-09-24 15:44:12 C03.MUSIC(281361369)
为什么是2不是3
2004-09-24 15:44:19 A3.武稀松(42088303)
我来解释一下
2004-09-24 15:44:45 Ares(53257667)
var
S : string;
P : ^longInt;
begin
S := 'abcdefg';
P := Pointer(integer(@S[1]) - 4);
showmessage(IntToStr(P^));
P^ := 0;
ShowMessage(S);
end;
为什么显示出来是'a'而不是''
2004-09-24 15:45:20 A3.武稀松(42088303)
A:='Hello';计数器=1
B:=A ; 计数器=2
C:=A+''A所指向字符串的计数器不受影响
2004-09-24 15:45:44 关艳月(110499998)
为什么C不会影响A呢
2004-09-24 15:45:58 D10.天地弦(185511468)
C是另外一个变量了
2004-09-24 15:46:07 A3.武稀松(42088303)
D10说得对
2004-09-24 15:46:15 欢乐狗熊(228175978)
新加了一个字符重新分空间了
2004-09-24 15:46:21 A3.武稀松(42088303)
D10理解了计数器。
2004-09-24 15:46:24 TCP/IP INFO(31329846)
A+''时候,可能系统又分配了空间,让C指向
2004-09-24 15:46:32 A3.武稀松(42088303)
狗熊也明白了
2004-09-24 15:46:41 Ares(53257667)
A3， 帮我结实一下我那结果啊
2004-09-24 15:46:58 A3.武稀松(42088303)
这么多人都懂了，没白费我的口水
2004-09-24 15:48:05 关艳月(110499998)
C:=A+'' 这个''是空的。
2004-09-24 15:48:20 Ares(53257667)
人蠢， 没办法。 小狗狗， 明白了吗？
2004-09-24 15:48:26 A3.武稀松(42088303)
那么我们再讲一下对象的内存管理方式
2004-09-24 15:48:50 D10.天地弦(185511468)
Ares的意思吧，为C分配了另外一个空间。不是引用
2004-09-24 15:49:08 关艳月(110499998)
从意义上来讲 C=A是成立的。
2004-09-24 15:49:50 A3.武稀松(42088303)
但是从编译器看来他不知道内容是否相同啊
2004-09-24 15:49:55 Ares(53257667)
Ares的意思吧，为C分配了另外一个空间。不是引用
我是将字符串长度设置成了0
2004-09-24 15:50:21 A3.武稀松(42088303)
这个话题可以结束了吧。有人不懂就去问D10。[:P]
2004-09-24 15:50:45 D10.天地弦(185511468)
我怕误人子弟
2004-09-24 15:51:00 TCP/IP INFO(31329846)
继续吧
2004-09-24 15:51:10 A3.武稀松(42088303)
大家说对象的内存分配是如何分配的?
2004-09-24 15:51:14 关艳月(110499998)
在DLL和EXE沟通的时候， C:=A+''是非常有意义的。
2004-09-24 15:51:37 关艳月(110499998)
继续，我不打扰了。[;-D]
2004-09-24 15:51:52 D10.天地弦(185511468)
A3是不是就说了这一个？
2004-09-24 15:51:59 D10.天地弦(185511468)
我迟到了
2004-09-24 15:53:06 A3.武稀松(42088303)
D10来的不晚刚刚说一个
2004-09-24 15:53:39 A3.武稀松(42088303)
既然来晚了就罚你说说你对对象的内存分配的理解
2004-09-24 15:54:38 D10.天地弦(185511468)
对象的内存分配。是.....
2004-09-24 15:54:49 D10.天地弦(185511468)
不懂。听课！
2004-09-24 15:55:16 A3.武稀松(42088303)
你平时怎么创建对象的呢
2004-09-24 15:55:31 Ares(53257667)
Create
2004-09-24 15:55:40 D10.天地弦(185511468)
A3 := TA3.Create
2004-09-24 15:55:43 C03.MUSIC(281361369)
好象对象的内存分配已经由DELPHI自己给完成了
2004-09-24 15:55:49 Ares(53257667)
直接调用TClass的Create
2004-09-24 15:55:59 关艳月(110499998)
严格来说。Create不能算是真正的创建。
2004-09-24 15:56:08 TCP/IP INFO(31329846)
newinstance
2004-09-24 15:56:17 B4.松鼠(64652023)
那什么时候创建？
2004-09-24 15:57:05 关艳月(110499998)
指定了Constructor的方法可能不只是Create ，但Delphi只认 Constructor的东西。
2004-09-24 15:57:58 A3.武稀松(42088303)
说得对，其实在编译的时候如果是Constructor方法，在第一个Constructor方法前会插入newinstance
2004-09-24 15:58:17 A3.武稀松(42088303)
我说的第一个是指继承层次上的最后一层
2004-09-24 15:59:06 关艳月(110499998)
学来的知识现炒现卖。[;P]
2004-09-24 16:00:40 关艳月(110499998)
继续。
2004-09-24 16:00:56 D10.天地弦(185511468)
在第一个Constructor方法前会插入newinstance
2004-09-24 16:01:01 A3.武稀松(42088303)
对
2004-09-24 16:01:26 A3.武稀松(42088303)
我们可以做一个实验
2004-09-24 16:01:28 D10.天地弦(185511468)
在第一个Constructor方法前会插入newinstance
我说的第一个是指继承层次上的最后一层
可是还是不懂。我是小学生
2004-09-24 16:01:38 A3.武稀松(42088303)
晕
2004-09-24 16:01:45 TCP/IP INFO(31329846)
是缺省,还是...
2004-09-24 16:01:53 关艳月(110499998)
这个好象之前A1和A2有开课过了。
2004-09-24 16:02:10 A3.武稀松(42088303)
就是说在Inherited它祖先的Create方法的时候不会再调用了
2004-09-24 16:02:11 D10.天地弦(185511468)
A3做实验
2004-09-24 16:02:13 B4.松鼠(64652023)
最后一层是指TObject?
2004-09-24 16:02:48 A3.武稀松(42088303)
type
TTest = class
private
FA: string;
public
class function NewInstance: TObject; override;
end;
2004-09-24 16:03:28 A3.武稀松(42088303)
procedure TTest.FreeInstance;
begin
//CleanupInstance;
//_FreeMem(Self);
FreeMem(Pointer(Self),InstanceSize);
end;
2004-09-24 16:03:39 A3.武稀松(42088303)
搞错了，更正
2004-09-24 16:03:48 A3.武稀松(42088303)
class function TTest.NewInstance: TObject;
var
Instance : Pointer;
begin
//Result := InitInstance(_GetMem(InstanceSize));
GetMem(Instance, InstanceSize);
PInteger(Instance)^ := Integer(Self);
Result := InitInstance(TObject(Instance));
end;
2004-09-24 16:04:35 A3.武稀松(42088303)
class function TTest.NewInstance: TObject;
var
Instance : Pointer;
begin
//Result := InitInstance(_GetMem(InstanceSize));
GetMem(Instance, InstanceSize);
Result := InitInstance(TObject(Instance));
end;
2004-09-24 16:04:42 D10.天地弦(185511468)
A3NewInstance这个方法在哪里调用？
2004-09-24 16:05:02 关艳月(110499998)
Constrcutor之前。
2004-09-24 16:05:03 A3.武稀松(42088303)
在构造函数的最前面
2004-09-24 16:05:23 D10.天地弦(185511468)
是隐藏的？
2004-09-24 16:05:33 A3.武稀松(42088303)
对，由编译器负责
2004-09-24 16:05:46 D10.天地弦(185511468)
哦，你要早说清楚
2004-09-24 16:06:44 A3.武稀松(42088303)
一旦调用过以后他会在DL寄存器上做标记。由此判断，以后的Inherited祖先的构造方法就不会再调用NewInstance了
2004-09-24 16:07:34 D10.天地弦(185511468)
FreeInstance是最后调用的方法？
2004-09-24 16:07:38 A3.武稀松(42088303)
对
2004-09-24 16:07:40 A3.武稀松(42088303)
class function TTest.NewInstance: TObject;
var
Instance : Pointer;
begin
//Result := InitInstance(_GetMem(InstanceSize));
GetMem(Instance, InstanceSize);
Result := InitInstance(TObject(Instance));
end;
2004-09-24 16:07:52 A3.武稀松(42088303)
注释掉的是系统的代码。
2004-09-24 16:08:08 A3.武稀松(42088303)
我用代码解释了一下系统的代码
2004-09-24 16:09:06 C03.MUSIC(281361369)
先分配内存，再初始化实例
2004-09-24 16:09:15 A3.武稀松(42088303)
对的
2004-09-24 16:09:16 关艳月(110499998)
简单是最好的东西，不知能不能用简单的方式来说明这个东西。
2004-09-24 16:09:48 C03.MUSIC(281361369)
实例都已经初始化了，那CREATE是干什么用的？
2004-09-24 16:10:04 D10.天地弦(185511468)
做要做的事
2004-09-24 16:10:16 A3.武稀松(42088303)
InitInstance中会自动把内存全部清零。这就是为什么我们的对象中的Integer会是0，字符串会是空
2004-09-24 16:10:44 A3.武稀松(42088303)
Create主要是让你来初始化对象的
2004-09-24 16:11:05 D10.天地弦(185511468)
看看Create的源码就知道了
2004-09-24 16:11:13 Ares(53257667)
initinstance是怎么样的代码
2004-09-24 16:11:25 D10.天地弦(185511468)
var
IntfTable: PInterfaceTable;
ClassPtr: TClass;
I: Integer;
begin
FillChar(Instance^, InstanceSize, 0);
PInteger(Instance)^ := Integer(Self);
ClassPtr := Self;
while ClassPtr <> nil do
begin
IntfTable := ClassPtr.GetInterfaceTable;
if IntfTable <> nil then
for I := 0 to IntfTable.EntryCount-1 do
with IntfTable.Entries[I] do
begin
if VTable <> nil then
PInteger(@PChar(Instance)[IOffset])^ := Integer(VTable);
end;
ClassPtr := ClassPtr.ClassParent;
end;
Result := Instance;
2004-09-24 16:11:51 A3.武稀松(42088303)
谢谢，我不用找代码了
FillChar(Instance^, InstanceSize, 0);就是我说的那一句清零动作
2004-09-24 16:12:21 Ares(53257667)
FillMemory还是fillchar
2004-09-24 16:12:32 A3.武稀松(42088303)
效果一样
2004-09-24 16:12:41 Ares(53257667)
fillchar能用0来做参数吗
2004-09-24 16:13:09 Ares(53257667)
错了， 确实是0
2004-09-24 16:13:34 ★hotdog★(278136300)
0是不是有特殊的含义阿
2004-09-24 16:13:52 Ares(53257667)
fillmemory是不是内部有循环的代码啊
2004-09-24 16:14:05 D10.天地弦(185511468)
插一句小学生的问题构造函数可以不用Create是吗？
construtor selfcreate()也可以是吗？
2004-09-24 16:14:09 A3.武稀松(42088303)
PInteger(Instance)^ := Integer(Self);实例的类的信息其实
2004-09-24 16:14:24 C03.MUSIC(281361369)
TO D10：
可以
2004-09-24 16:14:26 关艳月(110499998)
to D10，小学生也知道可以。
2004-09-24 16:14:36 A3.武稀松(42088303)
构造方法名字随便他只认construtor关键字
2004-09-24 16:15:00 Ares(53257667)
我现在想知道TClass中类型信息放在什么地方
2004-09-24 16:15:00 D10.天地弦(185511468)
呵呵，我是只学了两个月的学前班。A1说的。所以不要见怪。
2004-09-24 16:15:31 D10.天地弦(185511468)
TClass = class of TObject;
2004-09-24 16:15:32 A3.武稀松(42088303)
while ClassPtr <> nil do
begin
IntfTable := ClassPtr.GetInterfaceTable;
if IntfTable <> nil then
for I := 0 to IntfTable.EntryCount-1 do
with IntfTable.Entries[I] do
begin
if VTable <> nil then
PInteger(@PChar(Instance)[IOffset])^ := Integer(VTable);
end;
这一段是实现对象和接口的绑定
2004-09-24 16:15:34 Ares(53257667)
A3， 说说这方面的吧， 你说的哪内存分配没意思
2004-09-24 16:16:54 A3.武稀松(42088303)
其实我们都研究到了这种地步内存分配也没什么神秘的了
2004-09-24 16:17:08 D10.天地弦(185511468)
没有神秘好啊
2004-09-24 16:17:31 C03.MUSIC(281361369)
DELPHI的内存分配代码是不是汇编实现的
2004-09-24 16:18:07 A3.武稀松(42088303)
其实内存管理还有一点，万变不离其宗只要不是API分配的内存，不管什么方法都回落到GetMem上
2004-09-24 16:19:06 A3.武稀松(42088303)
New，AllocMem不管怎么样最后都要落在GetMem上。API除外
2004-09-24 16:20:08 关艳月(110499998)
A3，我建议换个方式来讲。[:)]
2004-09-24 16:20:09 A3.武稀松(42088303)
如果时间还够的话可以讲内存管理器。
2004-09-24 16:20:20 D10.天地弦(185511468)
好好，讲内存管理器
2004-09-24 16:20:21 A3.武稀松(42088303)
关艳月什么方式呢？
2004-09-24 16:20:46 关艳月(110499998)
比如，从技巧上来讲。
2004-09-24 16:21:01 关艳月(110499998)
例如，
2004-09-24 16:21:54 A3.武稀松(42088303)
我觉得有了这些较为基础的知识，技巧只是思考和经验的结果。这些基础的知识是本，技巧是末。不知关艳月如何认为？
2004-09-24 16:22:13 关艳月(110499998)
A是一个64KB的字符串，B要取得A前面的32KB，什么方式最好？也是内存管理问题。
2004-09-24 16:22:13 D10.天地弦(185511468)
A3讲内存管理器吧
2004-09-24 16:22:34 Ares(53257667)
A是一个64KB的字符串，B要取得A前面的32KB，什么方式最好？也是内存管理问题。
说说
2004-09-24 16:23:03 A3.武稀松(42088303)
我不想解决这些问题。我们可以以后私聊解决
2004-09-24 16:23:22 A3.武稀松(42088303)
我就讲内存管理器的知识了
2004-09-24 16:23:41 关艳月(110499998)
那好，我再问一个内存管理器的问题。
2004-09-24 16:24:06 A3.武稀松(42088303)
能开Delphi的就打开System单元，我们对照着讲比较方便
2004-09-24 16:24:28 A3.武稀松(42088303)
其实这里比较简单。
2004-09-24 16:24:58 A3.武稀松(42088303)
看这里
PMemoryManager = ^TMemoryManager;
TMemoryManager = record
GetMem: function(Size: Integer): Pointer;
FreeMem: function(P: Pointer): Integer;
ReallocMem: function(P: Pointer; Size: Integer): Pointer;
end;
2004-09-24 16:25:06 关艳月(110499998)
如何改造一个内存管理器，使得让Object的所申请的内存是全局的。
2004-09-24 16:25:27 D10.天地弦(185511468)
这个属于和A3私聊的问题
2004-09-24 16:26:12 A3.武稀松(42088303)
系统会创建一个默认的内存管理器。只要不是API分配内存，就一定会落在这个内存管理器的GetMem方法上
2004-09-24 16:26:41 D10.天地弦(185511468)
在什么时候创建
2004-09-24 16:27:03 A3.武稀松(42088303)
var
MemoryManager: TMemoryManager = (
GetMem: SysGetMem;
FreeMem: SysFreeMem;
ReallocMem: SysReallocMem);
这是系统默认的内存管理器
2004-09-24 16:27:35 A3.武稀松(42088303)
全局变量可以直接付初始值
2004-09-24 16:27:54 D10.天地弦(185511468)
举例
2004-09-24 16:28:04 A3.武稀松(42088303)
例如
2004-09-24 16:29:11 A3.武稀松(42088303)
当我们创建一个对象的时候刚才我们说了NewInstance里面用到了_GetMem，所以也落到了MemoryManager的GetMem方法上了
2004-09-24 16:29:43 A3.武稀松(42088303)
如果我们自己接管了MemoryManager，我们就可以知道全部VCL的内存分配和释放了
2004-09-24 16:29:46 Ares(53257667)
全局变量可以直接付初始值?
var
Form1: TForm1 = TForm1.Create(nil);
怎么通过不了？
2004-09-24 16:30:10 D10.天地弦(185511468)
没有老爸
2004-09-24 16:30:24 D10.天地弦(185511468)
怎么创建Form
2004-09-24 16:30:32 D10.天地弦(185511468)
你要掉在空中啊
2004-09-24 16:31:14 A3.武稀松(42088303)
procedure GetMemoryManager(var MemMgr: TMemoryManager);
procedure SetMemoryManager(const MemMgr: TMemoryManager);
function IsMemoryManagerSet: Boolean;
看到了吧
2004-09-24 16:31:34 D10.天地弦(185511468)
OK
2004-09-24 16:32:14 C06.文(4184443)
procedure GetMemoryManager(var MemMgr: TMemoryManager);
begin
MemMgr := MemoryManager;
end;
？？？
2004-09-24 16:32:23 A3.武稀松(42088303)
我们可以用GetMemoryManager取道系统默认的内存管理器，用SetMemoryManager分配我们自己的管理器。
2004-09-24 16:33:05 D10.天地弦(185511468)
全局函数
2004-09-24 16:33:35 D10.天地弦(185511468)
MemoryManager是个全局变量吧
2004-09-24 16:33:45 A3.武稀松(42088303)
这样我们就可以监视VCL中的内存分配和销毁了。很多VCL的内存泄漏监视工具都是用接管MemoryManager来实现的
2004-09-24 16:33:56 D10.天地弦(185511468)
直接使用不就行了，还要用GetMemoryManager来取？
2004-09-24 16:34:53 A3.武稀松(42088303)
你调用完了你自己的GetMem在最后一行最好调用一下原有的管理器的Getmem
2004-09-24 16:35:16 A3.武稀松(42088303)
有点类似于Hook技术
2004-09-24 16:36:10 A3.武稀松(42088303)
Hook，钩子也，接管原有功能。
2004-09-24 16:36:18 C06.文(4184443)
建议哪位老大有空可以讲讲！
2004-09-24 16:37:03 TCP/IP INFO(31329846)
继续讲呀
2004-09-24 16:37:08 A3.武稀松(42088303)
我只是把一些概念介绍给大家。具体如何灵活的的糟蹋，蹂躏Delphi的内存还要大加利用这些知识自己去捉摸
2004-09-24 16:38:39 Ares(53257667)
A3， 给我们讲讲VMT吧
2004-09-24 16:38:55 D10.天地弦(185511468)
A3这个讲完了？
2004-09-24 16:38:55 A3.武稀松(42088303)
所以我不想决绝问题，只是把最基本的概念介绍一下。以后大家自己发挥了。
遗漏的和错误的概念等A1兄回来补充。
下课啦[v]
2004-09-24 16:38:57 英雄莫问出处(28922297)
虚拟方法表
2004-09-24 16:38:58 C03.MUSIC(281361369)
内存管理器就这些吗？
2004-09-24 16:39:13 ~云淡风轻~(151367466)
虚拟方法表我懂
2004-09-24 16:39:16 ~云淡风轻~(151367466)
哈哈
2004-09-24 16:39:21 C06.文(4184443)
那你说说！
2004-09-24 16:39:23 英雄莫问出处(28922297)
今天到此为止？
2004-09-24 16:39:24 Ares(53257667)
赶快去嘘嘘
2004-09-24 16:39:26 B3.Locet(2212967)
那你也说说VMT~~云妹妹`
2004-09-24 16:39:49 ~云淡风轻~(151367466)
自己看书
2004-09-24 16:39:54 B3.Locet(2212967)
看样子你掌握的不够
2004-09-24 16:39:55 ~云淡风轻~(151367466)
开发人员指南里面有
2004-09-24 16:40:00 ~云淡风轻~(151367466)
就几句
2004-09-24 16:40:35 ★hotdog★(278136300)
指针和对象是需要程序员手工申请和释放的内存。
指针包括PChar、Pointer（无类型指针）、记录指针、变量指针（指向原子变量）、函数指针（例如回调函数，分为全局函数和对象方法）。使用New函数来申请内存，使用Dispose来释放指针。另外，GetMem、ReallocMem和FreeMem也是一系列申请、释放内存的函数，可以通过GetMemoryManager和SetMemoryManager函数来读取和设置Delphi的三个内存管理函数。
2004-09-24 16:41:00 Ares(53257667)
inside VCL是李维的书吧
2004-09-24 16:42:51 D10.天地弦(185511468)
A3回来没有
2004-09-24 16:45:40 A3.武稀松(42088303)
福州人很讨厌 ？地方歧视吧
2004-09-24 16:45:41 D10.天地弦(185511468)
不是
2004-09-24 16:47:10 D10.天地弦(185511468)
还有两个问题等你回答
2004-09-24 16:48:07 D10.天地弦(185511468)
185511468(D10.天地弦) 16:35:01
MemoryManager是个全局变量吧
直接使用不就行了，还要用GetMemoryManager来取？
2004-09-24 16:48:58 C03.MUSIC(281361369)
NOT BBB = PPP
2004-09-24 16:49:31 D10.天地弦(185511468)
A3
2004-09-24 16:51:12 A3.武稀松(42088303)
他既然这么提供我们就这么用呗。那Borland没规定你的构造函数必须要用Create我们咋都用Create命名呢
2004-09-24 16:51:26 D10.天地弦(185511468)
哦。
[闲聊中....]
2004-09-24 16:55:42 A1.Aleyn.wu(45198124)
DLL和EXE，开始了。
2004-09-24 16:55:58 A1.Aleyn.wu(45198124)
跟内存管理有关。
2004-09-24 16:56:49 A1.Aleyn.wu(45198124)
头痛的事情好多，我先放松一下，给大家一个小技巧。
2004-09-24 16:57:38 A1.Aleyn.wu(45198124)
大家可以一起做个实验。
2004-09-24 16:59:14 A1.Aleyn.wu(45198124)
在EXE中，var a:string
2004-09-24 16:59:31 A1.Aleyn.wu(45198124)
然后 a:='hello';
2004-09-24 16:59:53 A1.Aleyn.wu(45198124)
在DLL中，b:=a
2004-09-24 17:00:01 A1.Aleyn.wu(45198124)
并showmessage(b)
2004-09-24 17:00:35 TCP/IP INFO(31329846)
我试过,不行,可能有问题
2004-09-24 17:00:40 A3.武稀松(42088303)
a要是全局变量应该正常吧
2004-09-24 17:00:57 飘尘(43745429)
也不对吧
2004-09-24 17:01:11 A1.Aleyn.wu(45198124)
从最简单的来，A假设是全局的。
2004-09-24 17:01:11 飘尘(43745429)
要是有两个程序在调用A了
2004-09-24 17:01:39 A3.武稀松(42088303)
A1有没有试过a是全局变量吧
2004-09-24 17:01:49 A1.Aleyn.wu(45198124)
呵呵，都有试过。
2004-09-24 17:02:00 A3.武稀松(42088303)
和局部变量一样？
2004-09-24 17:02:06 飘尘(43745429)
写两个程序
2004-09-24 17:02:23 飘尘(43745429)
一起调用那个DLL
2004-09-24 17:02:37 A1.Aleyn.wu(45198124)
这不是最重要的问题。
2004-09-24 17:02:43 Ares(53257667)
使用了ShareMem单元没
2004-09-24 17:02:52 A1.Aleyn.wu(45198124)
不使用。
2004-09-24 17:03:11 Ares(53257667)
不使用恐怕不是很好吧
2004-09-24 17:03:19 A3.武稀松(42088303)
我最喜欢DLL和EXE都带包与行了，啥麻烦事都没有了
2004-09-24 17:03:40 A1.Aleyn.wu(45198124)
使用了就不谈今天的这个技巧了。
2004-09-24 17:04:10 A3.武稀松(42088303)
看来比较有意思，看A1笑得那么开心
2004-09-24 17:04:59 A1.Aleyn.wu(45198124)
上面是正常的。
2004-09-24 17:05:14 D10.天地弦(185511468)
出错是正常的？
2004-09-24 17:05:15 A1.Aleyn.wu(45198124)
我们要做的不是这些，这只是测试。
2004-09-24 17:06:00 A1.Aleyn.wu(45198124)
再来，我们在DLL中，a:='hello'+' who are you'
2004-09-24 17:06:29 A1.Aleyn.wu(45198124)
再到EXE中。ShowMessage(a)，这时，正常吗？
2004-09-24 17:07:16 A3.武稀松(42088303)
按我说的技巧，EXE和DLL都带包。就啥问题都没有了
2004-09-24 17:07:55 A1.Aleyn.wu(45198124)
A3兄，不是每个程序都要做成包的型式，要不尾巴太大了。
2004-09-24 17:08:19 D10.天地弦(185511468)
A3你包全带？
2004-09-24 17:08:34 A3.武稀松(42088303)
可是如果EXE和DLL共享包总体积反而会小
2004-09-24 17:08:44 Ares(53257667)
按我说的技巧，EXE和DLL都带包。就啥问题都没有了
还不如全部用包算了
2004-09-24 17:09:05 A3.武稀松(42088303)
只要带VCL，RTL包就可以了
2004-09-24 17:09:17 A1.Aleyn.wu(45198124)
算了，还是找个时间写个DEMO。要不难讲。
2004-09-24 17:10:05 D10.天地弦(185511468)
A1我帮你写好了一部分Demo
2004-09-24 17:10:08 A3.武稀松(42088303)
DLL和EXE之间用String本来就是危险的嘛
2004-09-24 17:10:23 D10.天地弦(185511468)
A1我测试怎么没有问题
2004-09-24 17:10:31 D10.天地弦(185511468)
var
a: string;
DLLHandle: Thandle;
DLLSub: procedure(Astr: string);
begin
a := 'Delphi';
DLLhandle := LoadLibrary('ADLL.DLL');
@DLLSub := GetProcAddress(DLLHandle, 'TestDLL');
DLLSub(a);
2004-09-24 17:10:34 Ares(53257667)
DLL和EXE之间用String本来就是危险的嘛
我们没有传任何string
2004-09-24 17:10:40 D10.天地弦(185511468)
没有错误出现
2004-09-24 17:12:51 A1.Aleyn.wu(45198124)
to D10, 我写个DEMO，你就知道错误在什么地方出现了，就象上次的DEMO一样。
[没有正事说了，A1 Demoing 其他人谈论怎么泡MM中...]
