F fanren945 Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-22 #1 [!]我的数据库中有一个字段是blobmemo型的储存的是rtf文档,怎样将它们按条件 取出再合并成一个文件呢?
M maming Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-22 #2 最简单的办法就是用一个richedit, 取出数据后增加.
F fanren945 Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-22 #3 不行啊,其中包括图片,richedit不能显示图片怎么办?
F fanren945 Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-22 #5 word自动化? 我不会啊,有没有代码实例??可以完成那样的功能吗?
J jackie_woo Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-22 #9 要么找一个增强型的RICHEDIT(可显示图片的),要么利用剪贴板,将相关数据复制到剪贴板,然后自己编个函数之类的处理一下。
F fanren945 Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-22 #10 来自:jackie_woo, 时间:2002-2-22 19:17:00, ID:935830 要么找一个增强型的RICHEDIT(可显示图片的),要么利用剪贴板,将相关数据复制到剪贴板,然后自己编个函数之类的处理一下。 剪贴板我用过了耗费大量的系统资源效率太低,所以才找别的方法
来自:jackie_woo, 时间:2002-2-22 19:17:00, ID:935830 要么找一个增强型的RICHEDIT(可显示图片的),要么利用剪贴板,将相关数据复制到剪贴板,然后自己编个函数之类的处理一下。 剪贴板我用过了耗费大量的系统资源效率太低,所以才找别的方法
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-23 #11 第一个rtf: {...{..}..{..}....} 第二个:{..{..}......} { 和 } 是配对的,把第一个rtf的最后一个 } 删掉,第二个rtf的第一个 { 删掉 然后加起来就可以了
第一个rtf: {...{..}..{..}....} 第二个:{..{..}......} { 和 } 是配对的,把第一个rtf的最后一个 } 删掉,第二个rtf的第一个 { 删掉 然后加起来就可以了
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-23 #13 最简单的就是我的嘛,找找最后一个 } 和第一个 { 多简单,去掉它们,然后 + 起来就可以了 连控件都不用啊
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-23 #14 就是 {xxxxxxxxxxxxxxxxx} 和 {yyyyyyyyyyyyyyyyyy} 加起来变成 {xxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyy} 至于内部的 {} 就不用你哩了,只管最外面的一层{}罢了
就是 {xxxxxxxxxxxxxxxxx} 和 {yyyyyyyyyyyyyyyyyy} 加起来变成 {xxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyy} 至于内部的 {} 就不用你哩了,只管最外面的一层{}罢了
F fanren945 Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-26 #16 to Pipi: 恕小弟愚笨,搞了半天没弄出来,能不能麻烦你老人家给些几句代码参考参考? 例如: 数据库字段室blobmemo型的其中包括图片,我从数据库中查询符合条件的记录, 并把这些记录以追加方式合并成一个rtf文件。
to Pipi: 恕小弟愚笨,搞了半天没弄出来,能不能麻烦你老人家给些几句代码参考参考? 例如: 数据库字段室blobmemo型的其中包括图片,我从数据库中查询符合条件的记录, 并把这些记录以追加方式合并成一个rtf文件。
W wolf1860 Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-02 #19 这是合并两个二进制文件的源码,你自己照着改改就成了。 Var f1, f2 : File; xfer : Word; buf : PChar; Begin AssignFile(f1, name1); Reset(f1); Seek(f1, Filesize(f1)); AssignFile(f2, name2); Reset(f2); GetMem(buf, 65000); Repeat BlockRead(f1, buf^, 65000, xfer); BlockWrite(f2, buf^, xfer); Until xfer < 65000; CloseFile(f1); CloseFile(f2); End;
这是合并两个二进制文件的源码,你自己照着改改就成了。 Var f1, f2 : File; xfer : Word; buf : PChar; Begin AssignFile(f1, name1); Reset(f1); Seek(f1, Filesize(f1)); AssignFile(f2, name2); Reset(f2); GetMem(buf, 65000); Repeat BlockRead(f1, buf^, 65000, xfer); BlockWrite(f2, buf^, xfer); Until xfer < 65000; CloseFile(f1); CloseFile(f2); End;