VPF::Работа с графикой - Форум программистов

Mr.Floppy

Дата 31.8.2006, 01:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 106
Регистрация: 3.7.2006
Где: Москва

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

Объясните, пожалуйста, как работать с графикой с помощью API.

Как сделать захват экрана?
Можно ли сжать картинку по алгоритмам JPEG и PNG, пользуясь средствами Windows? (mspaint по крайней мере умеет )

Когда делал на VCL с использованием TBitmap был примерно такой код:

Код


uses PNGImage; //PNG support (http://pngdelphi.sourceforge.net/)
procedure GetScreenShot(hWnd: HWND);
var
  WP: TWindowPlacement;
  DC: TBitmap;
  procedure SaveToPNG(Source: TBitmap; Path: string; Compression: TCompressionLevel);
  var
    Png: TPNGObject;
  begin
    Png := TPNGObject.Create;
    Png.Assign(Source);
    Png.CompressionLevel := Compression;
    Png.SaveToFile(Path);
    Png.Free;
  end;
  procedure SaveToJpeg(Source: TBitmap; Path: string; Quality: TJPEGQualityRange);
  var
    Jpeg: TJpegImage;
  begin
    Jpeg := TJpegImage.Create;
    Jpeg.Assign(Source);
    Jpeg.CompressionQuality := Quality;
    Jpeg.SaveToFile(Path);
    Jpeg.Free;
  end;
begin
  GetWindowPlacement(hWnd,@WP);
  DC := TBitmap.Create;
  DC.Width := WP.rcNormalPosition.Right - WP.rcNormalPosition.Left;
  DC.Height := WP.rcNormalPosition.Bottom - WP.rcNormalPosition.Top;
  BitBlt(DC.Canvas.Handle,
        0,
        0,
        DC.Width,
        DC.Height,
        GetDC(GetDesktopWindow),
        WP.rcNormalPosition.Left,
        WP.rcNormalPosition.Top,
        SRCCopy);
  case Settings.Format of
    BMP: DC.SaveToFile(Path + '.bmp');
    PNG: SaveToPNG(DC, Path + '.png', Settings.PngCompression);
    JPG: SaveToJPEG(DC, Path + '.jpg', Settings.JpegQuality);
  end;
  DC.Free;
end;

Как можно это реализовать на WinAPI?

Это сообщение отредактировал(а) Mr.Floppy - 31.8.2006, 01:09

Alexeis

Дата 31.8.2006, 01:31 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Mr.Floppy, Анологично, но вот вместо TJpegImage и TPNGObject придется использовать GDI+

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Mr.Floppy

Дата 30.9.2006, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 106
Регистрация: 3.7.2006
Где: Москва

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

А можно примерчик преобразования в PNG или JPEG? smile

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