Главная страница
    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.009 c
14-73381
SB.John
2002-04-15 11:18
2002.05.23
Как вы относитесь к вопросам типа...


4-73451
REL_
2002-03-22 14:11
2002.05.23
BitMap


3-73072
Саша
2002-04-27 10:37
2002.05.23
изменить все поля в таблице при изменении такихже полей в др. таб


4-73443
EAlexander
2002-03-21 16:58
2002.05.23
Синхронизация времени


1-73106
Carpenter
2002-05-07 19:54
2002.05.23
динамические массивы как параметры функции в DLL





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский