Я делаю снимок экрана:

procedure TForm1.Button1Click(Sender: TObject);
var
DC: HDC;
Canva: TCanvas;
B: TBitmap;
begin
Canva := TCanvas.Create;
B := TBitmap.Create;
DC := GetDC(0);
try
Canva.Handle := DC;
with Screen do begin
B.Width := Width;
B.Height := Height;
B.Canvas.CopyRect(Rect(0, 0, Width, Height), Canva,
Rect(0, 0, Width, Height));
B.SaveToFile('c:\screen.bmp');
end
finally
ReleaseDC(0, DC);
B.Free;
Canva.Free
end
end;

Проблема в том, что файл c:\screen.bmp имеет размер 3 Mb. Что нужно добавить в код, чтобы уменьшить размер файла???

Заранее Спасибо!

Используй jpeg. Для этого подклюи модуль JPEG и исользуй класс TJPEGImage, установив нужную компрессию. Примерно так:

Код

procedure TForm1.Button1Click(Sender: TObject); var  JPG: TJPEGImage;  BMP: TBitmap; begin  try    BMP := TBitmap.Create;    JPG := TJPEGImage.Create;    BMP.LoadFromFile('test.bmp');    JPG.Assign(BMP);    JPG.CompressionQuality := 50;    JPG.SaveToFile('BmpToJpgResult.jpg');  finally    FreeAndNil(JPG);    FreeAndNil(BMP);  end; end;

Добавлено @ 12:18
то есть для твоего случая можно сделать примерно следущее:

Код

procedure TForm1.Button1Click(Sender: TObject); var  JPG: TJPEGImage;  BMP: TBitmap; begin  try    BMP := TBitmap.Create;    JPG := TJPEGImage.Create;    BMP.Width := ClientWidth;    BMP.Height := ClientHeight;    BitBlt(BMP.Canvas.Handle, 0, 0, ClientWidth, ClientHeight, Canvas.Handle,           0, 0, SRCCOPY);    JPG.Assign(BMP);    JPG.CompressionQuality := 50;    JPG.SaveToFile('BmpToJpgResult.jpg');  finally    FreeAndNil(JPG);    FreeAndNil(BMP);  end; end;

Это сообщение отредактировал(а) <Spawn> - 21.3.2004, 12:11

ОГРОМНОЕ, человеческое спасибо!!!