На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.
Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> не идёт процедура под rad studio xe для удалённого управления , не идёт процедура под rad studio xe для удалённого управления
s2004
Сообщ. #1 ,
    Member
    **
    Профиль · PM
    Рейтинг (т): -1
    ExpandedWrap disabled
      procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
      var
        strText: string;
        width, height, i: Integer;
        dc: HDC;
      begin
        //Принимаем от клиента строку
        strText := AThread.Connection.ReadLn; исправил на AContext.Connection.IOHandler.ReadLn
        //Определяем, что нужно выполнить
        if (strText = 'get_screen_height') then
          //Возвратим высоту экрана
          Athread.Connection.WriteInteger(Screen.Height) а тут на дальше не получаетс AContext.Connection....?
        else if (strText = 'get_screen_width') then
          //Возвратим ширину экрана
          Athread.Connection.WriteInteger(Screen.Width)
        else if (strText = 'get_screen_colors') then
        begin
          //Возвратим количество бит на точку
          dc := GetDC(0);
          Athread.Connection.WriteInteger(GetDeviceCaps(dc, BITSPIXEL));
          ReleaseDC(0, dc);
        end
        else if (strText = 'get_screen') then
          //Возвратим полноразмерную копию экрана
          SendScreen(Screen.Width, Screen.Height, AThread.Connection)
        else begin //строка вида 'get_screen:x,y'
          //Определеним значения высоты и ширины, переданные пользователем
          strText := Copy(strText, 12,Length(strText)-11);
          i := Pos(',', strText); //Положение запятой
          width := StrToInt(Copy(strText, 1, i-1));
          height := StrToInt(Copy(strText, i+1, Length(strText)-i));
          //Возвратим копию экрана
          SendScreen(width, height, AThread.Connection);
        end;
      end;


    вообще много мороки с дельфи 7 и дельфа 2006 резко отличаются от ХЕ

    в uses подставлял IOHandler сейчас там writeln readln
    Сообщение отредактировано: s2004 -
    1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0.0490 ]   [ 15 queries used ]   [ Generated: 23.08.26, 22:45 GMT ]  
    Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.