Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  02:38[Войти] | [Зарегистрироваться]
Ответ на вопрос № 49718

28-02-2007 09:18
Привет всем! Вопрос: как сделать скриншот и отправить его, используя компонент idUDPClient или idUDPServer (моя программа на них основана)? А как этот скриншот можно получить?

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

16-03-2008 09:10
А не можете ли готовый пример показать отправки и принятия картинки на UDP? по средствам Indy?

16-03-2007 06:05 | Сообщение от автора вопроса
Спасибо всем, работает программка, и довольно неплохо.

09-03-2007 07:15
Вам же написали, загляните в off-topic, там это есть
http://www.delphikingdom.com/help/help_offtopic.asp

09-03-2007 07:01 | Сообщение от автора вопроса
А как можно BMP перегнать в JPEG? Подключил модуль JPEG, а как с ним работать, не знаю (не нашёл там никаких функций для сохранения/загрузки).

06-03-2007 10:17 | Комментарий к предыдущим ответам
>>> как сделать скриншот
Об этом сказано даже в списке оффтопик вопросов.

06-03-2007 07:15
var
  Bitmap: TBitmap;
begin
  Bitmap:=TBitmap.Create;
  try
    Bitmap.LoadFromStream(AData);
    Image1.Picture.Assign(Bitmap);
  finally
    Bitmap.Free;
  end;
end;

06-03-2007 06:49 | Сообщение от автора вопроса
Может, я чё не так делаю?

06-03-2007 06:48 | Сообщение от автора вопроса
DataStringStream.Position:=0 вставил, всё равно нет ничего

06-03-2007 06:00 | Сообщение от автора вопроса
Честно говоря, я не знаю, зачем он нужен. Просто таким способом я текст получаю. А Вы не могли бы подсказать мне, каким способом можно получить изображение и поместить его в мой TImage?

06-03-2007 05:29
Ну там явно "DataStringStream.Position:=0" не хватает. Да и зачем вообще промежуточный поток нужен?

06-03-2007 05:23 | Сообщение от автора вопроса
Написал так, но картинка не грузится

var
DataStringStream: TStringStream;
begin
DataStringStream := TStringStream.Create('');
DataStringStream.CopyFrom(AData, AData.Size);
Image1.Picture.Bitmap.LoadFromStream(DataStringStream);
end;


06-03-2007 05:09
Кстати, в свойствах IdUDPClient-а указал размер буфера в 4 Мб (в байтах), тоже вроде нет ошибок
Этот параметр вообще ни на что при отправке не влияет.

06-03-2007 03:30 | Сообщение от автора вопроса
Это всё я попробовал, картинка захватывается, но не знаю, отправляется или нет, так как не пойму, как получить-то картинку? Кстати, в свойствах IdUDPClient-а указал размер буфера в 4 Мб (в байтах), тоже вроде нет ошибок (программа не виснет и фатал-эрроров не выдает).

01-03-2007 12:27
Надо учесть что размер UDP пакета ограничен, так что придётся какой-то протокол предусмотреть, поддерживающий разбивку картинки на несколько пакетов.

01-03-2007 04:08
Далее Bitmap надо сохранить в Stream или блок памяти.
Вот следующий кусок кода:
PackCmd - это record но может быть и указателем и Stream.
TIdUDPBase(IdUDPClient).SendBuffer(IP, WPort, PackCmd, SizeOf(PackCmd));

28-02-2007 15:13
Вот кусок кода, делающий снимок экрана, в имени будет Дата-Время. Сжимается всё это в формат PNG, как наиболее экономичный для скриншотов (ну если на экране не фотография, конечно).
Модуль PNGImage находится в интернете на раз, но можно выкинуть его и сохранять по другому.

uses PNGimage
//--------------
  DeskTop := TCanvas.Create;
  Bitmap := TBitmap.Create;
  PNG:=TPNGObject.Create;
  try
    with DeskTop do
      Handle := GetWindowDC(GetDesktopWindow);
    Bitmap.width:=Screen.Width;
    Bitmap.Height:=Screen.Height;
    with Bitmap.Canvas do
      CopyRect(Rect(0, 0, Screen.Width, Screen.Height),DeskTop,Rect(0, 0, Screen.Width, Screen.Height));
    PNG.Assign(Bitmap);
    PNG.SaveToFile('c:\'+FormatDateTime('"Снимок_"dd.mm.yy"_"hh.mm.ss_', Now)+'.png');
    beep;
  finally
    Bitmap.Free;
    DeskTop.Free;
    PNG.Free;
  end;
//--------------


Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Какой месяц идет после марта?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования