Вверх ↑
Этот топик читают: Гость
Ответов: 817
Рейтинг: 52
#1: 2009-03-17 16:16:49 ЛС | профиль | цитата
Приятного времени суток господа !
На этапе определения имени хоста по Ip подвисает программка
и не выдает никаких данных.
Просто IP выдает замечательно.
Подскажите в чем может быть проблема ?
Заранее всем спасибо
code_12242.txt
карма: 1

0
файлы: 1code_12242.txt [3.7KB] [185]
Ответов: 1088
Рейтинг: 112
#2: 2009-03-17 16:24:03 ЛС | профиль | цитата

Add(MainForm,10704345,427,287)
{
Width=237
Height=393
}
Add(ChildGroupBox,11362543,567,287)
{
}
BEGIN_SDK
Add(EditMulti,15025027,343,21)
{
}
Add(GroupBox,10010220,357,105)
{
Left=5
Top=5
Width=218
Height=350
Font=[MS Sans Serif,8,1,0,1]
Caption="Настройка"
}
Add(Edit,12050911,161,203)
{
Left=15
Top=40
Width=85
Text="192.168.0.1"
}
Add(Button,5982023,42,420)
{
Left=5
Top=325
link(onClick,12713440:doStart,[])
}
Add(Edit,12958656,210,203)
{
Left=125
Top=40
Width=85
Text="192.168.0.254"
}
Add(Label,10108665,7,7)
{
Left=5
Top=25
Width=201
Height=17
Caption="Сканировать сеть: (вписать IP адреса)"
}
Add(Label,16521339,133,7)
{
Left=5
Top=45
Width=10
Height=17
Caption="с"
}
Add(Label,349946,49,7)
{
Left=110
Top=45
Width=16
Height=17
Caption="по"
}
Add(ListBox,15292983,385,420)
{
Left=5
Top=90
Width=195
Height=230
}
Add(Label,9924667,91,7)
{
Left=5
Top=75
Width=48
Height=17
Caption="Найдено"
}
Add(For,12667764,182,420)
{
link(onEvent,12239115:doString,[])
link(Start,9069518:Var1,[])
link(End,9069518:Var2,[])
}
Add(MultiElement,9069518,182,294)
{
link(Data1,12050911:Text,[(188,264)(167,264)])
link(Data2,12958656:Text,[(195,264)(216,264)])
}
BEGIN_SDK
Add(EditMulti,200163,21,21)
{
DataCount=2
VarCount=3
Width=643
Height=326
HOffset=49
link(Var1,7466184:Right,[(76,330)(321,330)])
link(Var2,14749946:Right,[(83,336)(552,336)])
link(Var3,3052353:FString,[(90,291)(279,291)])
}
Add(StrPart,13748527,231,119)
{
Char="."
Point(Right)
Point(Left)
link(onSplit,1892295:doSplit,[])
link(Str,200163:Data1,[(237,70)(76,70)])
}
Add(StrPart,1892295,273,119)
{
Char="."
Point(Right)
Point(Left)
link(onSplit,7466184:doSplit,[])
link(Str,13748527:Right,[(279,107)(258,107)(258,163)(237,163)])
}
Add(StrPart,7466184,315,119)
{
Char="."
Point(Right)
Point(Left)
link(onSplit,10096485:doEvent1,[])
link(Str,1892295:Right,[(321,107)(300,107)(300,163)(279,163)])
}
Add(StrPart,12260184,462,119)
{
Char="."
Point(Right)
link(onSplit,809680:doSplit,[])
link(Str,200163:Data2,[(468,63)(83,63)])
}
Add(StrPart,809680,504,119)
{
Char="."
Point(Right)
link(onSplit,14749946:doSplit,[])
link(Str,12260184:Right,[(510,107)(489,107)(489,163)(468,163)])
}
Add(StrPart,14749946,546,119)
{
Char="."
Point(Right)
link(Str,809680:Right,[(552,107)(531,107)(531,163)(510,163)])
}
Add(Timer,4638575,42,119)
{
Interval=1
AutoStop=1
link(onTimer,13748527:doSplit,[])
}
Add(FormatStr,3052353,273,203)
{
DataCount=3
Mask="%1.%2.%3."
Point(FString)
link(Str1,13748527:Left,[(279,177)(244,177)])
link(Str2,1892295:Left,[])
link(Str3,7466184:Left,[(293,177)(328,177)])
}
Add(Hub,10096485,364,119)
{
link(onEvent1,12260184:doSplit,[])
link(onEvent2,3052353:doString,[(388,132)(388,242)(261,242)(261,209)])
}
END_SDK
Add(FormatStr,12239115,231,420)
{
Mask="%1%2"
Point(FString)
link(onFString,11559437:doHostByIP,[])
link(Str1,9069518:Var3,[(237,373)(202,373)])
link(Str2,12667764:Position,[(244,408)(216,408)(216,464)(188,464)])
}
Add(Host,11559437,287,420)
{
link(onHostByIP,15292983:doAdd,[])
link(IP,12239115:FString,[(293,408)(265,408)(265,464)(237,464)])
}
Add(Thread,12713440,91,420)
{
Delay=1
FastStop=0
link(onExec,12667764:doFor,[])
}
END_SDK
мля не пишите в примерах кирилицей.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 590
Рейтинг: 19
#3: 2009-03-17 16:24:46 ЛС | профиль | цитата
проблемма в компоненте host... видимо не может определить host для какого-то из ip
карма: 0

