Подключённый диск. IP

← →
Chlavik (2002-10-07 02:09) [0]

Скажите если я знаю букву сетевого диска то как узнать его Ip Адрес.

← →
Reindeer Moss Eater (2002-10-07 09:28) [1]

Сначала получаем сетевой путь, соответствующий букве.
Извлекаем из него имя хоста. Пробуем резолвить это имя.

PS: А в в итоге может оказаться, что нет никакого IP адреса у этого хоста

← →
Chlavik (2002-10-07 15:06) [2]

Дайте по больше инфы ато я ДУБ ДУБОМ!!!!!!!!!!!!!

← →
Reindeer Moss Eater (2002-10-07 15:19) [3]

И что, в таком случае, ты будешь делать с полученным IP?

← →
Chlavik (2002-10-07 16:30) [4]

:) Этот диск подключён таким образом
\\212.160.111.11\d
Nfr вот дупустим я не знаю Ip подключённого диска то как мне его узнать? (зато я знаю его букву).....

← →
Reindeer Moss Eater (2002-10-07 16:45) [5]

Все по новой? :)

Reindeer Moss Eater (07.10.02 09:28)

← →
Chlavik (2002-10-07 16:55) [6]

Давай наверное в чате поговорим я вижу ты в онлайне..
Говори когда и твой ник. на моих чесах 15:50..

← →
Reindeer Moss Eater (2002-10-07 17:00) [7]

WNetGetConnection(...)

← →
Chlavik (2002-10-07 17:14) [8]

А может это ? NetResource: TNetResource;

← →
Reindeer Moss Eater (2002-10-07 17:23) [9]

WNetGetConnection(...)

← →
Chlavik (2002-10-08 00:47) [10]

Да, спасибо за функцию.........
Я уже и читал про неё и сам пробовал разобратся, но блин обьясните мне как её юзать какие у неё параметры и что она возвращает?

← →
Reindeer Moss Eater (2002-10-08 08:56) [11]

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 19:40) [12]

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

← →
Chlavik (2002-10-09 01:55) [13]

Видно я мало прочитал про функцию :) короче я разобрался только вот использую Delphi 6 и уменя эта функция возвращает код ошибки числом, в моём случае она выдаёт 1200 что это значит?

← →
vidiv (2002-10-09 05:30) [14]

Х.. знает!!!:)

← →
Reindeer Moss Eater (2002-10-09 09:02) [15]

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);

← →
Chlavik (2002-10-09 17:59) [16]

Я уже с этим разобрался
Короче оказалось это не то что мне нада функция возвращает
такой формат \\admin\f а мне нада \\xxx.xxx.xxx\f
где xxx.xxx.xxx - это Ip компьютера с которого через интернет подключен сетеваой диск. Если хватит терпения то напишите как это сделать? Или какуюто другую функцию которая сразу выдаст Ip.
Жду ответа!

← →
Reindeer Moss Eater (2002-10-10 08:52) [17]

Ты ответы вообще пробовал читать????
Reindeer Moss Eater (07.10.02 09:28)

← →
Chlavik (2002-10-10 18:00) [18]

Ты вопросы вообще пробовал читать????
Chlavik © (07.10.02 15:06)

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

← →
Reindeer Moss Eater (2002-10-10 18:22) [19]

Достал сетевое имя. Хорошо.
Теперь извлеки имя хоста (строка между "\\" и первым одиночным "\")
После чего убедись, что это не IP адрес.
И если это не IP адрес, то наступит очередь для вызова функции GetHostByName

← →
Chlavik (2002-10-10 18:26) [20]

А оно его найдёт Мало ли в инете Таких юзеров типа Admin
или Server (\\server\g) ?

← →
Reindeer Moss Eater (2002-10-10 18:30) [21]

А как ОНО его нашло во время подключения диска?

← →
Chlavik (2002-10-11 00:22) [22]

Блин у меня Delphi не выкупает эту фунцию. что это за библиотека?
Какой это модуль???

← →
Reindeer Moss Eater (2002-10-11 08:57) [23]

Тяжело с тобой.
Поищи файлы *.pas содержащие строку function GetHostByName в подкаталогах папки Delphi\Source\

← →
Rouse_ (2002-10-11 09:24) [24]

> Reindeer Moss Eater (11.10.02 08:57)

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

Подключённый диск. IP - ? Найти похожие ветки