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

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

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

Подключённый диск. IP - ? [D6, Win95/98]

Страницы: 1 2 >
Chlavik © (2002-10-07 02:09:00)
Скажите если я знаю букву сетевого диска то как узнать его Ip Адрес.

Rouse_ (2002-10-11 09:24:00) [1]

> Reindeer Moss Eater (11.10.02 08:57)

;))
Расслабся, я ему в другой ветке сегодня утром все рассусолил

Reindeer Moss Eater (2002-10-11 08:57:00) [2]
Тяжело с тобой.
Поищи файлы *.pas содержащие строку function GetHostByNameв подкаталогах папки Delphi\Source\

Chlavik (2002-10-11 00:22:00) [3]
Блин у меня Delphi не выкупает эту фунцию. что это за библиотека?
Какой это модуль???

Reindeer Moss Eater (2002-10-10 18:30:00) [4]
А как ОНОего нашло во время подключения диска?

Chlavik (2002-10-10 18:26:00) [5]
А оно его найдёт Мало ли в инете Таких юзеров типа Admin
или Server (\\server\g) ?

Reindeer Moss Eater (2002-10-10 18:22:00) [6]
Достал сетевое имя. Хорошо.
Теперь извлеки имя хоста (строка между "\\" и первым одиночным "\")
После чего убедись, что это не IP адрес.
И если это не IP адрес, то наступит очередь для вызова функции GetHostByName

Chlavik (2002-10-10 18:00:00) [7]
Ты вопросы вообще пробовал читать????
Chlavik © (07.10.02 15:06)

Понимаеш через WNetGetConnection я достал сетевое имя. В этом я уже разобрался но как мне замутить Resolve имени хоста, и как извлеч последнее( чесно говоря я не знаю что такое хост..).

Reindeer Moss Eater (2002-10-10 08:52:00) [8]
Ты ответы вообще пробовал читать????
Reindeer Moss Eater (07.10.02 09:28)

Chlavik (2002-10-09 17:59:00) [9]
Я уже с этим разобрался
Короче оказалось это не то что мне нада функция возвращает
такой формат \\admin\f а мне нада \\xxx.xxx.xxx\f
где xxx.xxx.xxx - это Ip компьютера с которого через интернет подключен сетеваой диск. Если хватит терпения то напишите как это сделать? Или какуюто другую функцию которая сразу выдаст Ip.
Жду ответа!

Reindeer Moss Eater (2002-10-09 09:02:00) [10]
Chlavik, а F1 нажать не пробовал?
var Msg:string;
case WNetGetConnection(....) of
ERROR_BAD_DEVICE: Msg:="The string pointed to by the pLocalName parameter is invalid";

ERROR_NOT_CONNECTED: Msg:="The device specified by lpLocalName is not redirected.";
ERROR_MORE_DATA: Msg:="The buffer is too small. The lpnLength parameter points to a variable that contains the required buffer size. More entries are available with subsequent calls.";
ERROR_CONNECTION_UNAVAIL: Msg:="The device is not currently connected, but it is a persistent connection.";
ERROR_NO_NETWORK: Msg:="No network is present.";
ERROR_EXTENDED_ERROR: Msg:= "A network-specific error occurred. To get a description of the error, use the WNetGetLastError function.";
ERROR_NO_NET_OR_BAD_PATH: Msg:="None of the providers recognized this local name as having a connection. ";
end;
ShowMessage(Msg);

vidiv (2002-10-09 05:30:00) [11]
Х.. знает!!!:)

Chlavik (2002-10-09 01:55:00) [12]
Видно я мало прочитал про функцию :) короче я разобрался только вот использую Delphi 6 и уменя эта функция возвращает код ошибки числом, в моём случае она выдаёт 1200 что это значит?

Chlavik (2002-10-08 19:40:00) [13]
Так в том то и прикол что я не знаю NetPath. Я так думаю что ты меня не понял. Через функцию GetDriveType я опреляю какие из дисков подключены,в итоге я знаю буквы этих дисков. А теперь мне надо узнать их Ip т.е. мне нужен NetPath от подключённого диска, как ты хотел найти через функцию WNetGetConnection я не знаю мне что перебирать все комбинации символов которые там возможны, потом присваивать их NetPath :-).... Жду ответа...

Reindeer Moss Eater (2002-10-08 08:56:00) [14]
var LocalName:string; NetPath :string; Len :Cardinal; begin LocalName:="Y:"; Len:=255; SetLength(NetPath,Len); if WNetGetConnection(PChar(LocalName),PChar(NetPath),Len) = NO_ERROR then begin SetLength(NetPath,Len); ShowMessage("Диску Y: соответствует путь "+NetPath); end; end;

Chlavik (2002-10-08 00:47:00) [15]
Да, спасибо за функцию.........
Я уже и читал про неё и сам пробовал разобратся, но блин обьясните мне как её юзать какие у неё параметры и что она возвращает?

Reindeer Moss Eater (2002-10-07 17:23:00) [16]
WNetGetConnection(...)

Chlavik (2002-10-07 17:14:00) [17]
А может это ? NetResource: TNetResource;

Reindeer Moss Eater (2002-10-07 17:00:00) [18]
WNetGetConnection(...)

Chlavik (2002-10-07 16:55:00) [19]
Давай наверное в чате поговорим я вижу ты в онлайне..
Говори когда и твой ник. на моих чесах 15:50..

Reindeer Moss Eater (2002-10-07 16:45:00) [20]
Все по новой? :)

Reindeer Moss Eater (07.10.02 09:28)

Страницы: 1 2 >

Наверх

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