0
Ответов: 1088
Рейтинг: 112
#4: 2009-03-17 16:28:22 ЛС | профиль | цитата
EcsTasY, гг опоздал и не угадал
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 590
Рейтинг: 19
#5: 2009-03-17 16:29:22 ЛС | профиль | цитата
Sniper36, не плохо.. но проблемму-то не решил..

Add(MainForm,9716741,210,105)
{
Width=237
Height=393
}
Add(ChildGroupBox,11362543,350,105)
{
}
BEGIN_SDK
Add(EditMulti,15025027,343,21)
{
}
Add(GroupBox,10010220,357,105)
{
Left=5
Top=5
Width=218
Height=350
Font=[MS Sans Serif,8,1,0,1]
Caption="Настройка"
}
Add(Edit,12050911,154,203)
{
Left=15
Top=40
Width=85
Text="192.168.0.1"
}
Add(Button,5982023,49,420)
{
Left=5
Top=325
link(onClick,12667764:doFor,[])
}
Add(Edit,12958656,203,203)
{
Left=125
Top=40
Width=85
Text="192.168.0.254"
}
Add(Label,10108665,7,7)
{
Left=5
Top=25
Width=201
Height=17
Caption="Сканировать сеть: (вписать IP адреса)"
}
Add(Label,16521339,133,7)
{
Left=5
Top=45
Width=10
Height=17
Caption="с"
}
Add(Label,349946,49,7)
{
Left=110
Top=45
Width=16
Height=17
Caption="по"
}
Add(ListBox,15292983,406,420)
{
Left=5
Top=90
Width=195
Height=230
}
Add(Label,9924667,91,7)
{
Left=5
Top=75
Width=48
Height=17
Caption="Найдено"
}
Add(For,12667764,175,420)
{
link(onEvent,12239115:doString,[])
link(Start,9069518:Var1,[])
link(End,9069518:Var2,[])
}
Add(MultiElement,9069518,175,294)
{
link(Data1,12050911:Text,[(181,264)(160,264)])
link(Data2,12958656:Text,[(188,264)(209,264)])
}
BEGIN_SDK
Add(EditMulti,200163,21,21)
{
DataCount=2
VarCount=3
Width=643
Height=326
HOffset=49
link(Var1,7466184:Right,[(76,330)(321,330)])
link(Var2,14749946:Right,[(83,336)(552,336)])
link(Var3,3052353:FString,[(90,291)(279,291)])
}
Add(StrPart,13748527,231,119)
{
Char="."
Point(Right)
Point(Left)
link(onSplit,1892295:doSplit,[])
link(Str,200163:Data1,[(237,70)(76,70)])
}
Add(StrPart,1892295,273,119)
{
Char="."
Point(Right)
Point(Left)
link(onSplit,7466184:doSplit,[])
link(Str,13748527:Right,[(279,107)(258,107)(258,163)(237,163)])
}
Add(StrPart,7466184,315,119)
{
Char="."
Point(Right)
Point(Left)
link(onSplit,10096485:doEvent1,[])
link(Str,1892295:Right,[(321,107)(300,107)(300,163)(279,163)])
}
Add(StrPart,12260184,462,119)
{
Char="."
Point(Right)
link(onSplit,809680:doSplit,[])
link(Str,200163:Data2,[(468,63)(83,63)])
}
Add(StrPart,809680,504,119)
{
Char="."
Point(Right)
link(onSplit,14749946:doSplit,[])
link(Str,12260184:Right,[(510,107)(489,107)(489,163)(468,163)])
}
Add(StrPart,14749946,546,119)
{
Char="."
Point(Right)
link(Str,809680:Right,[(552,107)(531,107)(531,163)(510,163)])
}
Add(Timer,4638575,42,119)
{
Interval=1
AutoStop=1
link(onTimer,13748527:doSplit,[])
}
Add(FormatStr,3052353,273,203)
{
DataCount=3
Mask="%1.%2.%3."
Point(FString)
link(Str1,13748527:Left,[(279,177)(244,177)])
link(Str2,1892295:Left,[])
link(Str3,7466184:Left,[(293,177)(328,177)])
}
Add(Hub,10096485,364,119)
{
link(onEvent1,12260184:doSplit,[])
link(onEvent2,3052353:doString,[(388,132)(388,242)(261,242)(261,209)])
}
END_SDK
Add(FormatStr,12239115,231,420)
{
Mask="%1%2"
Point(FString)
link(onFString,2870239:doStart,[])
link(Str1,9069518:Var3,[(237,373)(195,373)])
link(Str2,12667764:Position,[(244,408)(216,408)(216,464)(181,464)])
}
Add(Thread,2870239,280,420)
{
Delay=1
FastStop=0
link(onExec,15917616:doHostByIP,[])
}
Add(Host,15917616,336,420)
{
link(onHostByIP,15292983:doAdd,[])
link(IP,12239115:FString,[(342,408)(290,408)(290,464)(237,464)])
}
END_SDK
карма: 0

