Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766833 Fri, 16 Nov 2007 09:28:02 +0000 Опять TClientSocket и Asynchronous socket error 10061 https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766833
что-то типа такого

     Client.Address:=ServerIpCombo.Text;
     
     
      ServerConnection:=0;
      i:=0;
     
      while ((ServerConnection<>1) and (i<20)) do
      begin
        try
          Client.Open;
          ServerConnection:=1;
        except
          on Exception do
          begin
            ServerConnection:=-1;
            inc(i);
            Sleep(200);
            Application.ProcessMessages;
          end;
        end;
      end;
     
     if (ServerConnection<>1)  then
     begin
     MemoLog.Lines.Add('No server connection');
     Exit;
     end;
]]> начинающий Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766650 Fri, 16 Nov 2007 06:47:38 +0000 Опять TClientSocket и Asynchronous socket error 10061 https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766650 Цитата Oleg2004 @
Это ошибка на стороне партнера по сети - а не в программе

Цитата Oleg2004 @
и от типа сокета, на котором работает соединение, она категорически не зависит

Спорить было бы глупо. :D Я упомянул только блокирующий режим потому что у автора при попытках выполнить операции чтения и записи выдавался отказ в доступе. :huh:
Цитата Oleg2004 @
Я бы не был столь категоричным
Цитата medved_68 @
Почему? Очень даже относится. Если бы он не активировал сокет - то и такой ошибки бы не было!!!
:D Отсюда и "категоричность". :D]]> medved_68 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766631 Fri, 16 Nov 2007 06:27:10 +0000 Опять TClientSocket и Asynchronous socket error 10061 https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766631 Цитата medved_68 @
Почему? Очень даже относится.

Я бы не был столь категоричным :D Это ошибка на стороне партнера по сети - а не в программе :D
Эта ошибка выскакивает на любой работающей клиентской программе - на любом броузере и тд - если в доступе отказано - и от типа сокета, на котором работает соединение, она категорически не зависит :no:]]> Oleg2004 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766599 Fri, 16 Nov 2007 05:46:15 +0000 Опять TClientSocket и Asynchronous socket error 10061 https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766599 Цитата Oleg2004 @
Вообще то эта ошибка как бы к коду не относится :

Почему? Очень даже относится. Если бы он не активировал сокет - то и такой ошибки бы не было!!! :D начинающий, сия ошибка вылезет при отказе в установке соединения только в блокирующем режиме когда сервер, на который "стучишься" не активен. :) ErrorCode здесь бесполезен т.к. в блокирующем режиме обработка операций на сокете линейна, а не асинхронна и такого события, как впрочем и onRead, onWrite попросту не возникнет. Соответственно, попытки принудительно выполнить данные процедуры приведут к отказу в доступе, что впрочем и наблюдается.
Цитата начинающий @
но в этот раз надо писать и читать не с помощью onRead,onWrite,а стримами и соответственно type=ctNonBlocking нельзя

Рекомендую посмотреть в сторону TWinSocketStream, а чтобы ошибка при коннекте не "вылазила" (если сервер не активен) - все операции на сокете заключить в блок try...except, где в секции except вызовом WSAGetLastError узнавать код ошибки, вызвавшей исключение, подавлять ее и выдавать пользователю свое сообщение (при необходимости) или предпринимать какие то другие действия. :)]]> medved_68 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766406 Thu, 15 Nov 2007 20:25:56 +0000 Опять TClientSocket и Asynchronous socket error 10061 https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766406 Цитата
socket error 10061

Вообще то эта ошибка как бы к коду не относится :huh: :
Цитата
WSAECONNREFUSED (10061) В подключении отказано – на хосте партнера не
работает программа запрашиваемого сервиса
]]> Oleg2004 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766278 Thu, 15 Nov 2007 18:12:13 +0000 Опять TClientSocket и Asynchronous socket error 10061 https://forum.sources.ru/index.php?showtopic=210686&view=findpost&p=1766278
Надо обойти ненавистную ошибку ?когда к серверу не может достучаться

Всегда помогало type=ctNonBlocking, обработчик в OnError и в конце ErrorCode:=0

но в этот раз надо писать и читать не с помощью onRead,onWrite,а стримами и соответственно type=ctNonBlocking нельзя

Так вот как бы не выставлял ErrorCode:=0 все равно выскакиевает ошибка во время работы программы:(
Как только ставлю в Blocking ошибка исчезает, но как только начинаю читать или писать вылазит Socket Must be in blocking mode

Уважаемые гуру, прошу помощи


использую Delphi 2007]]> начинающий Delphi: Сетевое программирование