to Jims:
我叫蒋靖,个人具体资料Delphi发烧友联谊会上有.
我的程序还没有完全编好,主要原因时数据库实在太差,
现给出新建和存入数据库的程序:
procedure TMainForm.NewMenuClick(Sender: TObject);
begin
MainPage.ActivePage := EditSheet;
MyWord:= CoApplication_.Create;
FileName := 'C:/My Documents/HHH.doc';
MyWord.Documents.Open(FileName,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam);
OleContainer1.DoVerb( ovShow );
end;
procedure TMainForm.CloseMenuClick(Sender: TObject);
var
OleStream : TMemoryStream;
begin
OleStream := TMemoryStream.Create;
Myword._Release;
OleContainer1.SaveToStream( OleStream );
OleStream.Position := 0;
with dm1.InsertTable do
begin
Close;
Open;
Edit;
//Append;
FieldByName( 'title' ).asstring := 'ok,letgo';
TBlobField( fieldbyname('ole') ).LoadFromStream( OleStream );
post;
begin
dm1.db2.StartTransaction;
try
ApplyUpdates; {try to write the updates to the database};
dm1.Db2.Commit; {on success, commit the changes};
except
dm1.Db2.Rollback; {on failure, undo the changes};
raise; {raise the exception to prevent a call to CommitUpdates!}
end;
CommitUpdates; {on success, clear the cache}
end;
//ApplyUpdates;
showmessage( 'done' );
end;
OleStream.Free;
end;
这些程序奇烂无比,主要是没时间优化.如果没有意外的话,这两天应该能全部搞定.
对了,我在程序中用到了WordBasic,主要是想把文件转存为html格式,以便检索和
浏览.但是现在还有一个问题,我的程序每次退出是有共享冲突错误.
我的程序是非盈利性质的,大家所在省份也不同,所以不存在利益冲突问题.
大家一起交流吧.我的界面很丑陋的,还想向你学几招呢!
我收信不方便,发信没有限制.
ps: MyWord: _Application;
FileName: OleVariant; 两个全局变量
to CJCJC :
我们系的遗传算法是看家宝,最近几天开始毕业设计,用遗传算法的人肯定会跳出来的.
到时候再给你寄过来.简单的说,应该就是非最佳匹配加上一个优胜疟汰吧!
