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

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

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

работа в блокированном режиме [D7, WinXP]

redlord © (2005-03-21 16:14:00)
всем привет
народ подскажите
что я зделал не так у меня в процедуре ClientExecute
команда beep выполняется даже после того как
клиент принудительно разорвал соединение
(как будто ClientSocket.Connected всегда верно )
(сервер работает в блокированном режиме)
type
TMyServerThread = class(TServerClientThread)
procedure ClientExecute; override;
end;
...

procedure TForm1.ServerSocket1GetThread(Sender: TObject;....);
begin
SocketThread := TMyServerThread.Create(True,ClientSocket);
SocketThread.Priority:=TPlowest;
SocketThread.FreeOnTerminate:=true;
SocketThread.Resume;
end;
....
procedure TMyServerThread.ClientExecute;
var
MySocket: TWinSocketStream;
begin
MySocket := TWinSocketStream.Create(ClientSocket, 1000);
while (Terminated=false) and ClientSocket.Connected do
beep;
MySocket.Free;
ClientSocket.Close;
end;

Eraser (2005-03-23 16:04:00) [1]
Используй лучше PChar для этих целей... а если передаются не только текстовые строки, то вообще TMemoryStream использовать надо.

redlord (2005-03-23 10:47:00) [2]
to digitman
MySocket := TWinSocketStream.Create(ClientSocket, 1000);
to eraser
resivdata:string;
setlength(resivdata,1024)

Digitman (2005-03-23 08:16:00) [3]

> redlord (22.03.05 18:43) [7]

что за mysocket ?

Eraser (2005-03-22 21:18:00) [4]
redlord

Что за переменная resivdata?

redlord (2005-03-22 18:43:00) [5]
n:= mysocket.read(resivdata[1],3);

Digitman (2005-03-22 15:05:00) [6]

> со стороны сервера

после установления коннекта нет ни сервера ни клиента
есть "передатчик" и есть "приемник" .. в каждый момент времени ..

> ошибке(esocket error read error 6 неверный дискриптор)

на какой строчке ?

redlord (2005-03-22 14:02:00) [7]
после добавления кода (вместо бипера)
while (Terminated=false) and (ClientSocket.Connected) do //
if MySocket.WaitForData(500) then
begin
n:= mysocket.read(resivdata[1],3);
if n = 0 then break else
begin
synchronize(sunc)
end;
end;
end;
finally
MySocket.Free;
ClientSocket.Close;
end;

закрытие клиента отслеживаются но теперь разрыв соединения со стороны сервера стал приводить к ошибке(esocket error read error 6 неверный дискриптор)

Polevi (2005-03-22 11:41:00) [8]
по результату send recv ф-ий

RedLord (2005-03-22 11:34:00) [9]
если ClientSocket.Connected не отображает отсутствие соединения то по какому свойству его проверять ? веть сервак в блокированном режиме запущен и событие дисконнект от него не дождешся

(тока палками сильно не бейте)

Digitman (2005-03-21 18:01:00) [10]

> у меня в процедуре ClientExecute
> команда beep выполняется даже после того как
> клиент принудительно разорвал соединение

ты свой beep в цикле молотишь - что ж тут удивительного ?

и св-во ClientSocket.Connected отнюдь НЕ отражает факт "разорванности" соединения.

установи его в False - получишь то что желаешь.

Reindeer Moss Eater (2005-03-21 16:25:00) [11]
Если был вызван Execute, значит был коннект.
Значит по крайней мере один раз оно бипнет.
И что странного?

Наверх

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