» Poradna » Programy

Delphi - Print Screen

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 2/2
 |   | 

Chcel by som naprogramovat aplikáciu, ktorá by po stlačení tlacidla urobila Print Screen obrazovky a obrazok vo formate jpg alebo bmp (radsej jpg) ulozila napriklad do TImage... Dakujem

Odpovědi na otázku

 |   | 

var
  DeskTopDC: HDC;
  DeskTopCanvas: TCanvas;
  DeskTopRect: TRect;
begin
  DeskTopDC := GetWindowDC(GetDesktopWindow);
  DeskTopCanvas := TCanvas.Create;
  DeskTopCanvas.Handle := DeskTopDC;
  DeskTopRect := Rect(0, 0, Screen.Width, Screen.Height);
  img.Canvas.CopyRect(DeskTopRect, DeskTopCanvas, DeskTopRect);
  ReleaseDC(GetDesktopWindow, DeskTopDC);
  DeskTopCanvas.Free;
end;

jen dodam, ze img je TImage

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |   |  [213.151.217.---]

uses Jpeg;

procedure CaptureScreen(FileName: TFileName; const Kvalita:Byte; const Sirka, Vyska:Cardinal);
var DeskTopDC: HDc;
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
Bitmap:TBitmap;
Jpg: TJpegImage;
ARect:TRect;
begin;
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopRect := Rect(0,0, Screen.Width,Screen.Height);
Bitmap:=TBitmap.Create;
Bitmap.Width:=Screen.Width;
Bitmap.Height:=Screen.Height;
Bitmap.Canvas.CopyRect(DeskTopRect, DeskTopCanvas, DeskTopRect);
ARect:= Rect(0, 0, Sirka, Vyska);
Bitmap.Canvas.StretchDraw(ARect, Bitmap);
Bitmap.Width:= Sirka;
Bitmap.Height:= Vyska;
Jpg:= TJpegImage.Create;
Jpg.Assign(Bitmap);
Jpg.CompressionQuality:= Kvalita;
Jpg.Compress;
Jpg.SaveToFile(FileName);
FreeAndNil(Jpg);
FreeAndNil(Bitmap);
FreeAndNil(DeskTopCanvas);
ReleaseDC(GetDeskTopWindow, DeskTopDC);
end;

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Print Screen, Print, Screen



Určitě si přečtěte


Genetika a příjmení: Unikátní možnost získat test Y-DNA zdarma a dozvědět se o svých předcích

Genetika a příjmení: Unikátní možnost získat test Y-DNA zdarma a dozvědět se o svých předcích

** Projekt Genetika a příjmení hledá shody mezi osobami se stejným příjmením ** Využívá k tomu testování DNA na chromozomu Y ** Výsledky testu můžete účastí v projektu získat zdarma

11.  1.  2018 | Marek Lutonský | 3

Pojďme programovat elektroniku: Z čeho poskládat venkovní meteosondu, která poběží celé roky

Pojďme programovat elektroniku: Z čeho poskládat venkovní meteosondu, která poběží celé roky

** Dnes si ukážeme, z čeho postavit venkovní meteosondu ** Tak, aby fungovala celé roky ** A posílala data třeba pomocí Wi-Fi

14.  1.  2018 | Jakub Čížek | 19


Aktuální číslo časopisu Computer

Zachraňte nefunkční Windows

Jak nakupovat a prodávat kryptoměny

Otestovali jsme konvertibilní notebooky

Velký test 14 herních myší