Помогите избавиться от ошибки (Socket error 10065)

← →
FireMan_Alexey © (2003-06-26 16:30) [0]

Суть дела такова. У меня есть адрес или хост к которому мне надо приконектиться, но я не знаю существует ли он вообще. Используя TClientSocket, получаю ошибку 10065 - "узел отсутствует" , как я понимаю!
Но отловить ее ни в OnError ни в Try Except не могу.
Посоветуйте пожалуйста как быть.
Не хотелось бы переделывать работу заново.
Пробовал писать, как советует DigitMan, в OnError
Socket.Disconnect(Socket.SocketHandle);
Но это событие даже не возникает, а ошибку выдает сразу после
ClientSocket.Open;

← →
Карелин Артем © (2003-06-26 16:48) [1]

Может Application.OnException спасет...

← →
Digitman © (2003-06-26 17:01) [2]

код приведи свой
и - режим какой у тебя ... блок или неблок

← →
Delphin © (2003-06-26 17:30) [3]

ClientSocket1.Host:=Edit1.Text;
Try
ClientSocket1.Connect;
Except
....
DestroyWindow(WM_Close);
......
End;

← →
FireMan_Alexey © (2003-06-27 14:39) [4]

>DigitMan
режим не блокирующий
текст
Procedure TMain.ProxyServClientRead(Sender: TObject;Socket: TCustomWinSocket); Var S,S1:String; I1,I2,L:Integer; Buf:Pointer; Begin // IF TClientSocket(Socket.Data).Active then Begin I1:=Socket.ReceiveLength; GetMem(Buf,I1); Socket.ReceiveBuf(Buf^,I1); TClientSocket(Socket.Data).Socket.SendBuf(Buf^,I1);// Отсылаю данные FreeMem(Buf,I1); End Else Begin L:=Socket.ReceiveLength; S:=Socket.ReceiveText; I1:=Pos("Host",S)+6; I2:=Pos("Proxy",S)-2; S1:=Copy(S,I1,I2-I1); If not GetAddr(S1,80) Then Begin Socket.SendText(ErrorProxy_HTTP(ProxyErrors[1])); Socket.Disconnect(Socket.SocketHandle); Exit; End; TClientSocket(Socket.Data).Port:=80;//Настраиваю порт TClientSocket(Socket.Data).Host:=S1;//Хост TClientSocket(Socket.Data).Open; //Пытаюсь коннектиться ( Socket.Data) >DigitMan режим не блокирующий текст Procedure TMain.ProxyServClientRead(Sender: TObject;Socket: TCustomWinSocket); Var S,S1:String; I1,I2,L:Integer; Buf:Pointer; Begin // IF TClientSocket(Socket.Data).Active then Begin I1:=Socket.ReceiveLength; GetMem(Buf,I1); Socket.ReceiveBuf(Buf^,I1); TClientSocket(Socket.Data).Socket.SendBuf(Buf^,I1);// Отсылаю данные FreeMem(Buf,I1); End Else Begin L:=Socket.ReceiveLength; S:=Socket.ReceiveText; I1:=Pos("Host",S)+6; I2:=Pos("Proxy",S)-2; S1:=Copy(S,I1,I2-I1); If not GetAddr(S1,80) Then Begin Socket.SendText(ErrorProxy_HTTP(ProxyErrors[1])); Socket.Disconnect(Socket.SocketHandle); Exit; End; TClientSocket(Socket.Data).Port:=80;//Настраиваю порт TClientSocket(Socket.Data).Host:=S1;//Хост TClientSocket(Socket.Data).Open; //Пытаюсь коннектиться TClientSocket(Socket.Data).Socket.SendText(S);// Отсылаю запрос Label3.Caption:=S1; End; End;

← →
Digitman © (2003-06-27 14:57) [5]

нет, подожди)

ты ведешь речь прежде всего о перехвате и обработке ошибок коннекта

где у тебя в коде обработка OnError() ? не вижу.

это - раз..

теперь - следующее.
ты утверждаешь, что режим для всех гнезд - неблокирующий.

тогда на основании чего ты сразу же за
TClientSocket(Socket.Data).Open; ( Socket.Data) нет, подожди)

ты ведешь речь прежде всего о перехвате и обработке ошибок коннекта

где у тебя в коде обработка OnError() ? не вижу.

это - раз..

теперь - следующее.
ты утверждаешь, что режим для всех гнезд - неблокирующий.

тогда на основании чего ты сразу же за
TClientSocket(Socket.Data).Open; //Пытаюсь коннектиться
делаешь
TClientSocket(Socket.Data).Socket.SendText(S);// Отсылаю запрос

??? где и каким образом ты фиксируешь факт успешной попытки коннекта, прежде чем пытаться отослать запрос через устанавливаемое соединение ?

← →
FireMan_Alexey © (2003-07-01 15:02) [6]

>DigitMan
procedure TMain.ProxyServClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin // Socket.Disconnect(Socket.SocketHandle); ErrorCode:=0; end;

Суть в том, что просто пробовал законектиться на существующий сайт указывая IP-адрес например 135.34.34.80 порт 80 и просто вызывал ClientSocket.Open, но если я в текущий момент не в интернете, то выдается ошибка 10065,
если же я указываю именно HOST, то OnError обрабатывает ошибку.
У меня своя подсеть. Маска подсети указана вручную 255.255.255.0
IP- ареса в диапазоне 192.168.0.*
возможно из-за данных настроек я не могу нормально законнектиться в инет?

А то, что я отсылаю сразу после OPEN, я исправил это и все раво не работает.
Извиняюсь что не прислал исходный код, я сейчас не на своей машине и исходника с собою нет.

← →
Digitman © (2003-07-02 08:36) [7]

> то выдается ошибка 10065

> то OnError обрабатывает ошибку

не верю !!!!
при приведенном тобой теле OnError() ошибка будет "погашена" в любом случае, будь тобой указан или Host или Address - совершенно никакой разницы.

> то, что я отсылаю сразу после OPEN, я исправил это и все
> раво не работает

и каким же образом ты "исправил" ?
сдается мне, что по-прежнему (!) отказ с кодом 10065 ты имеешь при попытке выполнить именно метод send в момент после выполнения Open, но ДО момента реального коннекта либо возникновения события OnError()

← →
Digitman © (2003-07-02 08:45) [8]

ты пойми главное - поскольку гнездо неблокирующее, то метод Open тут же возвратит тебе управление, еще ДО того, как будет фактически установлен коннект либо отказано в нем по каким-то причинам (связанным как правило с недоступностью/неактивностью целевого хоста/сервиса или с невозможностью с пом. DNS разрешить имя хоста в его IP-адрес).

о факте успешного коннекта говорит возникновение события OnConnect()

о факте НЕуспешного коннекта говорит возникновение события OnError() (причина отказа - в ErrorCode)

и вот ДО того, как возникнет событие OnConnect() выполнять какие-либо транспортные методы гнезда (send- либо receive-методы) совершенно бессмысленно - это 100%-но приведет к исключению ESocketError (а не к возбуждению события OnError !)

← →
FireMan_Alexey © (2003-07-02 16:50) [9]

>Digitman
У меня еще вопрос, где можно достать описание функций на русском
socket
bind
и т.д.

← →
Digitman © (2003-07-02 17:13) [10]

http://book.itep.ru

← →
panov © (2003-07-02 17:15) [11]

У меня еще вопрос, где можно достать описание функций на русском

только переводы кусками в сети.

>Digitman
Просто экспериментировал и получил вот что.
В этом простом примере у меня возникает ошибка 10065 и я не могу ее отловить.
Возможно я где-то ошибаюсь :)
1. CS.Active=False в начале
2. Режим неблок.
3. Интернета нет

unit Example; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ScktComp; type TForm1 = class(TForm) CS: TClientSocket; procedure FormCreate(Sender: TObject); procedure CSError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); private { Private declarations } public ( Sender: TObject) >Digitman Просто экспериментировал и получил вот что. В этом простом примере у меня возникает ошибка 10065 и я не могу ее отловить. Возможно я где-то ошибаюсь :) 1. CS.Active=False в начале 2. Режим неблок. 3. Интернета нет unit Example; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ScktComp; type TForm1 = class(TForm) CS: TClientSocket; procedure FormCreate(Sender: TObject); procedure CSError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin cs.Port:=80; cs.Host:="154.34.34.80"; cs.Open; end; procedure TForm1.CSError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin ErrorCode:=0; Socket.Disconnect(Socket.SocketHandle); end;

>Panov
А где достать эти обрывки?

procedure TForm1.FormCreate(Sender: TObject);
begin
cs.Port:=80;
cs.Address:="154.34.34.80";
try
cs.Open;
except
on e: ESocketError do
( "Уррааа !!! Я поймал синхронную ошибку коннекта :"#10 + e.message) procedure TForm1.FormCreate(Sender: TObject);
begin
cs.Port:=80;
cs.Address:="154.34.34.80";
try
cs.Open;
except
on e: ESocketError do
ShowMessage("Уррааа !!! Я поймал синхронную ошибку коннекта :"#10 + e.message);
else
raise;
end;
end;

> FireMan_Alexey

ты вообще-то в состоянии читать и анализировать исх.Паскаль-тексты стандартных компонентов от Борланда ? Ведь все что тебя заботило и будет заботить, элементарно выясняется анализом кода в модуле scktcomp.pas !

Предусмотри в On Error следующее
ErrorCode := 0;

это "гасит" ошибку, в противном случае OnError выполняется, но ошибка соединения "всплывает"

Помогите избавиться от ошибки (Socket error 10065) Найти похожие ветки