0

переменные:

 Canvas:TCanvas;
 ScreenV:HDC;
 i: String;

сам код:

ScreenV := GetDC(0);
Canvas:=TCanvas.Create();
Canvas.Handle:=ScreenV;
Image1.Canvas.Copyrect(Rect(0,0,Image1.Width,Image1.Height),
Canvas, Rect(0,0,Screen.Width,Screen.Height));
ReleaseDC(0,ScreenV);
Canvas.Free;

Label3.Caption:=IntToStr(StrToInt(Label3.Caption)+StrToINt(i));
files:=Edit3.Text+IntTOStr(StrToInt(Edit1.Text)+StrToInt(Label3.Caption))+'.jpg';
Image1.Picture.SaveToFile(files);

и вопрос: все работает, скринит, сохраняет, но один вопрос - как сделать качество изображений лучше?

3
  • 2
    Если бы Picture изображение было типа TJPEGImage, то у него есть свойство CompressionQuality.. надо только как-то превратить одно в другое.. может быть что-то типа MyJPG := TJPEGImage.Create; MyJPG.Assign(Image1.Picture)
    – cy6erGn0m
    5 дек 2011 в 12:49
  • эм.... непонятно ;D еще использую - uses jpeg; мб для кого-то будет нужно...
    – Manitikyl
    5 дек 2011 в 13:03
  • 1
    Качество снимков может хромать из-за размеров Image, если они не равны размерам экрана. Можно не в сам Image сохранять результат, а в BitMap, например, а потом преобразовать в Jpeg и сохранить.
    – DelphiM0ZG
    5 дек 2011 в 17:57

0

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Посмотрите другие вопросы с метками или задайте свой вопрос.