Что значит сообщение...

← →
Leny © (2003-01-27 09:21) [0]

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

← →
Chubais © (2003-01-27 19:12) [1]

отладить приложение
ЭФЬ СЕМ и ЭФЬ ОСЬМ

← →
-=Ventus=- © (2003-01-28 15:54) [2]

A Tы как отрубаешься от сети... просто закрываешь прогу или чё ???

← →
Leny © (2003-01-29 08:39) [3]

Вынимаешь кабель - и сеть недоступна -> сразу выскакивает ошибка... а приложение после этого нельзя корректно закрыть.

← →
Digitman © (2003-01-29 09:19) [4]

> Leny

Приводи код

← →
Leny © (2003-01-29 12:45) [5]

Еще эта ошибка возникает, если запустить диспетчер задач Windows и попытаться закрыть приложение...

← →
Digitman © (2003-01-29 13:33) [6]

Приводи код !

← →
Leny © (2003-02-03 08:52) [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;

← →
mrcat © (2003-02-03 09:01) [8]

ServerSocket2.Socket. Destroy;

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

← →
Digitman © (2003-02-03 10:27) [9]

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 ? О чем говорит то или иное его состояние в каждый момент времени ?

1. SendText() -> клиент.приложение принимает данные и заносит их в таблицу.
4. PrAc - говорит о том, есть ли соединение по ServerSocket2.
3. ServerSocket1 - еще одно клиентское приложение, которое послает данные на сервер.

Leny © (03.02.03 10:38)
...
SendText() -> клиент.приложение принимает данные и заносит их в таблицу.
...

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

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

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

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

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

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

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

Leny © (03.02.03 10:38)
...
SendText() -> клиент.приложение принимает данные и заносит их в таблицу.
...

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

Что значит сообщение... Найти похожие ветки