请问一下如何在Istall Shield Professional 6.22 中设置bde的别名路径?????(100分)

L

ld999

Unregistered / Unconfirmed
GUEST, unregistred user!
我在Istall Shield Professional 6.22 中将bde也打包了,并且也安装成功,但是只设了
别名,却怎么也找不到别名的路径在什么地方设置!!!,愁坏了,安装完成以后,运行程序
总是报错,即打不到别名。
请问一下各位高手,如何进行设置?????
 
请大家赐教!!!!!不胜感激!!!!!
 
我在installshield 的工程中加入了bde对象,但是对象向导中只有别名的名称和类型可以
选择,对于别名的路径不能设置。在安装之后,系统运行时找不到别名,我想问一下各位
是否需要在脚本中用函数设置,如果是,应用什么函数????
我的数据库类型选择的是dbase类型。在类型下面的列表框中有一些内容。我不知道是什么意思,
请指教。
 
在BDE 5.1 Wizard - Step 2 中可以对别名的各种参数进行设置。如果你的不行,定是在
其它地方搞错了。
 

ap:TStringList;
{字符串列表变量}
answer:Integer;
strDir : string;
begin
ap:=TStringlist.Create;
Session.GetAliasNames(ap);
{取得别名列表}
if (ap.IndexOf('MachineAdmin')=-1) then
{判断别名是否存在}
begin
{ answer:=Application.MessageBox('别名Cntssamp不存在,现在创建吗?','BDE信息窗口',mb_OKCancel);
if answer=IDCANCEL then
begin
ap.Free;
Exit;
end;
}
strDir := GetCurrentDir;
//路径你自己定义
Session.AddStandardAlias('sbd',strDir,'Paradox');
//
Session.SaveConfigFile;
{BDE配置文件存盘}
ap.Clear;
{取得别名Cngzsamp中的所有表格名称列表}
end ;
ap.free;
{释放变量ap}

下面再给你一段代码, 这是在BDE建立SQL server的别名的。
var
GetAlias: TStringList;
ServerStr: String;
begin
serverStr:='MyServer';
//你的sql server所在的服务器的名称, 也可用IP地址
//建立别名
GetAlias:=TStringList.Create;
Session.GetAliasNames(GetAlias);
//取得别名列表。
if GetAlias.IndexOf(AliName)<>-1 then
begin
Session.DeleteAlias(AliName);
Session.SaveConfigFile;
end;
try
Session.AddStandardAlias(AliName,'','MSSQL');
Session.SaveConfigFile;
//modify para
GetAlias.Clear;
GetAlias.Add('User name=sa');
GetAlias.Add('SQLQRYMODE=SERVER');
GetAlias.add('Server name='+ServerStr);
GetAlias.add('DataBase name=XXXyz');
Session.ModifyAlias(AliName,GetAlias);
Session.SaveConfigFile;
with DataBase1do
begin
Connected:=False;
LoginPrompt:=False;
AliasName:=AliName;
DatabaseName:='XXX_SQL';
Params.Clear;
Params.Add('User Name=sa');
Params.Add('Password=');
Connected:=True;
LoginDB:=True;
end;
except
Application.MessageBox('系统建立目标失败,请确定服务器已运行。','错误',MB_ICONERROR+mb_OK);
Application.Terminate;
end;

对于单机应用。建议只建立一个目录存放数据,如data目录,这样别名只做一个便可。
//使得数据库应用系统可以安装在任何目录
只要能得到你存放数据的目录,动态建立别名便可。
ExtractFileDir(Application.ExeName)+'/Data'
如果用SQL Server的话,数据存放在服务器上位置是固定的,可以上程序开始时
建立别名,结束时删除它。
:
//Create current prog's alias ;
GetDir(0,s);
AliName:='';
for i:=1 to Length(s)do
if (Copy(s,i,1)<>':') and (Copy(s,i,1)<>'/') and (Copy(s,i,1)<>' ')then
AliName:=AliasName+Copy(s,i,1);
.......
if GetAlias.IndexOf(AliName)=-1 then
try
Session1.AddStandardAlias(AliName,
ExtractFileDir(Application.ExeName)+'/Data','Paradox');
Session1.SaveConfigFile;
except
Application.MessageBox('建立别名失败!','错误',MB_ICONERROR+mb_OK);
Application.Terminate;
end;

 
to htw and hanyongian friends
我想问的是在installshield中如何进行设置别名的路径,并不是在delphi程序中。
正如hyongian 朋友所说的,BDE 5.1 Wizard 共分两步,其中step 1 中只是选择或添加一
个别名,在 Step 2 中有三个可操作的地方,其中一个是选择刚建立的别名,我选的是我刚
建立的别名 myzls 。在第二个是选择数据库的驱动,我选的是Dbase
接下来,是一个列表框,其中有如下内容:(列表框的标题是:edit optional parameters:)
VERSION=
TYPE:STANDARD
LANGDRIVER=
LEVEL=
MDXBLOCKSIZE=
MEMO FILE BLOCK SIZE=
DEFAULT DRIVER=
ENABLE BCD=
在以上信息中我找不到在哪儿设置路径,请教大家,以上信息都是什么意思。
请问路径在什么地方设置????
急!!!急!!!!
请多指点
 
我用的不是installshield for delphi 而是 Istall Shield Professional 6.22
所以别名的设置可能与论坛中各位老师说的不太一样,请教大家多多指点一下我应该如何
设置??????
 
请朋友们帮忙解决这一问题,到底如何在Istall Shield Professional 6.22中设置别名的
路径???
 
请大家帮助一下小弟吧!!!!
版主在吗,朋友在吗????
 
谢谢,my friend
 
顶部