|
#1
|
|||
|
|||
Подключение
Как мне сделать подключение к ADOConection, в котором указывается ссылка на базу и что бы этот файл имел уникальный формат!
|
#2
|
|||
|
|||
вот сделал что бы путь брал из файла
Код:
procedure OpenBD; var FP:TextFile; StringPath:string; NameOfFile:string; begin NameOfFile:=ExtractFileDir(Application.ExeName)+'\path.txt'; if FileExists(NameOfFile) then begin Assign(Fp,NameOfFile); try begin Reset(FP); Read(FP,StringPath); end; finally CloseFile(FP); end; end else begin ShowMessage('Файл пути к б.д. не найден'+ #13+ 'Создайте в папке программы файл path.txt'+ #13+ 'и запишите туда путь к б.д.'; end; Form1.ADOConnection1.ConnectionString:=StringPath; with form1 do begin ADOConnection1.Connected:=True; ADOQuery1.Active:=true; ADOQuery2.Active:=true; UserQuery.Active:=true; end; end; в событие oncreate прописываем Код:
OpenBD; вот как сделать что бы этот файл был зашифрован, могли бы подсказать, что бы его нельзя было прочитать каким либо редактором. |
#3
|
||||
|
||||
Шифруй самым простым алгоритмом, например XOR
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#4
|
|||
|
|||
а можно пример как это сделать?
|
#5
|
|||
|
|||
все разобрался! если кому интересно могу расписать как сделал!
Последний раз редактировалось жекаизжека, 16.01.2009 в 18:39. |