Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подключение к базе через сеть [D7, IB6.x]

inkotex © (2004-06-02 11:53:00)
Проблема следующая есть програма для работы с БД (Интербейс)
Прога прописывает путь к базе в ини файл, отдуда и щитывается путь.
Все работает, тока если база лежыт на другом компе в локалке возникает проблема неконектится к базе.
Что делать?
И ище а как делается подключение к базе через интернет

inkotex (2004-06-02 12:31:00) [1]
то (7) спасибо я разобрался а как быть с инетом?

app (2004-06-02 12:31:00) [2]
http://delphimaster.ru/cgi-bin/forum.pl?id=1086162787&n=1

Reindeer Moss Eater (2004-06-02 12:30:00) [3]
Точно так же

inkotex (2004-06-02 12:29:00) [4]
то (6) спасибо работает
Теперь бы ето все както красиво сделать имею ввиду чтоб пользователь указал что к базе надо подключится черезь сеть и путь нормально записывался в файл.
А как быть с подключением через инет?

1008 (2004-06-02 12:27:00) [5]
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;

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

Соловьев (2004-06-02 12:24:00) [6]

> <pc2>:c\base.gdb

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

Desdechado (2004-06-02 12:23:00) [7]
SERVERNAME:c:\base.gdb

inkotex (2004-06-02 12:19:00) [8]
то (4)

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

<pc2>@c\base.gdb

\\pc2>\c\base.gdb

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

Соловьев (2004-06-02 12:15:00) [9]

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

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

inkotex (2004-06-02 12:14:00) [10]
то (2)
А немог бы ты кусок етого кода поместить тут, я чтото пробую а неполучается.

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

1008 (2004-06-02 12:05:00) [11]
я бы порекомендовал в структуре:
try
except
end;

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

Соловьев (2004-06-02 11:55:00) [12]
IBDatabase.DatabaseName+F1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »