[es] - capture inactive window

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

^{07.10.2009. u 14:02 - pre 177 meseci}

Našao sam ovdje

http://delphi.about.com/od/delphitips2008/qt/print_window.htm

kako napraviti capture inactive windov-a, ali me zanima da li je moguće dobiti samo određeni dio te slike (ne naknadnom obradom slike, nego baš screen capture inactive window-a kojeg ja odredim)?

Hvala!

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: capture inactive window

^{07.10.2009. u 18:12 - pre 177 meseci}

> kako napraviti capture inactive windov-a, ali me zanima da li je moguće dobiti samo određeni dio te slike (ne naknadnom obradom slike,
> nego baš screen capture inactive window-a kojeg ja odredim)?

Ako taj manji deo predstavlja neku win controlu, jednostavno prosledi njen handle, u suprotnom od slike čitavog prozora iskopiraj u novu sliku samo manji deo koji te zanima.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: capture inactive window

^{07.10.2009. u 18:29 - pre 177 meseci}

Citat:

savkic: > kako napraviti capture inactive windov-a, ali me zanima da li je moguće dobiti samo određeni dio te slike (ne naknadnom obradom slike,
> nego baš screen capture inactive window-a kojeg ja odredim)?

Ako taj manji deo predstavlja neku win controlu, jednostavno prosledi njen handle, u suprotnom od slike čitavog prozora iskopiraj u novu sliku samo manji deo koji te zanima.

Hvala savkic.

Ovo sa slikom je isprobano i radi, ali je problem šta je sporo jer se gleda promjena stanja pa se često osvježava slika.

Pokušao sam sa Winspector Spy dobiti handle te kontrole, ali jedino šta dobijem je informacija da je to citiram:

class QWidget

Preciznije, trebam dobiti informaciju o tome kada se na određenoj formi ili šta već je (za nju dobijem handle) pojavio button. Sa Winspectorom ne dobijem nikakvu informaciju nakon što se gumb na formi pojavi.

_{[Ovu poruku je menjao captPicard dana 07.10.2009. u 19:53 GMT+1]}

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: capture inactive window

^{07.10.2009. u 22:35 - pre 177 meseci}

> class QWidget

To je verovatno iz multiplatform QT toolkita.

> Preciznije, trebam dobiti informaciju o tome kada se na određenoj formi ili šta već je (za nju dobijem handle) pojavio button.

Koristi EnumChildWindows na glavnom prozoru, dobićeš spisak svih child prozora, posle toga periodično pozivaj istu tu metodu sve dok se ne pojavi novi element (child prozor).

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: capture inactive window

^{08.10.2009. u 15:45 - pre 177 meseci}

savkic, ako ti nije problem, da mi to malo pojasniš.

Ovako dobijem handle forme:

Code:
function EnumProcess(hHwnd: HWND; lParam : integer): boolean; stdcall;
var
  pPid : DWORD;
  title, ClassName : string;
begin

  if (hHwnd=NULL) then
  begin
    result := false;
  end
  else
  begin

    GetWindowThreadProcessId(hHwnd,pPid);

    SetLength(ClassName, 255);

    SetLength(ClassName,
              GetClassName(hHwnd,
                           PChar(className),
                           Length(className)));
    SetLength(title, 255);

    SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title)));
    if leftStr(title, 5) = 'Nesto' then

    Form1.listbox1.Items.Add
      ('Class Name = ' + className +
       '; Title = ' + title +
       '; HWND = ' + IntToStr(hHwnd) +
       '; Pid = ' + IntToStr(pPid));
    Result := true;
  end;
end;

Kako da sada napravim EnumChildWindows forme ako imam njezin handle?

Hvala!

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: capture inactive window

^{08.10.2009. u 17:41 - pre 177 meseci}

Napravi novu formu, dodaj memo i button kontrolu:

Code:

procedure TForm1.Button1Click(Sender: TObject);

  function EnumChildProc(AChild: HWND; AResult: TStrings): BOOL; stdcall;
  var
    ClassName: array[0..20] of Char;
  begin
    GetClassName(AChild, ClassName, SizeOf(ClassName));
    AResult.Add(ClassName);
    Result := True;
  end;

begin
  EnumChildWindows(Handle, @EnumChildProc, LPARAM(Memo1.Lines));
end;

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: capture inactive window

^{08.10.2009. u 17:55 - pre 177 meseci}

Hvala, na žalost ne dobijem željeni rezultat, dobijem ovo:

QWidget
QWidget

Ipak, hvala na pomoći!

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: capture inactive window

^{08.10.2009. u 20:28 - pre 177 meseci}

> Hvala, na žalost ne dobijem željeni rezultat, dobijem ovo:
> QWidget
> QWidget

Kako treba da otkriješ kada se pojavi dugme na formi, periodično pozivaj tu metodu i upoređuj dobijenu listu sa početnom, kada se pojavi nova stavka, znači da se pojavila i nova kontrola. Ako nema promene u listi onda znači da se taj buton odmah kreira ali da nije vidljiv, modifikuj primer da gleda da li je i child prozor vidljiv. Takođe možeš tražiti i kombinovati mnoge druge stvari koje ti mogu pomoći u otkrivanju, text (caption) kontrole, poziciju, dimenzije, eventualno ID kontrole (GetDlgCtrlID).

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: capture inactive window

^{09.10.2009. u 07:35 - pre 177 meseci}

Ma jasna je meni logika, ali je problem da ne mogu dobiti popis kontrola na toj formi. Kada pozovem EnumChildWindows uvijek dobijem ovaj rezultat

QWidget
QWidget

a na toj formi ima 3+1 buttona, dva grid-a i još par label-a...

Probao sam ovako:

Code:
procedure TForm1.Button1Click(Sender: TObject);

function EnumProc(wnd: HWND; Lines: TStrings): BOOL; stdcall;
var
  buf, Caption: array [0..255] of char;
begin
  Result := True;
  GetClassname(wnd, buf, 256);
  GetWindowText(wnd, Caption, 256);
  Lines.Add(Format('ID: %d, class: %s, caption: %s',
    [GetDlgCtrlID(wnd), buf, Caption]));
end;

begin
EnumChildWindows(Handle, @EnumProc, Integer(memo1.Lines));
end;

I opet dobijem samo

QWidget "caption forme"
QWidget "caption forme"

_{[Ovu poruku je menjao captPicard dana 09.10.2009. u 08:46 GMT+1]}

_{[Ovu poruku je menjao captPicard dana 09.10.2009. u 08:48 GMT+1]}

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: capture inactive window

^{13.10.2009. u 17:50 - pre 176 meseci}

> Ma jasna je meni logika, ali je problem da ne mogu dobiti popis kontrola na toj formi. Kada pozovem EnumChildWindows uvijek dobijem ovaj rezultat
> QWidget
> QWidget
> a na toj formi ima 3+1 buttona, dva grid-a i još par label-a...

Možeš još pozvati EnumChildWindows rekurzivno, na ta dva dobijena prozora. Ako ne prođe, onda to nisu standardne windows kontrole sa hendlom već iscrtane slike (poput TLabel). Potraži QT toolkit verovatno u njemu postoji neki standardni način za enumaraciju kontrola.

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: capture inactive window

^{15.10.2009. u 07:50 - pre 176 meseci}

Hvala ti još jednom, probao ali neće. Vrlo vjerojatno je ovo šta si rekao da nisu standardne windows kontrole :-(

Ipak hvala puno na trudu!

Odgovor na temu