сжатие картинки

[player891]

Здравствуйте, подскажите способы сжатия разрешения изображения формата bmp,jpeg в делфи с минимальной потерей качества,какие операторы за это отвечают?
если можно приведите пример сжатия любого разрешения.

[Stilet]

разрешения изображения формата

Всмысле изменение размера файла? Или именно сжатие изображения?
Если первое то функции из GDI+ могу порекомендовать (сжатие в TIFF)
Если второе то... Да банальный StretchBlt из WinAPI подойдет.

[player891]

второе,нужно изменить (уменьшить) разрешение изображения ,
спасибо, буду разбираться с этим StretchBlt из WinAPI

[player891]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;
 GDIPAPI,
 GDIPOBJ;

type
 TForm1 = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}
procedure OnPaint(DC: HDC);
var
graphics : TGPGraphics;
Image, pThumbnail: TGPImage;
begin
graphics := TGPGraphics.Create(DC);
Image:= TGPImage.Create('D:\1.jpeg');

pThumbnail := image.GetThumbnailImage(60, 48, nil, nil);
graphics.DrawImage(pThumbnail, 10, 10, pThumbnail.GetWidth, pThumbnail.GetHeight);

Image.Free;
pThumbnail.Free;
graphics.Free;
end;
end.

Запускаю ран высвечивается красная строка 7 по счету GDIPAPI,что не так?

[player891]

[Error] Unit1.pas(8): Declaration expected but identifier 'GDIPAPI' found - Декларация ожидалось, но идентификатор "GDIPAPI" найден.что это значит?переводчик криво переводит, а с англ я не дружу.
[Error] Unit1.pas(27): Undeclared identifier: 'TGPGraphics' - необъявленный идентификатор: "TGPGraphics".я же объявил их в var,почему ошибка?
[Error] Unit1.pas(28): Undeclared identifier: 'TGPImage' - необъявленный идентификатор: 'TGPImage'
[Error] Unit1.pas(30): Missing operator or semicolon - Отсутствует оператор или точка с запятой - не понял какого оператора ему нужно?)
[Error] Unit1.pas(31): Missing operator or semicolon
[Error] Unit1.pas(33): Missing operator or semicolon
[Error] Unit1.pas(34): Missing operator or semicolon
[Error] Unit1.pas(34): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' - [Fatal Error] Project1.dpr (5): не удалось скомпилировать использовать
'Unit1.pas'

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

почему в списке модулей у вас стоит ; а не запятая?

[s-andriano]

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

второе,нужно изменить (уменьшить) разрешение изображения ,
спасибо, буду разбираться с этим StretchBlt из WinAPI

Это простейший метод, дающий не очень хорошие результаты.
Например, наклонная сплошная линия в 1 пиксель толщиной превратится в пунктирную. А вертикальная или горизонтальная может и вообще исчезнуть.
Если это устраивает - то пожалуйста. А если нет, то придется смириться с тем, что для преобразования изображения следует использовать не "операторы", а "алгоритмы".