Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Где запущена программа? [D6, IB5.x]


Igor_ ©   (2002-02-27 13:24:00) 

Есть клиент серверная БД. Как клиентской программой определить на каком компьютере она работает (на том, где стоит сервер InterBase или просто на компьютере в сети).


Igor_   (2002-02-27 16:47:00) [1]

Спасибо, помогло. Только i:Cardinal -иначе ругается


Praco   (2002-02-27 15:54:00) [2]

var s : PChar;
i : Integer;
begin
i := MAX_COMPUTERNAME_LENGTH + 1;
GetMem(s,i);
if GetComputerName(s, i) then
Caption := s;
FreeMem(s);
end;


Igor_   (2002-02-27 14:44:00) [3]

Если не сложно, напиши пожалуста с какими параметрами она вызывается, а то я что-то разобраться не могу


Praco   (2002-02-27 13:42:00) [4]

GetComputerName сравнить с именем IB сервера


Наверх

Титульная страница Поиск, карта сайта Написать письмо