二個TMemoryStream可以相加嗎? |
答題得分者是:sos_admin
|
brianwung
一般會員 發表:18 回覆:22 積分:8 註冊:2002-06-12 發送簡訊給我 |
|
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
内存流如果实现合并操作。 var
a,b,c:tmemorystream;
begin
a:=tmemorystream.Create ;
b:=tmemorystream.Create ;
c:=tmemorystream.Create ;
.....
try
.....
a.Position :=0;
b.Position :=0; c.Seek(0,soFromEnd);
c.CopyFrom(a,0); c.Seek(0,soFromEnd);
c.CopyFrom(b,0);
.... finally
a.Free ;
b.Free ;
c.Free ;
end; end;
|
brianwung
一般會員 發表:18 回覆:22 積分:8 註冊:2002-06-12 發送簡訊給我 |
|
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
|
brianwung
一般會員 發表:18 回覆:22 積分:8 註冊:2002-06-12 發送簡訊給我 |
|
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
|
brianwung
一般會員 發表:18 回覆:22 積分:8 註冊:2002-06-12 發送簡訊給我 |
|
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
我是使用TRxRichEdit寫入DB,然後想將DB的值寫到一個WORD檔,如果是一筆資料的話可以直接TMemoryStream.SaveToFile
因为每个doc或rtf档都是用头数据 包含各种操作符的数据 结尾数据构成;
对于单个文件来说这是可以的,但是如果是多个文件,那么即使合并也只能看到第一个的数据内容。 对于合并成为文件只有利用文本文件可实现
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:tfilestream;
begin
a:=tfilestream.Create('c:\a.txt',fmopenread);
b:=tfilestream.Create('c:\b.txt',fmopenread);
c:=tfilestream.Create('c:\c.txt',fmcreate);
try
a.Position :=0;
b.Position :=0; c.Seek(0,soFromEnd);
c.CopyFrom(a,0); c.Seek(0,soFromEnd);
c.CopyFrom(b,0); finally
a.Free ;
b.Free ;
c.Free ;
end; end;
|
brianwung
一般會員 發表:18 回覆:22 積分:8 註冊:2002-06-12 發送簡訊給我 |
|
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
|
brianwung
一般會員 發表:18 回覆:22 積分:8 註冊:2002-06-12 發送簡訊給我 |
|
brianwung
一般會員 發表:18 回覆:22 積分:8 註冊:2002-06-12 發送簡訊給我 |
找到解決方式了! procedure TMain.PasteBtnClick(Sender: TObject);
var
BkMk: Range;
BMName, Format: OleVariant;
begin
RichEdit1.SelectAll;
RichEdit1.CopyToClipboard;
RichEdit1.SelStart := RichEdit1.SelLength; { Paste the text in at the bookmark called 'FirstRealPara' }
BMName := 'FirstRealPara';
Format := wdPasteRTF;
BkMk := Doc.Bookmarks.Item(BMName).Range;
BkMk.PasteSpecial(EmptyParam, EmptyParam, EmptyParam,
EmptyParam, Format, EmptyParam, EmptyParam);
end; http://www.delphipages.com/threads/thread.cfm?ID=93931&G=93919
http://www.djpate.freeserve.co.uk/AutoWord.htm#Downloads
|
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
|
brianwung
一般會員 發表:18 回覆:22 積分:8 註冊:2002-06-12 發送簡訊給我 |
|
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
|
brianwung
一般會員 發表:18 回覆:22 積分:8 註冊:2002-06-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |