Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.13;
Скачать: CL | DM;

Вниз

Ошибка   Найти похожие ветки 

 
kalishenko stas   (2002-11-13 20:40) [0]

Мужики, че это за ошибка?


 
Digitman ©   (2002-11-14 08:30) [1]

WSAEADDRNOTAVAIL = 10049;

адрес недоступен


 
Dmitriy Polskoy ©   (2002-11-14 09:52) [2]

2 Digitman
Глянь мою ветку про ClientSocket. Нужна твоя помощь, плз.


 
Dimich1978 ©   (2002-11-14 16:42) [3]

Мужики в поле пашут, а не в форуме сидят...мы типа пацаны
Ладно кроме шуток ,я так чувствую эта проблема номер один. В все этом случае виноват конечно программер...в чем и я раньше грешил. Ошибка эта никогда не выскочит если сделать так.
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
timer1.enabled:=true;
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ClientSocket1.Socket.Disconnect(ClientSocket1.Socket.SocketHandle);
ErrorCode:= 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var regini:tregistry;
begin
//IP сервера читаем из реестра-это для примера
RegIni:=TRegIniFile.Create;
RegIni.RootKey:=HKEY_CURRENT_USER;
RegIni.OpenKey("SOFTWARE",true);
RegIni.OpenKey("DvaASoft",true);
RegIni.OpenKey("CONFIG",true);
if not ClientSocket1.Active then
if (regini.readString("IP")<>"")and(regini.readString("Port")<>"") then begin
clientsocket1.Host:=regini.readString("IP");
clientsocket1.Port:=strtoint(regini.readString("Port"));
clientsocket1.Active:=true;
CoolTrayIcon1.IconIndex:=0;
end;
regini.free;
end;

procedure TForm1.ClientSocket1Connecting(Sender: TObject;
Socket: TCustomWinSocket);
begin
timer1.Enabled:=false;
end;

И при старте написать такой код
// обратно IP сервера читаем из реестра-это всего лишь пример
clientsocket1.Host:=regini.readString("IP");
clientsocket1.Port:=strtoint(regini.readString("Port"));
clientsocket1.Active:=true;

Кому что не ясно пишите



Страницы: 1 вся ветка

Текущий архив: 2003.01.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
4-37428
Marko_polo
2002-11-24 07:38
2003.01.13
Нужна Помощь!!!


4-37455
Maksss
2002-11-18 03:39
2003.01.13
Создание контролов


14-37354
J_S
2002-12-24 12:58
2003.01.13
dbExpress


6-37258
TCrash
2002-11-14 12:10
2003.01.13
Список серверов банерных сетей


7-37405
Pegas
2002-11-02 12:46
2003.01.13
Как обойти HASP-1C