Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c