merhaba
installshield express te
objects/merge modules seçeneğinden bde_ent i seçiyorum ve oradan aliasımı tanımlıyorum.fakat programı kurduğumda bde administrator u kurulmuş fakat benim alias ım eklenmemiş oluyor. neden?
ben alias ımı nasıl ekleyeceğim?
alias ımı eklemiyor
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Kod: Tümünü seç
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add('SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB');
Add('USER NAME=MYNAME');
end;
Session1.AddAlias('NewIBAlias', 'INTRBASE', MyList);
finally
MyList.Free;
end;
end;
Ek olarak aşağıdaki kodda olmayan bir alias ' ı kontrol edip düzeltmeye yarar (delphi helpinden alıntıdır)
Kod: Tümünü seç
procedure TForm1.ChangeAlias;
var
AParams: TStringList;
Dir: string;
begin
if not Session.IsAlias('MyAlias') then
begin
ShowMessage('Alias MyAlias does not exist');
Exit;
end;
AParams := TStringList.Create;
try
// get the current PATH parameter
Session.GetAliasParams('MyAlias',AParams);
Dir := Copy(AParams.Strings[0],6,255);
// get the new PATH parameter
if InputQuery('MyAlias Alias Path','Path:' ,Dir) then
begin
// Update the alias parameters
AParams.Clear;
AParams.Add('PATH=' + Dir);
Session.ModifyAlias('MyAlias',AParams);
Session.SaveConfigFile;
end;
finally
AParams.Free;
end;
end;