Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Ошибка

kalishenko stas © (2002-11-13 20:40:00)
Мужики, че это за ошибка?

Dimich1978 (2002-11-14 16:42:00) [1]
Мужики в поле пашут, а не в форуме сидят...мы типа пацаны
Ладно кроме шуток ,я так чувствую эта проблема номер один. В все этом случае виноват конечно программер...в чем и я раньше грешил. Ошибка эта никогда не выскочит если сделать так.
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;

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

Dmitriy Polskoy (2002-11-14 09:52:00) [2]
2 Digitman
Глянь мою ветку про ClientSocket. Нужна твоя помощь, плз.

Digitman (2002-11-14 08:30:00) [3]
WSAEADDRNOTAVAIL = 10049;

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

Наверх

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