Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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
4-73478
SPeller
2002-03-21 08:06
2002.05.23
Обновление окна. Что при этом происходит ?


1-73141
DenNNis
2002-05-13 14:16
2002.05.23
Что за глюк такой???


1-73198
Gari
2002-05-14 14:43
2002.05.23
Прошу помощи !!!!!


3-73012
SONY
2002-04-26 06:59
2002.05.23
Ошибка


4-73473
Dialogig
2002-03-19 18:51
2002.05.23
Помогите добрые люди!!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский