T
Tab
Unregistered / Unconfirmed
GUEST, unregistred user!
最近公司要我做一个CIS软件，我想实现类似Power Point的功能，在模版的基础上由用户
再修改，但是遇到文件的存储问题，请各路大侠相助。
再修改，但是遇到文件的存储问题，请各路大侠相助。
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
T
Tab
Unregistered / Unconfirmed
GUEST, unregistred user!
不要走，大家可以一块探讨探讨嘛。
L
LawrenceZhang
Unregistered / Unconfirmed
GUEST, unregistred user!
ask ms
N
noall
Unregistered / Unconfirmed
GUEST, unregistred user!
有答案的也请告诉我好吧？谢了
T
Tab
Unregistered / Unconfirmed
GUEST, unregistred user!
大家都去过中秋节了吗？怪不得没人应，呵呵。
刚好公司发月饼，见者有分的。
刚好公司发月饼，见者有分的。
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
不知道啊，这几天好多人问PowerPoint类的问题
T
Tab
Unregistered / Unconfirmed
GUEST, unregistred user!
提提前，
是不是沉底了，高手看不见。
是不是沉底了，高手看不见。
Y
yysun
Unregistered / Unconfirmed
GUEST, unregistred user!
请再把您的需求说得明白些.什么样的模板,用户修改什么?
N
noall
Unregistered / Unconfirmed
GUEST, unregistred user!
哎，大家就可怜可怜别人吧
T
thtfsyh
Unregistered / Unconfirmed
GUEST, unregistred user!
用ole嵌入ppt文件不就ok了？
T
Tab
Unregistered / Unconfirmed
GUEST, unregistred user!
>>all
对不起，怪我没把问题说清楚。其实问题可以这样来讲：
相信大家对Delphi生成的.dfm文件很熟悉，它主要记录用户设计时Form及Form上所有对象的属性，
如：
object Panel1: TPanel
Left = 56
Top = 16
Width = 577
Height = 401
Font.Color = clWindowText
Font.Name = '宋体'
Font.Size = 12
object Image1: TImage
Left = 16
Top = 24
Width = 50
Height = 50
Picture.Data = {……}
end
end
其中Image1对象的Picture.Data里存储了设计时调入Image1控件里的图片数据，而且还是文本格式，
我想知道这是怎么实现的，望高手指点！
>>yysun:
不知这样说明白了没有，请赐教！
>>thtfsyh:
我并不是想控制ppt文件，而只是想借见其文件存储格式。
>>noall:
谢谢支持！
对不起，怪我没把问题说清楚。其实问题可以这样来讲：
相信大家对Delphi生成的.dfm文件很熟悉，它主要记录用户设计时Form及Form上所有对象的属性，
如：
object Panel1: TPanel
Left = 56
Top = 16
Width = 577
Height = 401
Font.Color = clWindowText
Font.Name = '宋体'
Font.Size = 12
object Image1: TImage
Left = 16
Top = 24
Width = 50
Height = 50
Picture.Data = {……}
end
end
其中Image1对象的Picture.Data里存储了设计时调入Image1控件里的图片数据，而且还是文本格式，
我想知道这是怎么实现的，望高手指点！
>>yysun:
不知这样说明白了没有，请赐教！
>>thtfsyh:
我并不是想控制ppt文件，而只是想借见其文件存储格式。
>>noall:
谢谢支持！
T
Tab
Unregistered / Unconfirmed
GUEST, unregistred user!
感觉最近大富翁里好冷清啦。
C
CJ
Unregistered / Unconfirmed
GUEST, unregistred user!
...这个我也不在行，简单讲讲看法：
定义不可能全写下来，基本写一个思路
那么你还需要什么呢？一个对象（TMainObj），
其中包含一个连表，其中包括每个对象，
这些对象包括文本对象，图形对象（点，
线，圆，弧等），图象对象，声音对象等，
它们都派生与同一个父对象（TMyObj），
其中包含一些公共信息，有类似以下属性：
top,left,width,right,level:Integer;
visible:Boolean;
最简单的保存方法就是从TComponent继承，
用WriteComponent保存整个对象，但要注意
连表中的对象需要单独用代码保存。
定义不可能全写下来，基本写一个思路
那么你还需要什么呢？一个对象（TMainObj），
其中包含一个连表，其中包括每个对象，
这些对象包括文本对象，图形对象（点，
线，圆，弧等），图象对象，声音对象等，
它们都派生与同一个父对象（TMyObj），
其中包含一些公共信息，有类似以下属性：
top,left,width,right,level:Integer;
visible:Boolean;
最简单的保存方法就是从TComponent继承，
用WriteComponent保存整个对象，但要注意
连表中的对象需要单独用代码保存。
Y
yysun
Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi中自带有*.dfm文件结构的分析器.
以前 *.dfm 一直是二进制格式的, 在 Delphi IDE 中用 View As Text, 才能看到:
object Panel1: TPanel ... 之类, 现在 *.dfm 竟然已经改成文本格式,
难道是跟 VB 学的? 什么时候(哪个版本)改的?
我建议您使用 XML 来存储类似的数据, XML 分析器 / XML Parse 是有现成的.
以前 *.dfm 一直是二进制格式的, 在 Delphi IDE 中用 View As Text, 才能看到:
object Panel1: TPanel ... 之类, 现在 *.dfm 竟然已经改成文本格式,
难道是跟 VB 学的? 什么时候(哪个版本)改的?
我建议您使用 XML 来存储类似的数据, XML 分析器 / XML Parse 是有现成的.
T
Tab
Unregistered / Unconfirmed
GUEST, unregistred user!
>>CJ兄：
请留步，你的意思是用记录类型存为二进制流吗，这个记录包括这些对象的属性的并集？
这样的话就不能用WriteComponent 了。请继续发言！
>>yysun兄：
这样的话我怎样与VCL结合呢？
请留步，你的意思是用记录类型存为二进制流吗，这个记录包括这些对象的属性的并集？
这样的话就不能用WriteComponent 了。请继续发言！
>>yysun兄：
这样的话我怎样与VCL结合呢？
C
CJ
Unregistered / Unconfirmed
GUEST, unregistred user!
Sorry，我的意思不是用记录，是再用一个对象，而非记录
M
mywanqi
Unregistered / Unconfirmed
GUEST, unregistred user!
我的看法是不必局限于一般的文件格式，可以利用数据库！数据库支持文字与图片数据，每
个数据库文件就是一个图文混合存储文件。用字符串字段记录文本，用图片字段记录图形，
并且将它们的位置保存入数据库中。反之通过读取数据库文件中的记录，放置各种数据的
位置就可以达到图文混合存储。
个数据库文件就是一个图文混合存储文件。用字符串字段记录文本，用图片字段记录图形，
并且将它们的位置保存入数据库中。反之通过读取数据库文件中的记录，放置各种数据的
位置就可以达到图文混合存储。
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
Tab:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。
图文混排你可以看看cAkk的帖子 DispQ.asp?LID=397696
把他那个解决了你的也解决了。
图文混排你可以看看cAkk的帖子 DispQ.asp?LID=397696
把他那个解决了你的也解决了。
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。