Поиск файлов в локальной сети через ip адрес

@Antoha18rus · Регистрация: 27.02.2018

Опять я, вообщем, и мне нужно как то сообразить
это нужно сделать поиск файлов, который будет из заданного диапазона ip адресов проверять каждый, подставляя ip адрес к введенной дерриктории ( к примеру 192.168.1.1\\C$\papka, 192.168.1.2\\C$\papka ) и если компьютер выключен он в Memo выводит что он выключен и так по циклу, пока все ip адреса не будут перебраны

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d:integer;
Kod: string;
begin
for a:=strtoint(edit1.Text) to strtoint(edit5.Text) do
for b:=strtoint(edit2.Text) to strtoint(edit6.Text) do
for c:=strtoint(edit3.Text) to strtoint(edit7.Text) do
for d:=strtoint(edit4.Text) to strtoint(edit8.Text) do
 
memo1.lines.add('Ссылка:    \\'+inttostr(a)+'.'+inttostr(b)+'.'+inttostr(c)+'.'+inttostr(d)+''+edit9.text+'');
Kod:= ('\\'+inttostr(a)+'.'+inttostr(b)+'.'+inttostr(c)+'.'+inttostr(d)+''+edit9.text+'') ;
end;
 
end.

@D1973 · 11.06.2019, 15:13

Antoha18rus, если у Вас разные подсети - Вы не сможете их пинговать без специального проброса портов на коммутаторе (роутере). Если у Вас одна подсеть - зачем весь этот ужас с четверным циклом...

@Antoha18rus · 11.06.2019, 18:36 **[ТС]**

Это курсач)

Добавлено через 3 минуты
И тут дело вообще не в пинге, нужно просто отыскать файл по директории, пройдясь по всем ip адресам от меньшего к большему

@D1973 · 11.06.2019, 20:10

Не по теме:

Сообщение от Antoha18rus

Это курсач

Сообщение от Antoha18rus

И тут дело вообще не в пинге

и это очень печально, что отучившись не знаю сколько времени Вы понятия не имеете о сетях вообще и о способах передачи файлов по сети в частности...

@Nanotentacle · 13.06.2019, 09:55

a,b,c,d - это byte а не integer.
А вот целиком айпишник представить как одно число типа Integer можно.

Далее. Определить свою подсеть можно будет булевой операции: IP and MASK. И менять только те биты, которые маска подсети отсекает, исключив широковещательный адрес (последний адрес в подсети) и адрес самой подсети (первый адрес в подсети). Ну и дальше простая математика. И даже диапазоны никакие вводить не надо.

@qwertehok · 13.06.2019, 15:02

Antoha18rus,
сначала нужно получить свой IP адрес, свою маску, узнать свою подсеть
сформировать список IP адресов и пропинговать его
у тех которые пингуются проверить наличие файла

очень удобно пинги и проверку вынести в дополнительный поток\и

@Antoha18rus · 13.06.2019, 19:12 **[ТС]**

Сообщение от qwertehok

Antoha18rus,
сначала нужно получить свой IP адрес, свою маску, узнать свою подсеть
сформировать список IP адресов и пропинговать его
у тех которые пингуются проверить наличие файла

Дк, в голове то я понимаю как устроенно, а вот код, я не могу сделать, скила не хватает...

@qwertehok · 13.06.2019, 19:59

Сообщение от Antoha18rus

а вот код, я не могу сделать

разбей на подзадачи и решай поэтапно
все это уже обсуждалось, нужно просто сложить пазл из кусочков

@Nanotentacle · 14.06.2019, 06:49

Не по теме:

Сообщение от Antoha18rus

Дк, в голове то я понимаю как устроенно, а вот код, я не могу сделать, скила не хватает...

Это примерно как в ситуации, когда стоит человек с лопатой, чешет затылок. Ты подходишь к нему, спрашиваешь "Что задумал?", и он отвечает, что хочет бассейн построить. А ты как раз специалист по бассейнам, о чем ему и говоришь. Человек сразу оживляется, и сообщает, что это просто замечательно, так как бассейны-то он строить не умеет, но вот совета от умного человека выслушать не против. Ты начинаешь ему рассказывать про фундамент, типы плиток, приточный водопровод и насосы. Собеседник кивает, улыбается, смотрит прямо в глаза и начинает ненавязчиво лопату совать тебе в руки, не перебивая и не прекращая улыбаться и кивать. Ты, поглощенный разговором, берешь в руки лопату и используешь ее в качестве указки, показывая где правильно разместить края бассейна, расчерчиваешь этой лопатой идеальный круг. Встаешь и говоришь "Ну, все рассказал, завтра заскочу и подскажу, если что идет не так".

А этот человек смотрит на тебя как на ненормального, переводя глаза с тебя на лопату в твоих руках, и говорит "Ты чо, дурак? Взял лопату - так копай, а я посмотрю. И сильно не траться в ближайший месяц, тебе еще бетон для заливки покупать. У меня знаний на бассейн не хватит, а ты вон умный какой. Давай, работай, бассейн сам не построится".

@D1973 · 14.06.2019, 06:59

Не по теме:

