Przenoszenie okna na pierwszy plan do screenshota

Przenoszenie okna na pierwszy plan do screenshota
jaje16
J1
jaje16
J1
  • Rejestracja:około 15 lat
  • Ostatnio:ponad 13 lat
0

Witam, mam taki problem, przeczytałem, próbowałem zastosować pomysł przedstawiony tutaj: http://4programmers.net/Forum/Delphi_Pascal/159571-Uaktywnianie_okna_-_problem ale niestety nie zadziałało mi...
a już mówię co chciałbym zrobić...
chciałbym napisać program który robi mi screenshota konkretnego okna firefoxa, potrafię zrobić i napisałem taki programik ale dla okna będącego na pierwszym planie, problem pojawia się w miejscu gdy chciałbym, żeby program wywołał to okno na pierwszy plan, żeby móc zrobić screenshota, nie umiem wywołać okna na pierwszy plan, bo zrobienie zrzutu okna niewidocznego chyba jest niemożliwe, no nie?
Proszę o pomoc, właściwie tyle tylko, żeby nauczyć program wyciągać dane okno na wierzch, np po nazwie tego okna.

To, co już mam prezentuję:

Kopiuj
 procedure TForm1.Button9Click(Sender: TObject);
var Can: TCanvas;
  B: TBitmap;
  okno:tHandle;
  han1:hwNd;
begin
      //zrzut ekranu
      { tworzenie zmiennej }
      Can := TCanvas.Create;
      { tworzenie bitmapy}
      B := TBitmap.Create;
     {w tym momencie rozmiary okna są na sztywno, ale nie o to chodzi...}
      b.height:=200;
      b.width:=400;
      Han1 := findwindowext('Roulette|Sportingbet.com - Mozilla Firefox');
      okno:=getwindow(han1,GW_OWNER);
      ShowWindow(okno, SW_RESTORE);
      setforegroundwindow(okno);
      can.Handle:= getwindowdc(findwindow(nil,'Roulette|Sportingbet.com - Mozilla Firefox'));
      B.Canvas.CopyRect(Rect(0, 0, B.Width, B.Height), Can, Rect(0,0,B.Width,B.Height));
      B.SaveToFile('zrzut.bmp');
end;

function tform1.FindWindowExt(Text: string): hWnd;
var
 Han: hWnd;
 cTitle: array [0..254] of Char;
 sTitle: string;
begin
 Han  := FindWindow(nil, nil);
 Text := AnsiLowerCase(Text);

 while Han <> 0 do
   begin
    GetWindowText(Han, cTitle, 255);
    sTitle := cTitle;
    if cTitle = '' then
      begin
       Han := GetWindow(Han, GW_HWNDNEXT);
       Continue;
      end;

    sTitle := AnsiLowerCase(sTitle);
    Application.ProcessMessages;
    if Pos(Text, sTitle) <> 0 then Break;
    Han := GetWindow(Han, GW_HWNDNEXT);
  end;

 Result := Han;
end;
edytowany 4x, ostatnio: jaje16
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Golden_Mind
GM
Golden_Mind
GM
  • Rejestracja:ponad 15 lat
  • Ostatnio:ponad 11 lat
  • Postów:152
0

Ale to okno, jest tylko przykryte przez inne okno, czy jest zminimalizowane ? Bo jeżeli nie jest zminimalizowane, to mając poprawny uchwyt do okna funkcja SetForegroundWindow, powinna zadziałać, a gdy jest zminimalizowane to najpierw je wywiń, a potem daj na pierwszy plan.

Pozdrawiam.

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
jaje16
J1
jaje16
J1
  • Rejestracja:około 15 lat
  • Ostatnio:ponad 13 lat
0

jest przykryte tylko, mógłbyś sprawdzić co w tym kodzie jest złego, że jako taki nie przenosi mi tego okna? ani nie widzę żeby po zadziałaniu okno było faktycznie na wierzchu, a i screenshot nie przedstawia właściwego okna, faktem jest, że dobrze odczytuje położenie lewego górnego rogu tego okna z firefoxa, ale ss robi z tego, co aktualnie widzi... więc w czym może być problem?

edytowany 1x, ostatnio: jaje16
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Patryk27
Patryk27
Patryk27
Patryk27
Moderator
  • Rejestracja:ponad 17 lat
  • Ostatnio:ponad rok
  • Lokalizacja:Wrocław
  • Postów:13042
0

