使用InterBase开发的应用程序如何做安装？

[liboyang_bj]

我的程序的数据库使用的是InterBase桌面数据库，请问我想做安装程序应该包括那些文件才能安装后顺利运行。
用户是不是也要安装InterBase Desktop才能运行我的应用程序？我能把它放在安装程序里么？
我记得以前用SQL Antwhere的时候就可以把几个运行是需要的库加在安装程序里，编辑一些注册表就可以用了。用IB数据库可以这样处理了？

[liboyang_bj]

我用的是IBX
是不是在安装程序中加入gds32.dll并编辑相应的注册表、服务参数，应用序就可以访问IB数据库文件了？

是不是应用程序发布的时候还要加上相应的Data Control、IBX运行库？
就像VB、PB发布程序那样？

是不是还要安装MS ODBC等包？

谢谢了！

[猛禽]

如果只是客户端程序有gds32.dll是可以
如果还要服务端的话，还要打上IBServer.exe, isc4.gdb,interbase.msg等几个文件，具体的在BDN上有一篇文章有说，不过现在我找不到链接了。:<

DataControl,IBX的运行库可以编译到程序里去，不用带

ODBC不用。

[magc888]

关注

[erickleung]

首先你请说明你是用那种方式连上interbase? 用BDE? 用ibx或ibo或dbExpress?
後者最容易, 只需要interbase相同版本的 gds32.dll (windows用户端)或 gds32.so (linux用户端)

并在 windows 下的 services加上 gds_db 3050/tcp:

procedure TDatamodule1.DataModule1Create(Sender: TObject);
Var
s : String;
i : Integer;
b : Boolean;
Buf : PChar;
begin
With TRegistry.Create Do Try
RootKey := HKEY_LOCAL_MACHINE;
If OpenKey('SOFTWARE\Borland\InterBase\CurrentVersion', True) Then
If Not ValueExists('RootDirectory') Then
WriteString('RootDirectory', ExtractFilePath(ParamStr(0)));
Finally
Free;
End;
i := 255;
GetMem(Buf, i);
With TStringList.Create Do Try
If Win32Platform = VER_PLATFORM_WIN32_NT Then Begin
GetEnvironmentVariable(PChar('SystemRoot'), Buf, i);
s := Buf + '\System32\drivers\etc\services';
End Else Begin
GetEnvironmentVariable(PChar('WinDir'), Buf, i);
s := Buf + '\services';
End;
LoadFromFile(s);
b := True;
For i := 0 To Count-1 Do
If Copy(Strings[i], 1, 6) = 'gds_db' Then begin
b := False;
Break;
end;
If b Then Begin
Add('gds_db 3050/tcp # Borland InterBase Server');
SaveToFile(s);
End;
Finally
Free;
FreeMem(Buf);
End;
End;

[猛禽]

http://community.borland.com/article/0,1410,26386,00.html