Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TClientSocket 10022 Error [WinXP]


alekseyi ©   (2010-03-30 09:14:00) 

Windows socket error: Получен недопустимый аргумент (10022), on API 'WSACancelASyncRequest'
Написал клиента, без прокси работает все отлично, а вот когда через прокси вылазиет вот такая ошибка, хотя при этом все работает, В ClientOnError прописал ErrorCode:=0; не помогает. Подскажите как избавиться от это сообщения!

Заранее благодарю


brother   (2010-03-30 10:34:00) [1]

> Они же не для Пушкина придуманы)

Да уж... бедный Пушкин...


Сергей М.   (2010-03-30 10:32:00) [2]

Предлагаю открыть справку и ВНИМАТЕЛЬНО изучить события этого компонента, в частности события OnConnect, OnDisconnect.
Они же не для Пушкина придуманы)


alekseyi   (2010-03-30 10:27:00) [3]

предлагаешь так?

procedure ReConnect(mclient:TClientSocket);
begin
client.socket.active:=false;
client.socket.active:=true;
end;


Сергей М.   (2010-03-30 10:22:00) [4]


> ждем ~0,5 сек


Это не решение, а новые грабли.
Рано или поздно ты на них наступишь и будет больно.


alekseyi   (2010-03-30 10:04:00) [5]

все оказалось просто!
клиент не успев отключиться опять подключается, поставил таймер примерно на 0,5 сек. и все!
так сказать
client.close
ждем ~0,5 сек
client.open
все без запарок
Спасибо за помощь


Сергей М.   (2010-03-30 09:54:00) [6]

Прокси здесь вообще ни причем.

Метод Сlose следует вызывать только для сокета, для которого ранее перед этим был вызван метод Open.

К тому же есть св-во Active, которым и следует пользоваться в таких случаях:


Сергей М.   (2010-03-30 09:42:00) [7]

У тебя ошибка в программе


alekseyi   (2010-03-30 09:40:00) [8]

есть подозрение что все из за процедуры

procedure Reconnect(mclient;TClientSocket);
begin

mclient.close;
mclient.open;
end;

я уже переделал так

procedure Reconnect(mclient;TClientSocket);
begin

mclient.close;
sleep(300);
mclient.open;
end;

не помогло...


Наверх

Титульная страница Поиск, карта сайта Написать письмо