Тут еще другой нюанс...

Сообщение от Antoha18rus

И тут дело вообще не в пинге

Когда в ответ на совет тебе амбициозно и безапелляционно заявляют: "Шарик, ты балбес и нифига не понимаешь..." Ну, дык, и ладно тогда, дело-то хозяйское...

@D1973 Модератор 6758 / 4352 / 1869 Регистрация: 21.01.2014 Сообщений: 18,406 Записей в блоге: 3
	11.06.2019, 15:13	2
	Antoha18rus, если у Вас разные подсети - Вы не сможете их пинговать без специального проброса портов на коммутаторе (роутере). Если у Вас одна подсеть - зачем весь этот ужас с четверным циклом... 0

@Antoha18rus 0 / 0 / 0 Регистрация: 27.02.2018 Сообщений: 9
	11.06.2019, 18:36 [ТС]	3
	Это курсач) Добавлено через 3 минуты И тут дело вообще не в пинге, нужно просто отыскать файл по директории, пройдясь по всем ip адресам от меньшего к большему 0

@D1973
	11.06.2019, 20:10 #4
	Не по теме: Сообщение от Antoha18rus Это курсач Сообщение от Antoha18rus И тут дело вообще не в пинге и это очень печально, что отучившись не знаю сколько времени Вы понятия не имеете о сетях вообще и о способах передачи файлов по сети в частности... 0

@Nanotentacle 882 / 402 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	13.06.2019, 09:55	5
	a,b,c,d - это byte а не integer. А вот целиком айпишник представить как одно число типа Integer можно. Далее. Определить свою подсеть можно будет булевой операции: IP and MASK. И менять только те биты, которые маска подсети отсекает, исключив широковещательный адрес (последний адрес в подсети) и адрес самой подсети (первый адрес в подсети). Ну и дальше простая математика. И даже диапазоны никакие вводить не надо. 0

@qwertehok 3568 / 3040 / 819 Регистрация: 29.08.2013 Сообщений: 20,274 Записей в блоге: 2
	13.06.2019, 15:02	6
	Antoha18rus, сначала нужно получить свой IP адрес, свою маску, узнать свою подсеть сформировать список IP адресов и пропинговать его у тех которые пингуются проверить наличие файла очень удобно пинги и проверку вынести в дополнительный поток\и 0

@Antoha18rus 0 / 0 / 0 Регистрация: 27.02.2018 Сообщений: 9
	13.06.2019, 19:12 [ТС]	7
	Сообщение от qwertehok Antoha18rus, сначала нужно получить свой IP адрес, свою маску, узнать свою подсеть сформировать список IP адресов и пропинговать его у тех которые пингуются проверить наличие файла Дк, в голове то я понимаю как устроенно, а вот код, я не могу сделать, скила не хватает... 0

@qwertehok 3568 / 3040 / 819 Регистрация: 29.08.2013 Сообщений: 20,274 Записей в блоге: 2
	13.06.2019, 19:59	8
	Сообщение от Antoha18rus а вот код, я не могу сделать разбей на подзадачи и решай поэтапно все это уже обсуждалось, нужно просто сложить пазл из кусочков 0

@Nanotentacle
	14.06.2019, 06:49 #9
	Не по теме: Сообщение от Antoha18rus Дк, в голове то я понимаю как устроенно, а вот код, я не могу сделать, скила не хватает... Это примерно как в ситуации, когда стоит человек с лопатой, чешет затылок. Ты подходишь к нему, спрашиваешь "Что задумал?", и он отвечает, что хочет бассейн построить. А ты как раз специалист по бассейнам, о чем ему и говоришь. Человек сразу оживляется, и сообщает, что это просто замечательно, так как бассейны-то он строить не умеет, но вот совета от умного человека выслушать не против. Ты начинаешь ему рассказывать про фундамент, типы плиток, приточный водопровод и насосы. Собеседник кивает, улыбается, смотрит прямо в глаза и начинает ненавязчиво лопату совать тебе в руки, не перебивая и не прекращая улыбаться и кивать. Ты, поглощенный разговором, берешь в руки лопату и используешь ее в качестве указки, показывая где правильно разместить края бассейна, расчерчиваешь этой лопатой идеальный круг. Встаешь и говоришь "Ну, все рассказал, завтра заскочу и подскажу, если что идет не так". А этот человек смотрит на тебя как на ненормального, переводя глаза с тебя на лопату в твоих руках, и говорит "Ты чо, дурак? Взял лопату - так копай, а я посмотрю. И сильно не траться в ближайший месяц, тебе еще бетон для заливки покупать. У меня знаний на бассейн не хватит, а ты вон умный какой. Давай, работай, бассейн сам не построится". 0

@D1973
	14.06.2019, 06:59 Поиск файлов в локальной сети через ip адрес #10
	Не по теме: Тут еще другой нюанс... Сообщение от Antoha18rus И тут дело вообще не в пинге Когда в ответ на совет тебе амбициозно и безапелляционно заявляют: "Шарик, ты балбес и нифига не понимаешь..." Ну, дык, и ладно тогда, дело-то хозяйское... 0

Опции темы