установка клиентской части СУБД

[Банзай]

я делал так, настраивал в ODBC алиас с именем что в программе используется, а ConnectionString для ADO сохронял в отдельном файле настроек, чтоб при надобности можно было логин сменить. теперь к примеру мне нужно эту программу поставить штук на двенадцать машин, на каждой по новой ставить нужные драйвера и настраивать алиас в ручную, както не сильно радует, может есть какойнибудь универсальный метод? подскажите кто знает. и как с ConnectionString быть, чтоб логин посторонний не мог узнать?

[Pitbull]

Сообщение от Банзай

я делал так, настраивал в ODBC алиас с именем что в программе используется, а ConnectionString для ADO сохронял в отдельном файле настроек, чтоб при надобности можно было логин сменить. теперь к примеру мне нужно эту программу поставить штук на двенадцать машин, на каждой по новой ставить нужные драйвера и настраивать алиас в ручную, както не сильно радует, может есть какойнибудь универсальный метод? подскажите кто знает. и как с ConnectionString быть, чтоб логин посторонний не мог узнать?

инсталяцию создай...
а чтобі пароли никто не видел, то нужно зашифровать данніе...
ну тут Вам есть где разгуляться.... Вот вам простенький пример кодрования и декодирования с использованием простого ключа...
//кодирование
for i:=1 to length(stroka) do
stroka[i]:=chr(ord(stroka[i]) xor key);
//декодирование
for i:=1 to length(stroka) do
stroka[i]:=chr(key xor ord(stroka[i]));



если нужно закодировать фаил, то вот так:

procedure CodeFile;
var
data: byte;
i: integer;
first_file,
second_file: TStream;
begin

first_file:=TFileStream.Create(Form 1.Edit1.Text,fmOpenRead);

second_file:=TFileStream.Create(For m1.Edit2.Text,fmCreate);
for i:=0 to first_file.Size do
begin
first_file.Position:=i;
second_file.Position:=i;
first_file.Read(data,1);
data:=(data-(i*число));
second_file.Write(data,1);
Application.ProcessMessages;
end;
first_file.Free;
second_file.Free;
end;

//Декодирование
procedure DecodeFile;
var
data: byte;
i: integer;
first_file,
second_file: TStream;
begin
first_file:=TFileStream.Create(Form 1.Edit2.Text,fmOpenRead);
second_file:=TFileStream.Create('c: \decodefile.txt',fmCreate);
for i:=0 to first_file.Size do
begin
first_file.Position:=i;
second_file.Position:=i;
first_file.Read(data,1);
data:=(data+(i*число));
second_file.Write(data,1);
Application.ProcessMessages;
end;
first_file.Free;
second_file.Free;
end;

[Банзай]

а как инсталл сделать? и у меня такой прикол, сначала ставится драйвер MySQL Connector, а потом через него настраивается алиас.

[Pitbull]

Сообщение от Банзай

а как инсталл сделать? и у меня такой прикол, сначала ставится драйвер MySQL Connector, а потом через него настраивается алиас.

на форуме поищи..Тут неоднократно обсуждаются программі для создания инсталяций....
а вообще я настраиваю руками =)
но , если єто виндовая настройка, то думаю, что єто можно программно прописать, но как я не знаю....