Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
|
Товарищи есть-ли люди хорошо знающи Delphi? 21.02.02 09:05 Число просмотров: 976
Автор: Eniac Статус: Незарегистрированный пользователь
Отредактировано 21.02.02 09:06 Количество правок: 1
|
На счет делфи не знаю, но лично я не плохо разбираюсь в паскале
З.Ы. А сколько тебе, раз ты самый маленький?
|
|
<programming>
|
Товарищи есть-ли люди хорошо знающи Delphi? 21.02.02 08:05
Автор: choor Статус: Elderman
|
Я парень молодой и только начал програмированием заниматься... Есть вопросы...
З.Ы. Я наверно самый маленький в этом форуме ;)
|
|
Вроде чё-то не получается :(( 23.02.02 14:11
Автор: choor Статус: Elderman
Отредактировано 23.02.02 16:48 Количество правок: 2
|
Если не существует хоста, то она выводит ошибку сама.
А теперь представь когда делаешь цикл, она может эту ошибку вывести 255 раз, ой как весело. А ошибка ясен пень грит, что типа нет такого хоста.
Как сделать так что бы эта ошибка не выводилась, а просто шла дальше по своему циклу?
P.S.
procedure Tmscanform.Button1Click(Sender: TObject);
var
I,N,S : Integer;
begin
I := strtoint(edit3.Text);
N := strtoint (endip.Text);
for S := I to N do
ClientSocket.Host := startip.Text+'.'+edit1.text+'.'+edit2.text+'.'+floattostr(S);
ClientSocket.Active := true;
end;
---
Это цикл хоство....
procedure Tmscanform.ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
rez.Lines.Add (startip.Text+'.'+edit1.text+'.'+edit2.text+'.'+floattostr(S));
end;
---
Это внутренности сокета.... Который выводит IP мож я чё не правильно делаю??? С одним IP всё получается, а когда делаю Цикл всё просто в писду :((
|
| |
Вроде чё-то не получается :(( 24.02.02 00:15
Автор: Sandy <Alexander Stepanov> Статус: Elderman
|
> Если не существует хоста, то она выводит ошибку сама.
> А теперь представь когда делаешь цикл, она может эту ошибку
> вывести 255 раз, ой как весело. А ошибка ясен пень грит,
> что типа нет такого хоста.
> Как сделать так что бы эта ошибка не выводилась, а просто
> шла дальше по своему циклу?
забирай проблемную строку в цикл try-exception
> P.S. > procedure Tmscanform.Button1Click(Sender: TObject);
> var
> I,N,S : Integer;
> begin
> I := strtoint(edit3.Text);
> N := strtoint (endip.Text);
> for S := I to N do
> ClientSocket.Host :=
> startip.Text+'.'+edit1.text+'.'+edit2.text+'.'+floattostr(S
---
А что это за флоат???
> );
> ClientSocket.Active := true;
> end;
---
> Это цикл хоство....
> > procedure Tmscanform.ClientSocketConnect(Sender: TObject;
> Socket: TCustomWinSocket);
> begin
> rez.Lines.Add
> (startip.Text+'.'+edit1.text+'.'+edit2.text+'.'+floattostr(
> S));
> end;
---
> Это внутренности сокета.... Который выводит IP мож я чё не
> правильно делаю??? С одним IP всё получается, а когда делаю
> Цикл всё просто в писду :((
Проверь, как в цикле изменяется IP адрес, возможно, что неверный адрес формируешь.
|
| | |
Вроде чё-то не получается :(( 24.02.02 13:55
Автор: choor Статус: Elderman
|
|
Короче я из едита сначла в целое число преобразуя, а птом что бы хост указать опять в строку...
|
|
Ближе к телу! 21.02.02 15:51
Автор: Sandy <Alexander Stepanov> Статус: Elderman
|
|
|
| |
Ближе к телу... 21.02.02 16:23
Автор: choor Статус: Elderman
|
Ну дык вот мне надоело писать всякое фуфло типа вычесление квадратных уравнений..
Захотел я чё-то относительно реальное написать, но нигде инфы не нашёл...
Вот короче захотел айпи сканер написать...
Существует поле начального айпи и конечного... Не знаю, что написать в обработчик
для кнопки, какие запросы и т.д.
З.Ы. не бейте, все с чего-то начинали ;)
|
| | |
Ближе к телу... 21.02.02 17:30
Автор: Sandy <Alexander Stepanov> Статус: Elderman
|
> Ну дык вот мне надоело писать всякое фуфло типа вычесление
> квадратных уравнений..
> Захотел я чё-то относительно реальное написать, но нигде
> инфы не нашёл...
> Вот короче захотел айпи сканер написать...
> Существует поле начального айпи и конечного... Не знаю, что
> написать в обработчик
> для кнопки, какие запросы и т.д.
> З.Ы. не бейте, все с чего-то начинали ;)
Создавай сокет, делай коннект на хост и порт, если законнектился - действуй дальше, если облом - значит облом.
|
|
Товарищи есть-ли люди хорошо знающи Delphi? 21.02.02 09:05
Автор: Eniac Статус: Незарегистрированный пользователь
Отредактировано 21.02.02 09:06 Количество правок: 1
|
На счет делфи не знаю, но лично я не плохо разбираюсь в паскале
З.Ы. А сколько тебе, раз ты самый маленький?
|
| |
хыхыхы 21.02.02 16:22
Автор: choor Статус: Elderman
|
Не если я скажу.. затопчут ;) А проблема вся изложенна выше
з.Ы. В этом форуме только два чел-ка знаю скоко мне лет ;)
|
|
|
подробно о проекте
Анализ криптографических сетевых...
