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

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

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

Что значит сообщение... [D6, D7, Win2k]

Leny © (2003-01-27 09:21:00)
Добрый день всем!
Не могу понять, что означает сообщение, которое выдает моя программа (работает с ServerSocket и ClientSocket), когда его отключкаешь от лок.сети. Сообщение: "Память не может быть прочитана" - что нужно, чтобы исправить эту ошибку?

mrcat (2003-02-03 10:57:00) [1]
Leny © (03.02.03 10:38)
...
SendText() -> клиент.приложение принимает данные и заносит их в таблицу.
...

Прально, "заносит"... а где уверенность, что "занесет" не "Leny", например, а "Le". Где?!

mrcat (2003-02-03 10:55:00) [2]
Leny © (03.02.03 10:38)
...
SendText() -> клиент.приложение принимает данные и заносит их в таблицу.
...

Прально, "заносит"... а где уверенность, что "занесет" все то, что ты передал?

Digitman (2003-02-03 10:55:00) [3]

> 1. SendText() -> клиент.приложение принимает данные и заносит
> их в таблицу.

ГДЕ У ТЕБЯ АНАЛИЗ РЕЗУЛЬТАТА ВЫЗОВА ЭТОЙ Ф-ЦИИ В СЕРВЕРНОМ ПРИЛОЖЕНИИ ? НЕТ ЕГО !!! А ОН ОБЯЗАН БЫТЬ !!!

> 4. PrAc - говорит о том, есть ли соединение по ServerSocket2.

Какое соединение ? Их может быть и ни одного и одно и более одного !

> 3. ServerSocket1 - еще одно клиентское приложение, которое
> послает данные на сервер.

ServerSocket1 - это не приложение, а компонент класса TServerSocket. И компонент этот отнюдь не предназначен для клиентских задач, только - серверных.

Leny (2003-02-03 10:38:00) [4]
1. SendText() -> клиент.приложение принимает данные и заносит их в таблицу.
4. PrAc - говорит о том, есть ли соединение по ServerSocket2.
3. ServerSocket1 - еще одно клиентское приложение, которое послает данные на сервер.

Digitman (2003-02-03 10:27:00) [5]
1. SendText() - функция !!!! Где анализ рез-та ее выполнения ?

2.
procedure TServerFormTable.ServerSocket2ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode:=0;
Socket.Disconnect(Socket.SocketHandle);
PrAc:=False;
end;

3. Что такое ServerSocket1 ? Зачем он здесь нужен, если нигде в коде не используется ?

4. Что за флаг PrAc ? О чем говорит то или иное его состояние в каждый момент времени ?

mrcat (2003-02-03 09:01:00) [6]
ServerSocket2.Socket. Destroy;

это чего такое? =)

Leny (2003-02-03 08:52:00) [7]
Вот код -
procedure TServerFormTable.FormCreate(Sender: TObject);
begin
ServerSocket1.Open;
ServerSocket2.Open;
end;

procedure TServerFormTable.ServerSocket2ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
PrAc:=True;
Timer1.Enabled:=True;
end;

procedure TServerFormTable.Timer1Timer(Sender: TObject);
begin
if PrAc then
with StringGrid1 do
begin
ServerSocket2.Socket.Connections[ServerSocket2.Socket.ActiveConnections-1].SendText(Rows[Rowcount-1].Text);
end
else
Timer1.Enabled:=False;
end;

procedure TServerFormTable.ServerSocket2ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
PrAc:=False;
end;

procedure TServerFormTable.ServerSocket2ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode:=0;
ServerSocket2.Socket.Destroy;
PrAc:=False;
end;

procedure TServerFormTable.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose:=False;
ServerSocket2.Close;
ServerSocket1.Close;
CanClose:=True;
end;

Digitman (2003-01-29 13:33:00) [8]
Приводи код !

Leny (2003-01-29 12:45:00) [9]
Еще эта ошибка возникает, если запустить диспетчер задач Windows и попытаться закрыть приложение...

Digitman (2003-01-29 09:19:00) [10]

> Leny

Приводи код

Leny (2003-01-29 08:39:00) [11]
Вынимаешь кабель - и сеть недоступна -> сразу выскакивает ошибка... а приложение после этого нельзя корректно закрыть.

-=Ventus=- (2003-01-28 15:54:00) [12]
A Tы как отрубаешься от сети... просто закрываешь прогу или чё ???

Chubais (2003-01-27 19:12:00) [13]
отладить приложение
ЭФЬ СЕМ и ЭФЬ ОСЬМ

Наверх

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