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

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

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

Почему вылезает Exeption? Client/ServerSocket [D6, Win95/98]

Hawk © (2002-03-07 17:22:00)
я хочу из процедуры сразу отослать серверу(или клиенту) текстовую строку.. примерно так:

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; присутствует?

kazakh (2002-03-14 16:38:00) [1]
А Open сокету ты делал?

Hawk (2002-03-07 19:07:00) [2]
коннект происходит обычным образом по 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;

digitman (2002-03-07 18:39:00) [3]
>>"вот тут мне нада..."
А мне вот "нада" полныйтекст модуля, чтобы помочь тебе !
В том, что ты привел, Нет ни строчки о том, где и как происходит коннект с партнером

digitman (2002-03-07 18:36:00) [4]
>>"вот тут мне нада..."
А мне "нада" полныйтекст модуля, чтобы помочь тебе !

Hawk (2002-03-07 18:23:00) [5]
вот тут мне нада передать клиенту или серверу 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 17:33:00) [6]
"чё делать ?" приведи полный код модуля, где все это ты пытаешься проделать

Наверх

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