Почему вылезает Exeption? Client/ServerSocket

← →
Hawk (2002-03-07 17:22) [0]

я хочу из процедуры сразу отослать серверу(или клиенту) текстовую строку.. примерно так:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
...
ServerSocket1.Socket.SendText(String)
или
ClientSocket1.Socket.SendText(String)
...
end;

компилятор все одобряет а при подходе к этим строкам выдается Exeption :-(
чё делать ? или тольно можно посылать инфу через такие процедуры:
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
где вот этот SOCKET: TCustomWinSocket; присутствует?

← →
digitman (2002-03-07 17:33) [1]

"чё делать ?" приведи полный код модуля, где все это ты пытаешься проделать

← →
Hawk (2002-03-07 18:23) [2]

вот тут мне нада передать клиенту или серверу X и Y при нажатии мышкой в клетку... тоесть координаты клетки чтобы на клиенте(сервире) нарисовать крест или ноль

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var col,row:byte;s:string;
begin

s:=inttostr(x)+" "+inttostr(x);
if server then
ServerSocket1.Socket.SendText(s) else
ClientSocket1.Socket.SendText(s);

if status then
begin
col:=trunc(x/n)+1;
row:=trunc(y/n)+1;
if pole[row,col]=0 then
begin
if turn then
begin
krest(row,col);
pole[row,col]:=2;
end
else
begin
nul(row,col);
pole[row,col]:=1;
end;
turn:=not turn;
if (proverka(row,col)) then
begin
status:=false;
end;
end;
end;
end;

← →
digitman (2002-03-07 18:36) [3]

>>"вот тут мне нада..."
А мне "нада" полный текст модуля, чтобы помочь тебе !

← →
digitman (2002-03-07 18:39) [4]

>>"вот тут мне нада..."
А мне вот "нада" полный текст модуля, чтобы помочь тебе !
В том, что ты привел, Нет ни строчки о том, где и как происходит коннект с партнером

← →
Hawk (2002-03-07 19:07) [5]

коннект происходит обычным образом по IP и порту
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add("Connected to Server");
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add("Client Connected");
end;

← →
kazakh (2002-03-14 16:38) [6]

А Open сокету ты делал?

Почему вылезает Exeption? Client/ServerSocket Найти похожие ветки