Скачать: CL | DM;

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

← →
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) спасибо работает
Теперь бы ето все както красиво сделать имею ввиду чтоб пользователь указал что к базе надо подключится черезь сеть и путь нормально записывался в файл.
А как быть с подключением через инет?

---

← →
Reindeer Moss Eater ©   (2004-06-02 12:30) [10]

Точно так же

---

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

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

---

← →
app ©   (2004-06-02 12:31) [12]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.023 c