Spróbuj użyć funkcji PrintWindow.

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Golden_Mind
GM
Golden_Mind
GM
  • Rejestracja:ponad 15 lat
  • Ostatnio:ponad 11 lat
  • Postów:152
0

Z tego co mówiłeś, to screen wychodził, tylko był urywkiem okna, a nie screenem całości,a to dlatego, że podawałeś na początku kodu :

Kopiuj
b.height:=200;
b.width:=400;

Przerobiłem trochę kod i wszystko powinno być w porządku :

Kopiuj
function tform1.FindWindowExt(Text: string): hWnd;
var
 Han: hWnd;
 cTitle: array [0..254] of Char;
 sTitle: string;
begin
 Han  := FindWindow(nil, nil);
 Text := AnsiLowerCase(Text);

 while Han <> 0 do
   begin
    GetWindowText(Han, cTitle, 255);
    sTitle := cTitle;
    if cTitle = '' then
      begin
       Han := GetWindow(Han, GW_HWNDNEXT);
       Continue;
      end;
 
    sTitle := AnsiLowerCase(sTitle);
    Application.ProcessMessages;
    if Pos(Text, sTitle) <> 0 then Break;
    Han := GetWindow(Han, GW_HWNDNEXT);
  end;

 Result := Han;
end;

procedure TForm1.Button9Click(Sender: TObject);
var Can: TCanvas;
  B: TBitmap;
  okno:tHandle;
  han1:hwNd;
  polozenie : TRect;
begin
      //zrzut ekranu
      { tworzenie zmiennej }
      Can := TCanvas.Create;
      { tworzenie bitmapy}
      B := TBitmap.Create;

      Han1 := findwindowext('Roulette|Sportingbet.com - Mozilla Firefox');
      okno:=getwindow(han1,GW_OWNER);
      ShowWindow(okno, SW_RESTORE);
      setforegroundwindow(okno);
      can.Handle:= getwindowdc(findwindow(nil,'Roulette|Sportingbet.com - Mozilla Firefox'));
       GetWindowRect(han1,polozenie);
      b.Width := polozenie.Right-polozenie.Left;
      b.Height := polozenie.Bottom-polozenie.Top;


      B.Canvas.CopyRect(Rect(0, 0, B.Width, B.Height), Can, Rect(0,0,B.Width,B.Height));
      B.SaveToFile('C:\zrzut.bmp');
end;

Pozdrawiam.

edytowany 3x, ostatnio: Golden_Mind
Patryk27
Ja tam nie widzę, aby napisał, że screen był urywkiem okna...
GM
Kolega jaje16 napisał : "faktem jest, że dobrze odczytuje położenie lewego górnego rogu tego okna z firefoxa, ale ss robi z tego, co aktualnie widzi" a gdy zobaczyłem w kodzie, że pobiera on tylko obraz o wymiarach 200x400 to domyśliłem się, że dostaje tylko urywek okna.
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
jaje16
J1
jaje16
J1
  • Rejestracja:około 15 lat
  • Ostatnio:ponad 13 lat
0

niestety, nie przenosi okna na pierwszy plan dalej...:/ screen był mały, ale nie chodziło mi o wielkość, powiem tak, jest kilka okien, firefox umyślnie z tyłu, żeby było widać, czy program działa, włączamy program, na pierwszym planie jest project, potem okno delphi, okienko z kodem z delphi, klikamy buttona9, i robi się screenshot(SS) le tego co aktualnie widać, czyli delphi, a firefox jak był z tyłu, tak jest...
jest to dodatkowe okno otwierane przez główne okno firefoxa, ale na pasku wyświetla mi się osobno, i dalej samodzielnie działa po wyłączeniu głównego okna, dlatego uznałem, że jest to okno równorzędne, to ma jakieś znaczenie?

edytowany 1x, ostatnio: jaje16
Zobacz pozostałe 6 komentarzy
Patryk27
Chyba... PrintWindow(Han1, can.Handle, PW_ClientOnly) popróbuj :)
J1
chyba muszę jakąś biblioteke dołożyć, bo mam undeclared identifier...
Patryk27
Zamiast "PW_ClientOnly" daj 0
Patryk27
Poza tym, nauka funkcji WinApi się przyda :)
J1
no nie jestem zaawansowanym programistą, coś tam wiem, ale tyle ile się sam z neta nauczę... i przyznam się bez bicia, że coś gdzies o WinApi widziałem po googlach, ale do tej pory nie wiem jak to się je...;-)
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Golden_Mind
GM
Golden_Mind
GM
  • Rejestracja:ponad 15 lat
  • Ostatnio:ponad 11 lat
  • Postów:152
