аналог радмина, сжатие скрина

[strbb]

Пишу аналог радмина по локальной сети, необходимо быстро сжать скриншот до 1.5 - 2 метров (как минимум), jpg, gif, png не подходят, слишком долго сжимают ... Есть ли форматы для быстрого сжатия изображения?

[Alex Cones]

Не замечал, чтобы пересохранение в JPG или PNG происходило долго. В какой именно интервал времени необходимо уложиться?

[strbb]

Сообщение от Alex Cones

Не замечал, чтобы пересохранение в JPG или PNG происходило долго. В какой именно интервал времени необходимо уложиться?

Сейчас на это уходит 200-230 мсек, желательно уменьшить это время до 100-150.

[Alex Cones]

Вы видео транслируете или радмин делаете? Зачем такая частота обновления? Раза в секунду хватит с головой, максимум (если прям уж видео хочется) 2 Гц.

[Пепел Феникса]

и учитесь слать не весь экран а только нужную область.(измененную к примеру)
так тоже можно уменьшить трафик.

[Alex Cones]

Трафик, насколько я понимаю, здесь безграничен -

Пишу аналог радмина по локальной сети

, но замечание полезное.

[ArtGrek]

а почему не TBitMap передоват?

[Alex Cones]

а почему не TBitMap передоват?

О_о а вы представляете, сколько будет передаваться битмап размером в пару десятков мегабайт?

[SERG1980]

Когда то делал типа радмина и передавал в Jpeg с интервалом в 1 сек. сеть при этом загружалась на 1-2%. (с битмапом 15-20%). использовал Indy 10

Procedure SendScreen(SSConnection:TIdContext);
var dc:HDC;
    ScreenCanvas:TCanvas;
    ScreenStream:TMemoryStream;
    ScreenRect:TRect;
    ScreenBM:TBitMap;
    SendJPEG:TJPEGImage;
begin
 ScreenRect:=Screen.DesktopRect;
 ScreenCanvas:=TCanvas.Create;
 ScreenCanvas.Handle:=GetDC(0);
 ScreenBM:=TBitMap.Create;
 SendJPEG:=TJPEGImage.Create;
 ScreenBM.Width:=Screen.Width;
 ScreenBM.Height:=Screen.Height;
 ScreenBM.Canvas.CopyRect(ScreenRect,ScreenCanvas,ScreenRect);
 ReleaseDC(0,ScreenCanvas.Handle);
 ScreenStream:=TMemoryStream.Create;
 SendJPEG.Assign(ScreenBM);
 //SendJPEG.CompressionQuality:=50;  //степень сжатия от 1 до 100
 //SendJPEG.Compress;
 SendJPEG.SaveToStream(ScreenStream);
 //ScreenBM.SaveToStream(ScreenStream);
 ScreenStream.Position:=0;
 try
  SSConnection.Connection.IOHandler.Write(ScreenStream,ScreenStream.Size,true);
 finally
  SSConnection.Connection.Disconnect;
 end;
 SendJPEG.Free;
 ScreenStream.Clear;
 ScreenStream.Free;
 ScreenBM.Free;
end;

[BOBAH13]

Сообщение от strbb

Пишу аналог радмина по локальной сети, необходимо быстро сжать скриншот до 1.5 - 2 метров (как минимум), jpg, gif, png не подходят, слишком долго сжимают ... Есть ли форматы для быстрого сжатия изображения?

Вам надо не сжимать и слать "файлы" (изображения), а именно создать потоковое видео. Алгоритмы создания потокового видео существуют различные. (сам не вникал). К примеру, первое что в голову приходит, слать пиксели только те, которые изменились с предыдущего кадра. Как пример, можно создать битовую карту для строки изображения (bitmap'a) где будет указаны какие пиксели будут присланы, далее слать последовательно только новые пиксели, на стороне клиента принимать и отображать в соответствии со строкой и битовой картой куда какие новые пиксели выводить.

Ну это я так, полет фантазии, этот "пакет" еще можно сжать каким нибудь LZMA к примеру, для полного счастья.