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

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

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

Трасировка из дельфи [D7]

Vvedensk © (2004-06-16 19:43:00)
Привет всем!
Как протрасировать на дельфях?
желательно используя стандартные компоненты и модули...
Также очень приветствуются примеры.
Задание спасибо :)

Digitman (2004-06-22 08:15:00) [1]

> Alex Konshin © (22.06.04 07:52) [18]

> Народу лень вопрос сформулировать.

угу... одно слово дописать - "хост" - это выше всяких человеческих сил

Alex Konshin (2004-06-22 07:52:00) [2]
Ну мне пришло в голову два варианта: вопрос был либо про traceroute, либо про трассировку пакетов. Оба варианта напрямую относятся с теме форума. А уж сколько вариантов для оффтопиков...
Народу лень вопрос сформулировать.

Rouse_ (2004-06-18 09:02:00) [3]
> [16] Игорь Шевченко © (17.06.04 17:51)
Ну так тыж не задашь :)
Ладно, пустое это все, сами же флудить начинаем...

Игорь Шевченко (2004-06-17 17:51:00) [4]
Rouse_ © (17.06.04 16:43)

Вот я задам вопрос: как определить имя порта. Ты поймешь, о чем идет речь ?

Rouse_ (2004-06-17 16:43:00) [5]
> [13] Digitman © (17.06.04 16:33)
А я стало быть телепат, раз угадал с первой попытки? ;)

Rouse_ (2004-06-17 16:41:00) [6]
Да, кстати, еще небольшая поправочка:

строка
// Начинаем трассировку до тех пор while (Result <> DestAddr.S_addr) and // пока IP адреса не совпадут (Iteration < IterationCount) do // или кол-во прыжков достигнет максимального

должна выглядеть как:
HostIP := 0; // Начинаем трассировку до тех пор while (HostIP <> DestAddr.S_addr) and // пока IP адреса не совпадут (Iteration < IterationCount) do // или кол-во прыжков достигнет максимального

Иначе при пустом третьем пинге конечной точки он пойдет на новый круг :)

Digitman (2004-06-17 16:33:00) [7]

> Rouse_ © (17.06.04 16:11) [12]

а вдруг я промахнулся форумом и подразумеваю имя коммуникационного порта ?) COM1 ? LPT ? или вообще порт именованого программного канала ? разме понятие "имя порта" не имеет права на существование ЗА пределами темы "Сети" ?

вон, смотри, и <Alex Konshin> туда же) ... одно радует - не одинок я)..

"Тупой, еще тупее" (с) ...)

Rouse_ (2004-06-17 16:11:00) [8]
> как определить имя порта на делфях
Очевидно имя сервиса соотносящееся к порту? :)

Digitman (2004-06-17 15:57:00) [9]

> vvedensk (17.06.04 15:37) [10]

> вы так и не поняли

ты вот такой шибко понятливый, как я посмотрю ...

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

vvedensk (2004-06-17 15:37:00) [10]
Digitman вы так и не поняли мне нужна была именно сетевая трасировка, тоесть определения маршрута до хоста.
что мне и дали :)

Digitman (2004-06-17 14:53:00) [11]

> просто у меня наклоность

уж не знаю, какая там у тебя "наклонность", но лентяйство твое - налицо ... набрав в стандартной справке модель поиска темы "integrated debugger" ("встроенный отладчик") ты вполне мог бы получить массу полезной информации об отладке программы в среде Делфи, прежде чем постить абстрактный вопрос ... только не говори, что понятия "отладка программы" и "трассировка кода программы" для тебя - никак не связанные понятия ... это уже страшно ...

Rouse_ (2004-06-17 14:44:00) [12]
Ладно, хватит оффтопить...

vvedensk (2004-06-17 14:39:00) [13]
Digitman можетты и прав :) просто у меня наклоность больше к сетям и поэтому термин трасировка для меня именно сетевая :)

Digitman (2004-06-17 14:09:00) [14]

> vvedensk (17.06.04 14:01) [5]

термин "трассировка", думаю, относится к пошаговому контролю исполнения операторов программы как таковой ... а уж что там эта твоя программа делает - реализует сетевой транспорт или "иконку в трей запуздыривает" - абсолютно индифферентно .. с тем же успехом вопрос "Как протрасировать на дельфях" прозвучал бы и в "Потрепаться", и в "Общие вопросы" и в любом ином форуме по Делфи

vvedensk (2004-06-17 14:01:00) [15]
Rouse_ ,Большое спасибо.
Digitman знающий народ поймет о чем речь к тому же стал бы я пихать вопрос про какуето там другую трассировку в раздел по сетям?

Digitman (2004-06-17 13:19:00) [16]

> Как протрасировать на дельфях?

час от часу не легче ..

особенно "радует", что термин "протрасировать" чего-то там или кого-то там, оказывается, имеет исключительное отношение к "Сетям" и ни к чему более..

Rouse_ (2004-06-17 12:52:00) [17]
Там только небольшая ошибочка...

procedure TfrmMain.btnStartClick(Sender: TObject); begin // Чтобы программа не подвисала // запускаем трассировку в отдельном потоке with TTraceThread.Create(False) do begin FreeOnTerminate := True; // Передаем имя хоста DestinationAddress := edAddr.Text; // и максимальное число прыжков IterationCount := sedCount.Value; Resume; end; end;

False, естественно изменить нужно на True

Rouse_ (2004-06-17 12:50:00) [18]
http://delphi.k-jarve.ee/programm/tracert.zip

---
Желаю успехов

Alex Konshin (2004-06-16 20:06:00) [19]
Чего трассировать-то?

Наверх

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