文件名称：用Delphi实现Word文件的预览
文件大小：313KB
文件格式：RAR
更新时间：2013-03-15 09:23:04
文件预览
nit PreviewWord; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, OleCtnrs,ComObj, Buttons, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; OpenDialog1: TOpenDialog; OleContainer2: TOleContainer; DBEdit1: TDBEdit; DataSource1: TDataSource; BitBtn1: TBitBtn; Button1: TButton; Panel1: TPanel; ScrollBox1: TScrollBox; OleContainer1: TOleContainer; ScrollBox2: TScrollBox; Splitter1: TSplitter; procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure DBEdit1Change(Sender: TObject); procedure FormCreate(Sender: TObject); private procedure s_ole_clickck(Sender:TObject;Button:TMouseButton; Shift: TShiftState; X, Y: Integer); function create_S_Ole(nn:integer):ToleContainer; procedure delete_s_ole; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function get_th(i:integer):string; var s:string; begin s:='一 二 三 四 五 六 七 八 九 十 十一 十二 十三'; s:=s+' 十四 十五 十六 十七 十八 十九 二十 二十一二十二二十三二十四二十五二十六二十七二十八二十九三十 '; result:=(trim(copy(s,i*6+1,6))); end;
【文件预览】：
用Delphi实现Word文件的预览
----viewword.dpr(200B)
----viewword.cfg(386B)
----delphifans.com.nfo(592B)
----PreviewWord.pas(6KB)
----PreviewWord.dfm(50KB)
----viewword.exe(736KB)
----PreviewWord.ddp(51B)
----files.mdb(288KB)
----viewword.res(876B)
----readme.txt(2KB)
----PreviewWord.dcu(11KB)
----viewword.dof(1KB)