1

Co prawda nie mam Firefox'a, ale Chrome był również oporny przy robieniu screena, zmieniłem kod i u mnie działa prawidłowo, ale ponieważ mam stary sprzęt, musiałem opóźnić w kodzie funkcję pobierania screena o 100 milisekund, gdyż mój superkomputer nie nadążał :D :

Kopiuj
var Can: TCanvas;
  B: TBitmap;
  okno:tHandle;
  han1:hwNd;
  polozenie : TRect;
begin
      //zrzut ekranu
      { tworzenie zmiennej }
      Can := TCanvas.Create;
      { tworzenie bitmapy}
      B := TBitmap.Create;

      Han1 := findwindowext('Google - Google Chrome');
      okno:=getwindow(han1,GW_OWNER);
      ShowWindow(okno, SW_RESTORE);
      setforegroundwindow(han1);
      sleep(100);
      can.Handle:= getwindowdc(findwindow(nil,'Google - Google Chrome'));

      GetWindowRect(han1,polozenie);
      b.Width := polozenie.Right-polozenie.Left;
      b.Height := polozenie.Bottom-polozenie.Top;


      B.Canvas.CopyRect(Rect(0, 0, B.Width, B.Height), Can, Rect(0,0,B.Width,B.Height));
      B.SaveToFile('C:\zrzut.bmp');
end;
edytowany 1x, ostatnio: Golden_Mind
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
jaje16
J1
jaje16
J1
  • Rejestracja:około 15 lat
  • Ostatnio:ponad 13 lat
0

no, i to jest to o co mi chodziło...:)
tak, teraz działa, wywala firefoxa na pierwszy plan, widzę to:)
jesteś świetny:)
jeszcze przeanalizuję co się właściwie zmieniło, ale poprzekopiowaniu działa:)

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Treść
Podgląd
Kliknij, aby dodać treść...
Kliknij, aby dodać załącznik lub wklej ze schowka.
Instrukcja obsługi Markdown
Pomoc 1.18.8

Typografia

Edytor obsługuje składnie Markdown, w której pojedynczy akcent *kursywa* oraz _kursywa_ to pochylenie. Z kolei podwójny akcent **pogrubienie** oraz __pogrubienie__ to pogrubienie. Dodanie znaczników ~~strike~~ to przekreślenie.

Możesz dodać formatowanie komendami , , oraz .

Ponieważ dekoracja podkreślenia jest przeznaczona na linki, markdown nie zawiera specjalnej składni dla podkreślenia. Dlatego by dodać podkreślenie, użyj <u>underline</u>.

Komendy formatujące reagują na skróty klawiszowe: Ctrl+B, Ctrl+I, Ctrl+U oraz Ctrl+S.

Linki

By dodać link w edytorze użyj komendy lub użyj składni [title](link). URL umieszczony w linku lub nawet URL umieszczony bezpośrednio w tekście będzie aktywny i klikalny.

Jeżeli chcesz, możesz samodzielnie dodać link: <a href="link">title</a>.

Wewnętrzne odnośniki

Możesz umieścić odnośnik do wewnętrznej podstrony, używając następującej składni: [[Delphi/Kompendium]] lub [[Delphi/Kompendium|kliknij, aby przejść do kompendium]]. Odnośniki mogą prowadzić do Forum 4programmers.net lub np. do Kompendium.

Wspomnienia użytkowników

By wspomnieć użytkownika forum, wpisz w formularzu znak @. Zobaczysz okienko samouzupełniające nazwy użytkowników. Samouzupełnienie dobierze odpowiedni format wspomnienia, zależnie od tego czy w nazwie użytkownika znajduje się spacja.

Znaczniki HTML

Dozwolone jest używanie niektórych znaczników HTML: <a>, <b>, <i>, <kbd>, <del>, <strong>, <dfn>, <pre>, <blockquote>, <hr/>, <sub>, <sup> oraz <img/>.

Skróty klawiszowe

Dodaj kombinację klawiszy komendą notacji klawiszy lub skrótem klawiszowym Alt+K.

Reprezentuj kombinacje klawiszowe używając taga <kbd>. Oddziel od siebie klawisze znakiem plus, np <kbd>Alt+Tab</kbd>.

Indeks górny oraz dolny

Przykład: wpisując H<sub>2</sub>O i m<sup>2</sup> otrzymasz: H2O i m2.

Składnia Tex

