| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с TClientSocket [D6, Win95/98]
Kikimora © (2003-01-22 00:01:00)Почему, если если клиент не может подключиться где то 5 минут выдается ошибка.
procedure TForm1.CS1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
CS1.Socket.Disconnect(CS1.Socket.SocketHandle);
ErrorCode:= 0;
end;
procedure TForm1.CS1Connecting(Sender: TObject;
Socket: TCustomWinSocket);
begin
time1.Enabled:=false;
panel1.Color:=cllime;
end;
procedure TForm1.CS1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
time1.enabled:=true;
panel1.Color:=clred;
end;
procedure TForm1.Time1Timer(Sender: TObject);
begin
if not cs1.Active then begin
cs1.Address:="127.0.0.1";
cs1.Port:=1025;
cs1.Active:=true;
endж
end;
mrcat (2003-01-22 01:35:00) [1]Socket.Disconnect(Socket.SocketHandle);
не работает?!
Вы уверены, что проблема именно в этом участке кода?
Kikimora (2003-01-22 01:11:00) [2]10055
mrcat (2003-01-22 00:19:00) [3]Kikimora © (22.01.03 00:01)
...
выдается ошибка.
...
что за ошибка то?
| |