0
Ответов: 3851
Рейтинг: 159
#6: 2009-03-17 16:30:53 ЛС | профиль | цитата
-= DriveR =-, почему сразу "подвисает", может он пешком пошёл узнавать
карма: 0
начавший
1
Голосовали:EcsTasY
Ответов: 590
Рейтинг: 19
#7: 2009-03-17 16:31:23 ЛС | профиль | цитата
Sniper36 писал(а):
опоздал

лучше поздно, чем ни когда..
Sniper36 писал(а):
не угадал

уверен? а ты debug исп.?... лично я использую... и сменив местамо расположения компонента в твоей схеме у меня заработало
карма: 0

0
Ответов: 817
Рейтинг: 52
#8: 2009-03-17 16:32:52 ЛС | профиль | цитата
Sniper36 писал(а):
мля не пишите в примерах кирилицей.

А почему бы и не писать не вижу проблем
Спасибо за идею с потоком, так меньше тормозит, но проблему не решил
EcsTasY писал(а):
проблемма в компоненте host... видимо не может определить host для какого-то из ip

ага, методом научного тыка понял, что Host начинает тормозить если в сети не отвечает тот IP который опрашивается
т.е. машина выключена.
Сейчас решил данный вопрос поставив проверку пинга.
А можно ли немного подправить компонент Host, чтобы он не тормозил если машина выключена или Ip не используется

карма: 1

0
Ответов: 3851
Рейтинг: 159
#9: 2009-03-17 16:32:58 ЛС | профиль | цитата
типа поставь дебаг в синхронном режиме и увидишь с какой скоростью оно проверяет..
карма: 0
начавший
0
Ответов: 817
Рейтинг: 52
#10: 2009-03-17 16:34:26 ЛС | профиль | цитата
Андрей. писал(а):
-= DriveR =-, почему сразу "подвисает", может он пешком пошёл узнавать

ага, пешком, за кудыкину гору
Ерунда, я его уже научил как надо ходить... или бегать
карма: 1

0
Ответов: 590
Рейтинг: 19
#11: 2009-03-17 16:39:40 ЛС | профиль | цитата
-= DriveR =- писал(а):
А можно ли немного подправить компонент Host

может и можно, но нужно ли? ведь потоком это дело решаемо
карма: 0

0
Ответов: 1088
Рейтинг: 112
#12: 2009-03-17 16:39:45 ЛС | профиль | цитата
-= DriveR =- писал(а):
Спасибо за идею с потоком, так меньше тормозит, но проблему не решил

-= DriveR =- писал(а):
На этапе определения имени хоста по Ip подвисает программка
и не выдает никаких данных.

Что просил то и получил.
Какую-то еще проблему не вижу
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 3851
Рейтинг: 159
#13: 2009-03-17 16:41:07 ЛС | профиль | цитата
недавно кстати где-то обсуждали скан по порту - можно в динамический мульт запихать проверку, тогда они все почти одновременно проверятся..
карма: 0
начавший
0
Ответов: 1088
Рейтинг: 112
#14: 2009-03-17 16:45:20 ЛС | профиль | цитата
Андрей. писал(а):
можно в динамический мульт запихать проверку, тогда они все почти одновременно проверятся

Так и есть.
code_12245.txt
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_12245.txt [4.2KB] [122]
Ответов: 590
Рейтинг: 19
#15: 2009-03-17 16:51:28 ЛС | профиль | цитата
Sniper36 писал(а):
Так и есть.

ну во первых.. с потоком мне больше понравилось... хотя динамик мульт тож катит... а во вторых... Sniper36, сколько можно?!)))) я тебе говорю, ты ни там поток поставил
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)