Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

МЫШЬ drag-drop в аналоге RAdmin

Pcrepair © (2011-07-06 21:30:00)
Добрый день!
потихоньку идет разработка аналога РАдмин, в рамках одного проекта в среде D2010
на текущий день есть код переноса отжатия кнопок мыши с клиента на сервер в компоненте ИМЕДЖ1, в котором отображается скрин экрана сервера, все работает

КЛИЕНТ
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbLeft then begin IdTCPClient1.Host:=HOST.Text; IdTCPClient1.Port:=StrToInt(PortNumber.Text); IdTCPClient1.Connect; IdTCPClient1.IOHandler.WriteLn('mouse_left '); IdTCPClient1.Disconnect; end; if Button=mbRight then begin IdTCPClient1.Host:=HOST.Text; IdTCPClient1.Port:=StrToInt(PortNumber.Text); IdTCPClient1.Connect; IdTCPClient1.IOHandler.WriteLn('mouse_right '); IdTCPClient1.Disconnect; end; end;

СЕРВЕР
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); var z: string; X,Y:integer; K:TPoint; if SameText(Copy(z, 1, 11), 'mouse_move ') then begin z := AContext.Connection.IOHandler.ReadLn; if SameText(Copy(z, 1, 8), 'mouse_x ') then X:=StrToInt(Copy(z,9,4)); z := AContext.Connection.IOHandler.ReadLn; if SameText(Copy(z, 1, 8), 'mouse_y ') then Y:=StrToInt(Copy(z,9,4)); Log('Перемещение мыши'); SetCursorPos(X,Y); end; if SameText(Copy(z, 1, 11), 'mouse_left ') then begin GetCursorPos(K); mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,K.X,K.Y,0,0); mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,K.X,K.Y,0,0); Log('Нажатие левой кнопки мыши'); end; if SameText(Copy(z, 1, 12), 'mouse_right ') then begin GetCursorPos(K); mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN,K.X,K.Y,0,0); mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP,K.X,K.Y,0,0); Log('Нажатие правой кнопки мыши'); end; AContext.Connection.Disconnect; end; end;

ВОПРОСЫ:
1. можно ли реализовать функцию перетаскивания объектов, как приблизительно код может выглядеть?
2. можно ли реализовать прокрутку с использованием колесика мыши (мышь - два баттона и колесо, стандартная), в событиях компонента ИМЕДЖ1 нет обработки колеса
3. в принципе, нужно ли делать обработку событий типа клик, двойной клик и что там может быть еще связянное с мышью, чтобы приблизиться к функционалу MSRDP?

QAZ (2011-07-08 22:53:00) [1]

> Можно, но имхо на кой черт вам сдался этот TImage не по
> назначению использщуете компонент, он для отображения статичных
> картинок предназначен, но не для рисования и анимации.

между прочим движок сризиса тоже через TImage выводит, такчто не обижай парня

DiamondShark (2011-07-08 20:01:00) [2]
РАдмин риальне сосёт.
IdTCPClient1.Connect; IdTCPClient1.IOHandler.WriteLn('mouse_left '); IdTCPClient1.Disconnect;
Тестите, поди, на гигабитной сетке?

Работа с сетью через анус.
Об оконных сообщениях понятия ноль.
А всё туда же: аналог РАдмина, функциАнал MSRDP. OCR ещё.

> Pcrepair © (08.07.11 08:38) [11]
> по найму не работаю

Предприниматель, значит.
Иди пивом торгуй.

Pcrepair (2011-07-08 08:38:00) [3]
по найму не работаю

Palladin (2011-07-07 23:22:00) [4]

> букваре по этому поводу ничего не сказано

это в каком таком букваре по написанию убийц роадминов это должно быть сказано?

> файл скрина экрана сервера в формате БМП необходим для последующей
> обработки - OCR

а за накой хрен этот скрин OCRом обрабатывать?

а сколько ты зарплату у работодателей просишь?

DVM (2011-07-07 19:20:00) [5]

> Pcrepair © (07.07.11 19:11) [8]

> то есть эти события компонента Тимедж - OnStartDrag и OnDragOver
> и OnDragDrop к мыши отношения не имеют?

они к твоей задаче отношения не имеют

Pcrepair (2011-07-07 19:11:00) [6]
то есть эти события компонента Тимедж - OnStartDrag и OnDragOver и OnDragDrop к мыши отношения не имеют? в букваре по этому поводу ничего не сказано
файл скрина экрана сервера в формате БМП необходим для последующей обработки - OCR

DVM (2011-07-07 16:49:00) [7]

> Pcrepair © (07.07.11 15:51) [5]

> а на чем еще отображать файл.бмп - скрин экрана сервера?

Да на чем угодно, TPaintBox на худой конец, а лучше сделать свое что-то (с блекджеком и обработкой колеса мыши).

> в событиях компонента есть OnStartDrag и OnDragOver и OnDragDrop
> и еще OnEngDrag. неясно только как из применять

Это события какого компонента? TImage что ли? Причем тут эти события? Ты что хочешь перетаскивать откуда и куда? Если ты хочешь перетаскивать что-либо на удаленной машине, то туда ничего кроме перемещений мыши и кликов отправлять не надо.

Dennis I. Komarov (2011-07-07 16:10:00) [8]

> Pcrepair © (07.07.11 15:51) [5]

Поиск в "Сети", там много таких Кулибиных...

Pcrepair (2011-07-07 15:51:00) [9]
DVM

> Можно, но имхо на кой черт вам сдался этот TImage не по
> назначению использщуете компонент, он для отображения статичных
> картинок предназначен, но не для рисования и анимации.

а на чем еще отображать файл.бмп - скрин экрана сервера?
что конкретно значит

> достаточно перенаправлять клики мыши и перемещения мыши
> - остальное забота ос

в событиях компонента есть OnStartDrag и OnDragOver и OnDragDrop и еще OnEngDrag. неясно только как из применять

QAZ (2011-07-07 11:50:00) [10]
зачем делать то, что уже есть в самой винде

Palladin (2011-07-07 10:46:00) [11]
Да это не просто аналог, это убийца RAdmin'а !

DVM (2011-07-06 22:15:00) [12]

> Pcrepair © (06.07.11 21:30)

> 1. можно ли реализовать функцию перетаскивания объектов,
> как приблизительно код может выглядеть?

можно, делать ничего не нужно, достаточно перенаправлять клики мыши и перемещения мыши - остальное забота ос.

> 2. можно ли реализовать прокрутку с использованием колесика
> мыши (мышь - два баттона и колесо, стандартная), в событиях
> компонента ИМЕДЖ1 нет обработки колеса

Можно, но имхо на кой черт вам сдался этот TImage не по назначению использщуете компонент, он для отображения статичных картинок предназначен, но не для рисования и анимации.

> 3. в принципе, нужно ли делать обработку событий типа клик,
> двойной клик и что там может быть еще связянное с мышью,
> чтобы приблизиться к функционалу MSRDP?

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

Andy BitOff (2011-07-06 22:12:00) [13]
Аналог РАдмина =D

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »