Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> не идёт процедура под rad studio xe для удалённог, не идёт процедура под rad studio xe для 
:(
    Опции темы
s2004
Дата 22.4.2015, 07:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 30.10.2006

Репутация: нет
Всего: нет



Код


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 , но ругается нет файла dcu. 



PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »


 




[ Время генерации скрипта: 0.0556 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.