Форум: "Базы";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];

Вниз

как добавить строчку в service??   Найти похожие ветки 

← →
КомофОнСамый   (2004-02-05 19:53) [0]

коректно. чтоб и на 9х и на НТ/2000/ХР работало...

Проверяем наличие в файле Services строчки gds_db 3050/tcp
и если нет - то добавляем?

---

← →
kaif   (2004-02-05 20:05) [1]

Кстати, насколько я знаю, прописывать в Services эти вещи для последних версий Yaffil и Firebird не обязательно. Хотя, может ошибаюсь - тогда пусть меня поправят.

---

← →
Anatoly Podgoretsky   (2004-02-05 20:33) [2]

Функция POS

---

← →
Romkin   (2004-02-06 09:38) [3]

2Anatoly Podgoretsky не совсем :)
Лови, первая проверяет, вторая делает:

Sgds = "gds_db 3050/tcp";
SIBServ = "gds_db";

function GetIBService(var IBPort: integer): boolean;
var
ServEnt: PServEnt;
begin
Result := false;
ServEnt := GetServByName(PChar(SIBServ), "tcp");
if assigned(ServEnt) then
begin
Result := true;
IBPort := ntohs(ServEnt.s_port);
end;
end;

function WriteServString(const ServString: string): boolean;
var
ServFile: textFile;
reg: TRegistry;
ServPath: string;
PathStr: array [0..MAX_PATH] of char;
begin
Result := false;
//Путь
if GetWindowsDirectory(PathStr, MAX_PATH) = 0 then
RaiseLastOSError;
ServPath := IncludeTrailingPathDelimiter(PathStr);
Reg := TRegistry.Create(KEY_READ);
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKeyReadOnly(ServiceKey) then
begin
ServPath := reg.ReadString("DataBasePath");
ExpandEnvironmentStrings(PChar(ServPath), PathStr, MAX_PATH);
ServPath := IncludeTrailingPathDelimiter(PathStr);
end;
finally
reg.CloseKey;
reg.Free;
end;
assignFile(ServFile, ServPath + "Services");
append(ServFile);
try
Writeln(ServFile, Sgds);
Result := true;
finally
CloseFile(ServFile);
end;
end;

---

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

Форум: "Базы";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c