Подключение к базе через сеть

← →
inkotex (2004-06-02 11:53) [0]

Проблема следующая есть програма для работы с БД (Интербейс)
Прога прописывает путь к базе в ини файл, отдуда и щитывается путь.
Все работает, тока если база лежыт на другом компе в локалке возникает проблема неконектится к базе.
Что делать?
И ище а как делается подключение к базе через интернет

← →
Соловьев © (2004-06-02 11:55) [1]

IBDatabase.DatabaseName+F1

← →
1008 © (2004-06-02 12:05) [2]

я бы порекомендовал в структуре:
try
except
end;

пытаться подключиться, если не получается, то в except предлагать пользователю ручками указать имя машины и путь к базе (у меня так и пока работает).

← →
inkotex (2004-06-02 12:14) [3]

то (2)
А немог бы ты кусок етого кода поместить тут, я чтото пробую а неполучается.

то (1) пробую как в хелпе но неполучается.

← →
Соловьев © (2004-06-02 12:15) [4]

> пробую как в хелпе но неполучается.

что пишешь? тут телепаты выехали

← →
inkotex (2004-06-02 12:19) [5]

то (4)

вот пример
<pc2>:c\base.gdb

<pc2>@c\base.gdb

\\pc2>\c\base.gdb

неодин вареант не работает.

← →
Desdechado © (2004-06-02 12:23) [6]

SERVERNAME:c:\base.gdb

← →
Соловьев © (2004-06-02 12:24) [7]

> <pc2>:c\base.gdb

<pc2> - тут имя сервера(можно ай-пи)
c\base.gdb - путь к БД на серваке
: - протокол TCP/IP - стоит такой у вас в сети?

← →
1008 © (2004-06-02 12:27) [8]

inkotex (02.06.04 12:14) [3]

var
var
inf:TIniFile;
tmps:string;
begin
try
inf:=TIniFile.Create(ExtractFilePath(Application.ExeName)+"Setting.ini");
tmps:=inf.ReadString("Base","Path","");
inf.Free;
Base.DataBaseName:=tmps;
Base.Connected:=true;
except
if messagebox(0,"Базы нет натыкивай руками","Глюк!",mb_yesno)=id_yes then begin
{тут я открываю форму в которой юзера просят ввести имя машины с базой и локальный для той машины путь. Полученную информацию сохраняю в ini-файле в формате: <машина>:<путь>}
inf:=TIniFile.Create(ExtractFilePath(Application.ExeName)+"Setting.ini");
tmps:=inf.ReadString("Base","Path","");
inf.Free;
Base.DataBaseName:=tmps;
Base.Connected:=true;
end else begin
messagebox(0,"Ага и машина без колёс у тебя поедет?","Супер глюк",mb_ok);
close;
end;
end;

Код конечно кривой, но делаю примерно таким образом.

← →
inkotex (2004-06-02 12:29) [9]

то (6) спасибо работает
Теперь бы ето все както красиво сделать имею ввиду чтоб пользователь указал что к базе надо подключится черезь сеть и путь нормально записывался в файл.
А как быть с подключением через инет?

Точно так же

← →
inkotex (2004-06-02 12:31) [11]

то (7) спасибо я разобрался а как быть с инетом?

http://delphimaster.net/view/3-1086162787/

Подключение к базе через сеть Найти похожие ветки