请问barton及三代坦克:TIBinstall如何使用。
我的操作是:放一个TIBinstall在Form1上。然后再放上Edit1,edit2,Progressbar1
及一个button1。先设置TIBinstall的installOption.MainCompoments:=[moServer]
(只做这个设置,别的没动)
procedure TForm1.Button1Click(Sender: TObject);
begin
ibinstall1.SourceDirectory:=edit1.Text;//指向我的IBServer的安装盘路径,如:e:/ibserver
ibinstall1.DestinationDirectory:=edit2.Text;//指向IBServer的目标路径,如c:/ibs
ibinstall1.InstallCheck;
end;
function TForm1.IBInstall1StatusChange(Sender: TObject;
StatusComment: String): TStatusResult;
begin
Progressbar1.Position:=Ibinstall1.Progress;
end;
可是等到Progressbar1走到头时程序就死了,我到c盘查看c:/ibs确实被创建,其中也有许多文件。
我执行/bin/IBserver.exe,也确实能执行,(具体能被其它计算机连接,我没有测试)。