Передача переменных по TcpClient/TcpServer

@PTyTb · Регистрация: 13.07.2013

Author24 — интернет-сервис помощи студентам

Пишу программу удаленного управления, написал часть сервера и часть клиента, теперь от сервера нужно передать 2 переменные типа integer клиенту, чтобы он принял их и по ним поставил курсор. Помогите с этим пожалуйста.

@саша40 · 13.07.2013, 15:23

Преобразуй в текст(inttostr) и передай, приемник уже примет текст и преобразует в число(strtoint). Дальше уже ставь.

@xNeKiToSx · 13.07.2013, 15:30

саша40, Зачем переводить в строку? Увеличивать размер?

@саша40 · 13.07.2013, 15:37

Сообщение от xNeKiToSx

Зачем переводить в строку? Увеличивать размер?

Строкой передать легче. Просто Writeln. Размеры это не увеличит.

@xNeKiToSx · 14.07.2013, 01:36

Сообщение от саша40

Строкой передать легче. Просто Writeln. Размеры это не увеличит.

т.е. число 200000 весом в 4 байта перевести в строку "200000" останется 4 байта?

@dir32 · 14.07.2013, 02:36

Сообщение от саша40

Строкой передать легче. Просто Writeln.

)))
ты хотя бы раз обратил внимание на то как отправляется буфер? и зачем там указывается конкретный участок памети ?
ведь буфером можно отправить все что угодно )
не проще будет собрать там данные в рекорд и просто отправить его ?))

Delphi

type
coordinat = record
visota : word;
dlina : word;
end;
...
coordinat.dlina:=mish.X;
coordinat.visota:=mish.Y;
...sendbuf(coordinat,sizeof(coordinat));

и ловить его лучше сразу в такой же тип с двумя вордами, без лишней суеты.
в памяти длина ворда ограничивается двумя байтами и число в диапазоне (0,65535) вполне подходит в данный случаи

а еще проще

Delphi

var mps : Tpoint;
...
GetCursorPos(mps);
SendBuf(mps,sizeof(mps));
...

@PTyTb · 14.07.2013, 14:18 **[ТС]**

я их подключил, а передать данные никак не получается((

@dir32 · 14.07.2013, 20:07

Сообщение от PTyTb

я их подключил, а передать данные никак не получается((

что ты питаешься передать ? тип или переменная данного типа ?

код в студию

@PTyTb · 14.07.2013, 20:20 **[ТС]**

Server:

Delphi

procedure TForm1.Button4Click(Sender: TObject);
begin
tcpclient1.ReceiveBuf(p,sizeof(p));
label2.Caption:=inttostr(p);
end;

Client:

Delphi

procedure TForm1.Button4Click(Sender: TObject);
begin
GetCursorPos(q);
p:=q.x;
tcpserver1.SendBuf(p,sizeof(p));
label2.Caption:=inttostr(p);
end;

Добавлено через 7 минут
на клиенте в label2 написаны координаты оси Х, а на сервере в Label2 написано 0....

@dir32 · 14.07.2013, 21:03

Client:

Delphi

procedure TForm1.Button4Click(Sender: TObject);
var q:Tpoint;
begin
GetCursorPos(q);
tcpserver1.SendBuf(q,sizeof(q),0);
label2.Caption:=inttostr(q.x)+inttostr(q.y);
end;

Server:

Delphi

var p : Tpoint;
begin
...
tcpclient1.ReceiveBuf(p,sizeof(p),0);
label2.Caption:=inttostr(p.x)+inttostr(p.y);
 
end;

вряд ли ты послушаешь сокет сервера таким образом

Сообщение от PTyTb

Server:

Delphi

procedure TForm1.Button4Click(Sender: TObject);
begin
tcpclient1.ReceiveBuf(p,sizeof(p));
...

погугли как работать с TcpClient/TcpServer

@PTyTb · 14.07.2013, 23:21 **[ТС]**

не передает переменные((((( печаль беда..
и в стринге тоже...

@dimajak · 15.07.2013, 15:33

PTyTb, ты пытаешься прочитать данные с сокета при клике на кнопке?

Delphi

procedure TForm1.Button4Click(Sender: TObject);
begin
tcpclient1.ReceiveBuf(p,sizeof(p));
label2.Caption:=inttostr(p);
end;

считывай их в процедуре события OnRead

@PTyTb · 15.07.2013, 21:22 **[ТС]**

там нет такой(( только OnListening (наиболее подходящее)

@northener · 15.07.2013, 21:51

Сообщение от PTyTb

только OnListening (наиболее подходящее)

OnListening не годится. Это событие возбуждается до установления связи с клиентом.
У предка классов ТTcpClient/ТTcpServer есть событие OnReceive.

А вообще настоятельно рекомендую забыть пока еще не стало поздно эти недоделанные 12 лет назад компоненты и работать с библиотекой Indy или с (рекомендую лично как лучшую) библиотекой ICS http://www.overbyte.be/frame_index.html

@PTyTb · 15.07.2013, 22:10 **[ТС]**

попробую на инди... просто пипец как на лаве влетел, а тут заводу нужна удаленка на 900 машин

@dimajak · 16.07.2013, 01:10

PTyTb, не изучал TcpClient/TcpServer поэтому думал, что речь шла про Инди.
Сейчас посмотрел про них - TcpServer сложен для начинающего, т.к. требует кроме сокетов еще и изучения многопоточности (TThread). .
Для более легкого знакомства с сокетами годится TServerSocket/TClientSocket, на них же можно опосля опробовать многопоточность (режим stThreadBlocking). Описание работы с компонентами.
Пример работы с TServerSocket/TClientSocket через SendText ExampleSocket.rar (XE2)
На форме слева - мемо и кнопки для старт/стоп сервера. Справа - мемо и кнопки для подключения/отключения клиента к серверу, а также поле ввода и кнопка отправления текста серверу. Сервер при приеме текста от клиента отправляет принятый текст отправителю и всем подключенным клиентам (!). В идеале отправитель должен получить два экземпляра отправленного текста.
После запуска программы нажимаем Start (запускаем сервер), в окне слева (сервера) видим запись о старте сервера. Подключим клиента к серверу кнопкой Connect - увидим подтверждающие сообщения в мемо сервера и клиента. В поле для ввода введем любой текст и отправим его кнопкой Send. Увидим отправленный от клиента текст в мемо сервера и принятый от сервера текст в мемо клиента.
Но! На стороне сервера принятый текст от клиента мы отправляем два раза - конкретно самому отправителю и в цикле общей отправки.
Обратите здесь внимание!
Т.е. в идеале отправитель должен получить два экземпляра отправленного текста.
Но, почему-то этого не произошло. Введём любой текст в поле ввода и отправим его кнопкой Send.
Что мы видим в мемо клиента? Текст от предыдущего сообщения соединился с текстом только что отправленного.
Почему?
Попробуйте добавить в конце отправляемого сообщения символ конца строки '#10'.
Получается? Всегда?
Попробуйте отправить строку размером больше 8 КБ.

Надеюсь, теперь вы понимаете куда копать, что прочитать и изучить.

@БогДелфей · 16.07.2013, 18:26

Клиент-Сервер, под нужды какой то темы этого форума.
Клиент отправляет чота, сервер принимает чота и отправляет обратно тому кто отправил это самое чота, при желании не трудно изменить.

@PTyTb · 16.07.2013, 20:49 **[ТС]**

~~БогДелфей~~, спасибо спасибо спасибо спасибо!!!!!!

@PTyTb · 17.07.2013, 21:54 **[ТС]**

ааа, нет нифига не работает(((

@mss · 17.07.2013, 22:39

Сообщение от PTyTb

нифига не работает

И хорошо что не работает.
Если бы заработало, ты бы еще раз "пипец как на лаве влетел", когда выстрелили бы грабли, спрятанные писателем-умельцем в server.dpr)

@PTyTb 0 / 0 / 0 Регистрация: 13.07.2013 Сообщений: 15
	14.07.2013, 23:21 [ТС]	11
	не передает переменные((((( печаль беда.. и в стринге тоже... 0

@PTyTb 0 / 0 / 0 Регистрация: 13.07.2013 Сообщений: 15
	17.07.2013, 21:54 [ТС]	19
	ааа, нет нифига не работает((( 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	13.07.2013, 15:23	2
	Преобразуй в текст(inttostr) и передай, приемник уже примет текст и преобразует в число(strtoint). Дальше уже ставь. 0

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	13.07.2013, 15:30	3
	саша40, Зачем переводить в строку? Увеличивать размер? 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	13.07.2013, 15:37	4
	Сообщение от xNeKiToSx Зачем переводить в строку? Увеличивать размер? Строкой передать легче. Просто Writeln. Размеры это не увеличит. 0

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	14.07.2013, 01:36	5
	Сообщение от саша40 Строкой передать легче. Просто Writeln. Размеры это не увеличит. т.е. число 200000 весом в 4 байта перевести в строку "200000" останется 4 байта? 0

@PTyTb 0 / 0 / 0 Регистрация: 13.07.2013 Сообщений: 15
	14.07.2013, 14:18 [ТС]	7
	я их подключил, а передать данные никак не получается(( 0

@dir32 1 / 1 / 0 Регистрация: 18.07.2012 Сообщений: 16
	14.07.2013, 20:07	8
	Сообщение от PTyTb я их подключил, а передать данные никак не получается(( что ты питаешься передать ? тип или переменная данного типа ? код в студию 0

@PTyTb 0 / 0 / 0 Регистрация: 13.07.2013 Сообщений: 15
	15.07.2013, 21:22 [ТС]	13
	там нет такой(( только OnListening (наиболее подходящее) 0

@northener пофигист широкого профиля 4755 / 3190 / 861 Регистрация: 15.07.2013 Сообщений: 18,470
	15.07.2013, 21:51	14
	Сообщение от PTyTb только OnListening (наиболее подходящее) OnListening не годится. Это событие возбуждается до установления связи с клиентом. У предка классов ТTcpClient/ТTcpServer есть событие OnReceive. А вообще настоятельно рекомендую забыть пока еще не стало поздно эти недоделанные 12 лет назад компоненты и работать с библиотекой Indy или с (рекомендую лично как лучшую) библиотекой ICS http://www.overbyte.be/frame_index.html 0

@PTyTb 0 / 0 / 0 Регистрация: 13.07.2013 Сообщений: 15
	15.07.2013, 22:10 [ТС]	15
	попробую на инди... просто пипец как на лаве влетел, а тут заводу нужна удаленка на 900 машин 0

@dimajak 1 / 1 / 0 Регистрация: 30.01.2013 Сообщений: 102
	16.07.2013, 01:10	16
	PTyTb, не изучал TcpClient/TcpServer поэтому думал, что речь шла про Инди. Сейчас посмотрел про них - TcpServer сложен для начинающего, т.к. требует кроме сокетов еще и изучения многопоточности (TThread). . Для более легкого знакомства с сокетами годится TServerSocket/TClientSocket, на них же можно опосля опробовать многопоточность (режим stThreadBlocking). Описание работы с компонентами. Пример работы с TServerSocket/TClientSocket через SendText ExampleSocket.rar (XE2) На форме слева - мемо и кнопки для старт/стоп сервера. Справа - мемо и кнопки для подключения/отключения клиента к серверу, а также поле ввода и кнопка отправления текста серверу. Сервер при приеме текста от клиента отправляет принятый текст отправителю и всем подключенным клиентам (!). В идеале отправитель должен получить два экземпляра отправленного текста. После запуска программы нажимаем Start (запускаем сервер), в окне слева (сервера) видим запись о старте сервера. Подключим клиента к серверу кнопкой Connect - увидим подтверждающие сообщения в мемо сервера и клиента. В поле для ввода введем любой текст и отправим его кнопкой Send. Увидим отправленный от клиента текст в мемо сервера и принятый от сервера текст в мемо клиента. Но! На стороне сервера принятый текст от клиента мы отправляем два раза - конкретно самому отправителю и в цикле общей отправки. Обратите здесь внимание! Т.е. в идеале отправитель должен получить два экземпляра отправленного текста. Но, почему-то этого не произошло. Введём любой текст в поле ввода и отправим его кнопкой Send. Что мы видим в мемо клиента? Текст от предыдущего сообщения соединился с текстом только что отправленного. Почему? Попробуйте добавить в конце отправляемого сообщения символ конца строки '#10'. Получается? Всегда? Попробуйте отправить строку размером больше 8 КБ. Надеюсь, теперь вы понимаете куда копать, что прочитать и изучить. 0

@PTyTb 0 / 0 / 0 Регистрация: 13.07.2013 Сообщений: 15
	16.07.2013, 20:49 [ТС]	18
	~~БогДелфей~~, спасибо спасибо спасибо спасибо!!!!!! 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.07.2013, 22:39	20
	Сообщение от PTyTb нифига не работает И хорошо что не работает. Если бы заработало, ты бы еще раз "пипец как на лаве влетел", когда выстрелили бы грабли, спрятанные писателем-умельцем в server.dpr) 0