|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.07.2012, 23:30 | #1 |
Пользователь
Регистрация: 04.05.2012
Сообщений: 11
|
Передача координат мыши через IDTCP
Добрый день). передаю координаты мыши удалённому серверу... через изображение...
Код:
а вот сервер Код:
После этого мышь примет положение X, Y. Заранее благодарен))). Последний раз редактировалось Stilet; 07.07.2012 в 07:46. |
07.07.2012, 08:48 | #2 |
Сливочное масло
Участник клуба
Регистрация: 01.01.2011
Сообщений: 1,149
|
Дык на сервер приходит строка, нужно её только обработать.
Яб советовал сформировать строку как-нибудь так: Код:
Ну а распарсить такую простоту можно и без специальных функций тупо в цикле for. Или же сразу функцией Pos найти положение *.
Сливочное масло Valio - компиляция как по маслу
|
07.07.2012, 11:21 | #3 |
Пользователь
Регистрация: 04.05.2012
Сообщений: 11
|
Вот мне и непонятно как из этих данных выташить и использовать координаты
|
07.07.2012, 11:34 | #4 |
Сливочное масло
Участник клуба
Регистрация: 01.01.2011
Сообщений: 1,149
|
Если не использовать спец функции, то можно так:
Код:
Сливочное масло Valio - компиляция как по маслу
|
07.07.2012, 12:03 | #5 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
Valio, за чем так сложно?
Код:
|
07.07.2012, 12:48 | #6 |
Пользователь
Регистрация: 04.05.2012
Сообщений: 11
|
я дам пример чужого кода:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); var strText: string; width, height, i: Integer; dc: HDC; x:integer; y:integer; a,b,conid,cx,cy: integer; s,scrrefr: string; foo: TPoint; begin GetCursorPos(foo); strText := AThread.Connection.ReadLn; if (strText = 'POS'+s) then begin cx:=0; cy:=0; Delete(s,1,7); cx:=StrToInt(Copy(s,1,pos('*',s)-1)); cy:=StrToInt(Copy(s,pos('*',s)+1,le ngth(s))); SetCursorPos(cx,cy); end; end; мне надо различать что пришли именно данные курсора, а не какая нибудь команда... и оттуда выташить данные.. и поставить курсор сразу в положение по этим данным. Потому что я не могу разобраться... |
07.07.2012, 12:54 | #7 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
а что вам строку не разбить на компоненты?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
07.07.2012, 13:00 | #8 |
Пользователь
Регистрация: 04.05.2012
Сообщений: 11
|
var
s,f: string; strText := AThread.Connection.ReadLn; if (strText = s+'*'+f) then begin cx:=0; cy:=0; cx:=StrToInt(s); cy:=StrToInt(f); SetCursorPos(cx,cy); end; сделал так, но при передаче координат ошибка |
07.07.2012, 14:20 | #9 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
...а в вашей версии Indy у этого компонента есть возможность передачи буфера по типу write(buf, sizeof(buf))?
А то ведь завести пакет данных со строго определенными размерами на передающей и приемной стороне и разбор-формирование будет автоматом: Код:
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
07.07.2012, 15:35 | #10 |
Пользователь
Регистрация: 04.05.2012
Сообщений: 11
|
нет такого...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определение координат через google maps | blax | PHP | 4 | 03.10.2011 11:22 |
команда определения координат положения курсора мыши | Aспирин | Общие вопросы Delphi | 11 | 28.03.2011 18:00 |
Поиск координат мыши на рельефе OpenGL | AngelOfDeathSX | Мультимедиа в Delphi | 1 | 12.03.2011 12:40 |
TСhart, клик мыши и координаты XY, Определение координат оси при клике мыши | Aravild | Компоненты Delphi | 1 | 31.01.2009 16:28 |
Определение X и Y координат PaintBox при перемещении курсора мыши | Vladimir K. | Общие вопросы Delphi | 3 | 04.01.2007 10:45 |