Форум: "Сети";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];
ВнизПочему вылезает 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 сокету ты делал?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c