» Poradna » Programy

Delphi - canvas (printscreen z prohlizece chrome)

 |   |  Microsoft Windows 10 Chrome 77.0.3865.90

Dobrý den,nedaří se získat foto aktualního zobrazeni z prohlizece google chrome.Výsledkem mého snazení je jen černé okno. Kde muže být chyba?Na jiné aplikace toto funguje bezproblemu. Postupuji takto:procedure TForm17.Button3MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);varpt: TPoint;pom_retez,textokna: string;n: DWord;ctverec: TRect; beginpt:=mouse.CursorPos; //nastavuje mysHandle:=WIndowFromPoint(pt); //ziskavam handle okna pod kurzorem //--nazev okna z handleSetLength(pom_retez,511); //nastavi string na 511 pismenif IsWindow(handle) then n:=GetWindowText(handle,@pom_retez[1],510); //ziska text okna a asi ulozi do pametitextokna:=copy(pom_retez,1,n); //zkopiruje cast retezce hodnotu 1-n//--nazev okna z handleform17.Caption:=textokna;form17.VLE1.Enabled:=true;//ziskam rozmer oknaziskej_rozmer_okna;vyfot_okno(handle); // vyfotim okno na které ukazuje handle//vyfot_okno(GetDesktopWindow); // vyfotim okno na které ukazuje handleend; Procedure vyfot_okno(handle:hwnd); var ctverec_kopiruj,ctverec_cil: TRect; Muj_Canavas: TCanvas; begin Muj_Canavas := TCanvas.Create; //vytvorim si svoje platno if IsWindow(handle) then Muj_Canavas.Handle := GetWindowDC(handle); //nalepim svoje platno na aplikaci if IsWindow(handle) then GetWindowRect(handle,ctverec_kopiruj); //souradnice polohy okna na monitoru form2.Width:=ctverec_kopiruj.Right-ctverec_kopiruj.Left+strtoint(form17.Edit4.Text); //nastavim velikost pameti podle obrazku form2.Height:=ctverec_kopiruj.bottom-ctverec_kopiruj.top+strtoint(form17.Edit5.Text); //nastavim ctverec_cil.Left:=0;ctverec_cil.Top:=0; ctverec_cil.Right:=form2.Width;form2.Height:=form2.Height; // vyfotim obrazek form2.Image1.Picture:=nil; form2.Image1.Canvas.CopyRect(ctverec_cil, muj_canavas, ctverec_cil);// form2.Image1_stin.Assign(Form2.Image1); //připřadim stínu stejne vlastnosti jako ma jednicka včetně obrazku a rozmeru. form2.Image1_stin.Picture.Bitmap.Assign(Form2.Image1.Picture.Bitmap); //připřadim stínu stejne vlastnosti jako ma jednicka včetně obrazku a rozmeru. form2.Visible:=true; if IsWindow(handle) then ReleaseDC(handle, Muj_Canavas.Handle); //nevim Muj_Canavas.Free; //smazu svuj canavas end;

Odpovědi na otázku

 |   |  Android Chrome 70.0

zatím jsem na řešení nepřišel.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Android Chrome 70.0

bez pomoci s tím asi nehnul.

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

Související témata: Canvas, PrintScreen, Right, DWORD


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

Co všechno se spouští se startem Windows a proč by vás to mělo zajímat

Co všechno se spouští se startem Windows a proč by vás to mělo zajímat

** Společně s operačním systémem se spouští řada aplikací a služeb ** Mohou mít negativní dopad na celkovou dobu startu Windows ** Jak získat kontrolu nad automaticky spouštěnými programy?

Karel Kilián | 57

20 tipů a triků pro Gmail: Užitečné maličkosti, které zefektivní práci s e-maily

20 tipů a triků pro Gmail: Užitečné maličkosti, které zefektivní práci s e-maily

** V Gmailu je řada užitečných funkcí, které možná všechny neznáte ** Odeslání mailu můžete například pozdržet či naplánovat na později ** Nad Gmailem můžete mít s několika triky daleko lepší kontrolu

Karel Kilián | 25

Zorin OS 15: Vyzkoušejte další hezký a nenáročný linux pro mamku a taťku

Zorin OS 15: Vyzkoušejte další hezký a nenáročný linux pro mamku a taťku

** Ačkoliv je grafických linuxů plný internet, stále vládnou Windows ** Jeden z nich se jmenuje Zorin OS a nedávno se dočkal aktualizace ** Dělají jej dva kluci z Irska a je fakt hezký

Jakub Čížek | 115

Jak doma vylepšit signál Wi-Fi: Pomůže repeater, více routerů, ale nejlépe systémy mesh

Jak doma vylepšit signál Wi-Fi: Pomůže repeater, více routerů, ale nejlépe systémy mesh

** Máte špatný signál Wi-Fi? Mesh systémy to vyřeší ** Už vás nezruinují, meziročně ceny příjemně spadly ** Jak systém funguje a čím je výjimečný?

Jiří Kuruc | 106

Antivir zdarma: 8 bezplatných řešení, která zatočí s havětí v počítači

Antivir zdarma: 8 bezplatných řešení, která zatočí s havětí v počítači

** Součástí Windows 10 je integrovaný antivirový program. Stačí to? ** Představíme vám sedm aplikací na boj proti virům a malwaru ** Všechny jsou k dispozici zdarma a některé ani nemusíte instalovat

Karel Kilián | 30


Aktuální číslo časopisu Computer

Megatest 20 procesorů

Srovnání 15 True Wireless sluchátek

Vyplatí se tisknout fotografie doma?

Vybíráme nejlepší základní desky