Delphi и Базы данных → Alias → Програмное создание нового DSN


type
TSQLConfigDataSource =
function(hwndParent: Integer;
fRequest: Integer;
lpszDriverString: string;
lpszAttributes: string): Smallint; stdcall;

function SQLConfigDataSource(hwndParent: Integer; fRequest: Integer;
lpszDriverString: string; lpszAttributes: string): Integer; stdcall;
var
func: TSQLConfigDataSource;
OdbccpHMODULE: HMODULE;

begin
OdbccpHMODULE := LoadLibrary(′c:WINDOWSSYSTEModbccp32.dll′);
if OdbccpHMODULE = 0 then
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Программно создаем Alias 2


procedure CreateAlias();
const
DlPs = 5;
var
wrstr, wrstr1 :string;
AParams: TStringList;
Psevdonm: array [1..DlPs] of string;
i: integer;
begin
//Заполним массив
Psevdonm[1] := ′TERMNNSI,NSI′; // имя,каталог
Psevdonm[2] := ′TERMNBASE,BASE′;
Psevdonm[3] := ′TERMNTNL,BASETNL′;
Psevdonm[4] := ′TERMNARH,ARH′;
Psevdonm[5] := ′TERMNTELE,TELE′;
// if not DirectoryExists(datapath) then begin
// createdir(datapath) ;
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Программно создаем Alias


procedure TForm1.Button3Click(Sender: TObject);
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;
Опубликовал admin
11 Мар, Вторник 2008г.

Delphi и Базы данных → Alias → Получаем информацию о псевдонимах BDE


var
MyAliasPath: string;
const
AliasName = ′MyAlias′;

{**** Получаем из BDE путь MyAlias}

ParamsList := TStringList.Create;

try
with Session do
begin
Session.GetAliasNames(ParamsList);
Session.GetAliasParams(AliasName, ParamsList);
MyAliasPath := Copy(ParamsList[0], 6, 50) + ′′;
end;
finally
ParamsList.Free;
end;
Опубликовал admin
11 Мар, Вторник 2008г.


RSS-материал

Программирование для чайников.