![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 10.01.2013
Сообщений: 8
|
![]() Код:
П.С. Как сделать код удобночитаемым? Последний раз редактировалось IHaveAPussy; 10.01.2013 в 18:17. |
![]() |
![]() |
![]() |
#2 | |
Участник клуба
Регистрация: 19.12.2007
Сообщений: 1,100
|
![]() Цитата:
![]() 1. что есть "A" в коде ? 2. какая ошибка ?
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ... ![]() |
|
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 10.01.2013
Сообщений: 8
|
![]()
var
Form1: TForm1; i:integer; ip:string; port:array of string; S:TSocket; D:WSAData; A:TSockAddr; |
![]() |
![]() |
![]() |
#4 |
Новичок
Джуниор
Регистрация: 10.01.2013
Сообщений: 8
|
![]()
В общем всё работает, компилируется. Только вот не показывает открытых портов.
|
![]() |
![]() |
![]() |
#5 |
Новичок
Джуниор
Регистрация: 10.01.2013
Сообщений: 8
|
![]()
Memo1.Lines.Add('Port' + inttostr(j) + 'Opened');
Не показывается. |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
![]()
В цикле для j не хватает begin, а по окончанию блока end
Это было бы видно сразу, если бы код был нормально форматирован Кроме того, не надо постить несколько сообщений подряд, есть кнопка правка |
![]() |
![]() |
![]() |
#7 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
![]()
проверка идет лишь один раз для порта 65535, который врятли открыт.
внимательнее с операторными скобками. цикл то состоит из одной строки лишь. Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
![]() |
![]() |
![]() |
#8 |
Новичок
Джуниор
Регистрация: 10.01.2013
Сообщений: 8
|
![]() Код:
Таак, всё компилируется. На отлично. Ввожу локалхост (127.0.0.1). Вроде программа "подвисает" из-за цикла, но порты открытые не выводятся. Последний раз редактировалось IHaveAPussy; 10.01.2013 в 22:00. Причина: Надо. |
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
![]()
а у вас они есть?
![]() Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
![]() |
![]() |
![]() |
#10 |
Новичок
Джуниор
Регистрация: 10.01.2013
Сообщений: 8
|
![]()
Да есть. 135 открыт. Проверяю обычным сканнером.
Находит порт 135, 10000, и прочие от торрента и майл.ру агента. Я не знаю, уже и ребилд делал. Фигня какая-то. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу найти ошибку | 3K@BH | Общие вопросы C/C++ | 1 | 22.11.2011 10:20 |
Не могу разобраться в коде Проги выдает ошибку | XYLIGANXYL | Помощь студентам | 0 | 27.01.2011 00:15 |
Не могу найти ошибку | cargo29 | Общие вопросы Delphi | 12 | 15.01.2011 11:00 |
Выдает ошибку, не могу найти | Crudelis | Общие вопросы C/C++ | 1 | 10.06.2010 22:42 |
Не могу найти ошибку! | Эдуард | Общие вопросы C/C++ | 7 | 27.02.2008 16:34 |