[Вопрос] Socket Error # 10060
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
[Вопрос] Socket Error # 10060 - 2011-05-18 20:28:17.420000
|
|
|
Vasek69
Сообщений: 154
Оценки: 0
Присоединился: 2011-02-12 05:33:39.426666
|
Всем привет! Делаю троянец на Delphi 7. Работает на ура, думал я. Дело в том, что троян работает. Но если клиентская часть долго не может подключиться к серверной, то выдается ошибка Socket Error # 10060 Connected Timed Out. Конечно, я знаю что это за ошибка - это значит что-то вроде: "Слишком долго подключался, время вышло". Но у меня-то вопрос стоит такой: Как сделать так, чтобы этой ошибки не было? Знаю что принцип должен быть такой: При долгом коннекте, он [коннект] должен проходить по 2, 3, 4 и т.д. кругу. Компоненты: IndyClient и IndyServer. Какую часть кода выложить? Всем заранее спасибо!
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-18 21:05:39.816666
|
|
|
fippo
Сообщений: 127
Оценки: 0
Присоединился: 2008-12-28 13:14:06.130000
|
как вариант try … except .. end
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-19 09:55:43.830000
|
|
|
Vasek69
Сообщений: 154
Оценки: 0
Присоединился: 2011-02-12 05:33:39.426666
|
покажи пример?
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-19 10:46:35.563333
|
|
|
fippo
Сообщений: 127
Оценки: 0
Присоединился: 2008-12-28 13:14:06.130000
|
Точно названия свойств не помню, но примерно так:
while (not IdTCPClient1.Connected) do
try
IdTCPClient1.Coonect;
except
end;
Будет пробовать подключаться, пока не подключится. Никаких ошибок выдавать не будет.
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-19 11:45:57.460000
|
|
|
Vasek69
Сообщений: 154
Оценки: 0
Присоединился: 2011-02-12 05:33:39.426666
|
Надо будет проверить
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-19 17:17:34.340000
|
|
|
MotoKiller
Сообщений: 1732
Оценки: 56
Присоединился: 2008-03-02 20:08:53.810000
|
try except Используется для подстановки своих ошибок.
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-19 21:11:45.236666
|
|
|
fippo
Сообщений: 127
Оценки: 0
Присоединился: 2008-12-28 13:14:06.130000
|
А так же чтоб программа не ругалась вслух. Не лучшее решение - но как вариант - должно работать.
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-20 07:53:26.010000
|
|
|
Vasek69
Сообщений: 154
Оценки: 0
Присоединился: 2011-02-12 05:33:39.426666
|
А в какую процедуру это вписывать? В процедуру Connected?
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-20 09:54:00.510000
|
|
|
MotoKiller
Сообщений: 1732
Оценки: 56
Присоединился: 2008-03-02 20:08:53.810000
|
try
Место, где появляется ошибка
except
end;
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-20 13:30:24.340000
|
|
|
Vasek69
Сообщений: 154
Оценки: 0
Присоединился: 2011-02-12 05:33:39.426666
|
У меня получилось так:
procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
try
Memo1.Lines.Add('Соединение успешно!');
except
end; Компилируется без ошибок, но ещё не пробовал.
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-20 14:00:05.973333
|
|
|
Alianna
Сообщений: 1922
Оценки: 356
Присоединился: 2010-03-02 11:27:12.343333
|
Зачем так? При добавлении строк в мемо вроде же ошибок не происходит? Ошибка ж при соединении?
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-20 14:31:00.730000
|
|
|
fippo
Сообщений: 127
Оценки: 0
Присоединился: 2008-12-28 13:14:06.130000
|
Vasek69, не туда вставил. В то место, где у тебя осуществляется подключение. По нажатию на кнопку или при создании формы.
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-20 15:10:50.803333
|
|
|
Vasek69
Сообщений: 154
Оценки: 0
Присоединился: 2011-02-12 05:33:39.426666
|
Мда, позорная ошибка [sm=ah.gif] Вот, переделал код и поставил на процедуру батона:
procedure TForm1.Button1Click(Sender: TObject);
begin
try
Memo1.Lines.Add('Соединение с сервером '+Edit1.Text);
idTCPClient1.Host:=Edit1.Text;
idTCPClient1.Port:=8090;
idTCPClient1.Connect();
except
end; Тоже не тестил и компиляция тоже проходит успешно
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-20 15:15:05.090000
|
|
|
Vasek69
Сообщений: 154
Оценки: 0
Присоединился: 2011-02-12 05:33:39.426666
|
А может правильно будет так: procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add('Соединение с сервером '+Edit1.Text);
idTCPClient1.Host:=Edit1.Text;
idTCPClient1.Port:=8090;
try
idTCPClient1.Connect();
except
end;
|
|
|
RE: [Вопрос] Socket Error # 10060 - 2011-05-21 09:56:33.213333
|
|
|
webkraft
Сообщений: 2388
Оценки: 95
Присоединился: 2009-03-01 15:59:53.456666
|
Соединяется он на connect(); значит и делай где конект, вообще особой роли не будет играть что в предидущем твоем посте что в последнем:
Memo1.Lines.Add('Соединение с сервером '+Edit1.Text);
idTCPClient1.Host:=Edit1.Text;
idTCPClient1.Port:=8090;
try
idTCPClient1.Connect();
except
on E: exception do
memo1.lines.add('There are Errors: '+E.message);
end;
|
|
|
|
|