» 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); Ukázat celý příspěvek

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

AR není ani po letech žádný trhák. Teď to zkusí Hybri, který svleče vaše kamarádky

AR není ani po letech žádný trhák. Teď to zkusí Hybri, který svleče vaše kamarádky

** Rozšířené realitě i po letech chybí praktické využití ** Selhaly mobilní aplikace i AR brýle ** Floridské studio to proto zkusí přes bizarní erotiku Hybri

Jakub Čížek | 20

Za hranicemi Chromu: 13 nejzajímavějších prohlížečů, které „nikdo“ nepoužívá

Za hranicemi Chromu: 13 nejzajímavějších prohlížečů, které „nikdo“ nepoužívá

** Šesti nejpoužívanějším prohlížečům patří 94 % trhu ** Různé „klony“ Chromu slibují lepší funkce nebo jiný design ** Také Firefox má řadu zajímavých odnoží

Lukáš Václavík | 38

Apple vychrlil novinky: Nové operační systémy a příprava na vlastní procesory

Apple vychrlil novinky: Nové operační systémy a příprava na vlastní procesory

** Apple dnes představuje novinky ** Tradiční keynote v rámci konference WWDC probíhá jen online ** Nové operační systémy, ale i něco navíc

David Polesný | 108

Šmírování kamerami Googlu: Koukněte, co šíleného se objevilo na Street View

Šmírování kamerami Googlu: Koukněte, co šíleného se objevilo na Street View

Google stále fotí celý svět do své služby Street View. A novodobou zábavou je hledat v mapách Googlu vtipné záběry. Podívejte se na výběr nejlepších!

redakce | 2

Z rozmazané šmouhy krásná fotka. Takhle kouzlí nová umělá inteligence MyHeritage

Z rozmazané šmouhy krásná fotka. Takhle kouzlí nová umělá inteligence MyHeritage

** MyHeritage slibuje nejlepší neuronovou síť pro vylepšování fotek ** Funguje tím líp, čím horší fotku upravuje ** Otestovali jsme desítky různých snímků

Marek Lutonský, Lukáš Václavík | 39


Aktuální číslo časopisu Computer

Megatest: nejlepší notebooky do 20 000 Kč

Test 8 levných IP kamer

Jak vybrat bezdrátová sluchátka

Testujeme Android 11