By precyzyjnie wyrazić działanie matematyczne, użyj składni Tex.

<tex>arcctg(x) = argtan(\frac{1}{x}) = arcsin(\frac{1}{\sqrt{1+x^2}})</tex>

Kod źródłowy

Krótkie fragmenty kodu

Wszelkie jednolinijkowe instrukcje języka programowania powinny być zawarte pomiędzy obróconymi apostrofami: `kod instrukcji` lub ``console.log(`string`);``.

Kod wielolinijkowy

Dodaj fragment kodu komendą . Fragmenty kodu zajmujące całą lub więcej linijek powinny być umieszczone w wielolinijkowym fragmencie kodu. Znaczniki ``` lub ~~~ umożliwiają kolorowanie różnych języków programowania. Możemy nadać nazwę języka programowania używając auto-uzupełnienia, kod został pokolorowany używając konkretnych ustawień kolorowania składni:

```javascript
document.write('Hello World');
```

Możesz zaznaczyć również już wklejony kod w edytorze, i użyć komendy  by zamienić go w kod. Użyj kombinacji Ctrl+`, by dodać fragment kodu bez oznaczników języka.

Tabelki

Dodaj przykładową tabelkę używając komendy . Przykładowa tabelka składa się z dwóch kolumn, nagłówka i jednego wiersza.

Wygeneruj tabelkę na podstawie szablonu. Oddziel komórki separatorem ; lub |, a następnie zaznacz szablonu.

nazwisko;dziedzina;odkrycie
Pitagoras;mathematics;Pythagorean Theorem
Albert Einstein;physics;General Relativity
Marie Curie, Pierre Curie;chemistry;Radium, Polonium

Użyj komendy by zamienić zaznaczony szablon na tabelkę Markdown.

Lista uporządkowana i nieuporządkowana

Możliwe jest tworzenie listy numerowanych oraz wypunktowanych. Wystarczy, że pierwszym znakiem linii będzie * lub - dla listy nieuporządkowanej oraz 1. dla listy uporządkowanej.

Użyj komendy by dodać listę uporządkowaną.

1. Lista numerowana
2. Lista numerowana

Użyj komendy by dodać listę nieuporządkowaną.

* Lista wypunktowana
* Lista wypunktowana
** Lista wypunktowana (drugi poziom)

Składnia Markdown

Edytor obsługuje składnię Markdown, która składa się ze znaków specjalnych. Dostępne komendy, jak formatowanie , dodanie tabelki lub fragmentu kodu są w pewnym sensie świadome otaczającej jej składni, i postarają się unikać uszkodzenia jej.

Dla przykładu, używając tylko dostępnych komend, nie możemy dodać formatowania pogrubienia do kodu wielolinijkowego, albo dodać listy do tabelki - mogłoby to doprowadzić do uszkodzenia składni.

W pewnych odosobnionych przypadkach brak nowej linii przed elementami markdown również mógłby uszkodzić składnie, dlatego edytor dodaje brakujące nowe linie. Dla przykładu, dodanie formatowania pochylenia zaraz po tabelce, mogłoby zostać błędne zinterpretowane, więc edytor doda oddzielającą nową linię pomiędzy tabelką, a pochyleniem.

Skróty klawiszowe

Skróty formatujące, kiedy w edytorze znajduje się pojedynczy kursor, wstawiają sformatowany tekst przykładowy. Jeśli w edytorze znajduje się zaznaczenie (słowo, linijka, paragraf), wtedy zaznaczenie zostaje sformatowane.

  • Ctrl+B - dodaj pogrubienie lub pogrub zaznaczenie
  • Ctrl+I - dodaj pochylenie lub pochyl zaznaczenie
  • Ctrl+U - dodaj podkreślenie lub podkreśl zaznaczenie
  • Ctrl+S - dodaj przekreślenie lub przekreśl zaznaczenie

Notacja Klawiszy

  • Alt+K - dodaj notację klawiszy

Fragment kodu bez oznacznika

  • Alt+C - dodaj pusty fragment kodu

Skróty operujące na kodzie i linijkach:

  • Alt+L - zaznaczenie całej linii
  • Alt+, Alt+ - przeniesienie linijki w której znajduje się kursor w górę/dół.
  • Tab/⌘+] - dodaj wcięcie (wcięcie w prawo)
  • Shit+Tab/⌘+[ - usunięcie wcięcia (wycięcie w lewo)

Dodawanie postów:

  • Ctrl+Enter - dodaj post
  • ⌘+Enter - dodaj post (MacOS)