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

← →
Vvedensk (2004-06-16 19:43) [0]

Привет всем!
Как протрасировать на дельфях?
желательно используя стандартные компоненты и модули...
Также очень приветствуются примеры.
Задание спасибо :)

← →
Alex Konshin © (2004-06-16 20:06) [1]

Чего трассировать-то?

← →
Rouse_ © (2004-06-17 12:50) [2]

http://delphi.k-jarve.ee/programm/tracert.zip

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

← →
Rouse_ © (2004-06-17 12:52) [3]

Там только небольшая ошибочка...

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

← →
Digitman © (2004-06-17 13:19) [4]

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

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

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

← →
vvedensk (2004-06-17 14:01) [5]

Rouse_ ,Большое спасибо.
Digitman знающий народ поймет о чем речь к тому же стал бы я пихать вопрос про какуето там другую трассировку в раздел по сетям?

← →
Digitman © (2004-06-17 14:09) [6]

> vvedensk (17.06.04 14:01) [5]

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

← →
vvedensk (2004-06-17 14:39) [7]

Digitman можетты и прав :) просто у меня наклоность больше к сетям и поэтому термин трасировка для меня именно сетевая :)

← →
Rouse_ © (2004-06-17 14:44) [8]

Ладно, хватит оффтопить...

← →
Digitman © (2004-06-17 14:53) [9]

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

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

← →
vvedensk (2004-06-17 15:37) [10]

Digitman вы так и не поняли мне нужна была именно сетевая трасировка, тоесть определения маршрута до хоста.
что мне и дали :)

← →
Digitman © (2004-06-17 15:57) [11]

> vvedensk (17.06.04 15:37) [10]

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

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

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

← →
Rouse_ © (2004-06-17 16:11) [12]

> как определить имя порта на делфях
Очевидно имя сервиса соотносящееся к порту? :)

← →
Digitman © (2004-06-17 16:33) [13]

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

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

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

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

Да, кстати, еще небольшая поправочка:

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

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

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

Ну мне пришло в голову два варианта: вопрос был либо про traceroute, либо про трассировку пакетов. Оба варианта напрямую относятся с теме форума. А уж сколько вариантов для оффтопиков...
Народу лень вопрос сформулировать.

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

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

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

Трасировка из дельфи Найти похожие ветки