Get screenshot for a client area - Convert Delphi to AutoIt

[MrCreatoR]

Hi,

I am trying to get a screen shot for specific area (not coords) in a window. I have peace of code on Delphi, it works very well with it, but i need it on AutoIt

Here it is:

expandcollapse popup

function GetScreenShot(const AHandle: THandle; FileName: String; QuickSave: Boolean): Boolean;
var
  fBitmap: PBitmap;
  DC: HDC;
  Rect: TRect;
  OSD: POpenSaveDialog;
  Image: PPngObject;

begin
  Image := NewPngObject;
  fBitmap := nil;
  Result := False;
  DC := GetDC(AHandle);
  if DC <> 0 then
    try
      if not GetClientRect(AHandle, Rect) then Exit;
      fBitmap := NewDIBBitmap(Rect.Right - Rect.Left, Rect.Bottom - Rect.Top, pf32bit);
      Result := BitBlt(fBitmap.Canvas.Handle, 0, 0, fBitmap.Width, fBitmap.Height, DC, 0, 0, SRCCOPY);
      if not Result then Exit;
      Image.AssignHandle(fBitmap.Handle, false, 0);
      if not QuickSave then
        begin
        OSD := NewOpenSaveDialog('', '', DefOpenSaveDlgOptions );
        OSD.Filter := 'PNG - Portable Network Graphics|*.png';
        OSD.Filename := FileName;
        OSD.WndOwner := OpWnd;
        OSD.OpenDialog := false;
        if OSD.Execute then
          begin
          Image.SaveToFile(OSD.Filename);
          end;
        OSD.Free;
        end
      else Image.SaveToFile(FileName);
    finally
      fBitmap.Free;
      Image.Free;
      ReleaseDC(AHandle, DC);
    end;
end;

Can anyone please translate it? The part with OpenSaveDialog is not needed, i need only the screenshot action.

[martin]

Hi,

I am trying to get a screen shot for specific area (not coords) in a window. I have peace of code on Delphi, it works very well with it, but i need it on AutoIt

Here it is:

expandcollapse popup

function GetScreenShot(const AHandle: THandle; FileName: String; QuickSave: Boolean): Boolean;
var
  fBitmap: PBitmap;
  DC: HDC;
  Rect: TRect;
  OSD: POpenSaveDialog;
  Image: PPngObject;

begin
  Image := NewPngObject;
  fBitmap := nil;
  Result := False;
  DC := GetDC(AHandle);
  if DC <> 0 then
    try
      if not GetClientRect(AHandle, Rect) then Exit;
      fBitmap := NewDIBBitmap(Rect.Right - Rect.Left, Rect.Bottom - Rect.Top, pf32bit);
      Result := BitBlt(fBitmap.Canvas.Handle, 0, 0, fBitmap.Width, fBitmap.Height, DC, 0, 0, SRCCOPY);
      if not Result then Exit;
      Image.AssignHandle(fBitmap.Handle, false, 0);
      if not QuickSave then
        begin
        OSD := NewOpenSaveDialog('', '', DefOpenSaveDlgOptions );
        OSD.Filter := 'PNG - Portable Network Graphics|*.png';
        OSD.Filename := FileName;
        OSD.WndOwner := OpWnd;
        OSD.OpenDialog := false;
        if OSD.Execute then
          begin
          Image.SaveToFile(OSD.Filename);
          end;
        OSD.Free;
        end
      else Image.SaveToFile(FileName);
    finally
      fBitmap.Free;
      Image.Free;
      ReleaseDC(AHandle, DC);
    end;
end;

Can anyone please translate it? The part with OpenSaveDialog is not needed, i need only the screenshot action.

Could you just work out the coordinates of the client area and use _ScreenCapture_Capture?

[MrCreatoR]

Could you just work out the coordinates of the client area and use _ScreenCapture_Capture?

It's not really client area, it's a control inside a window (it's a browser's window). But this control changes every session (ClassName Instance changed), and this example on Delphi somehow can get the handle of that control and take a screenshot from it.

[SmOke_N]

It's not really client area, it's a control inside a window (it's a browser's window). But this control changes every session (ClassName Instance changed), and this example on Delphi somehow can get the handle of that control and take a screenshot from it.

The code doesn't look like it looks for any control. It's passed a handle of which it then gets the coords for with GetClientRect(). So you're missing the part of the code you really need.

[MrCreatoR]

The code doesn't look like it looks for any control. It's passed a handle of which it then gets the coords for with GetClientRect(). So you're missing the part of the code you really need.

Well, actualy i have the all code, i just thought that this will be enough (it's a big program to save pages (in Opera) in quick mode). This function called like this:

If (Param1 = '/screenshot') Or (Param1 = '/png') Then
    begin
    EnumChildWindows(OpWnd, @ScreenEnum, Integer(@ScreenWnd));
    OpWinWnd := FindWindowEx(FindWindowEx(FindWindowEx(FindWindowEx(ScreenWnd, 0, 'OperaWindowClass', nil), 0, 'OpWindow', nil), 0, 'OperaWindowClass', nil), 0, 'OperaWindowClass', nil);
    If OpWinWnd = 0 Then OpWinWnd := OpWnd;
    If GetForegroundWindow <> OpWnd Then
      begin
        if IsIconic(OpWnd) then ShowWindow(OpWnd, SW_RESTORE);
        SetForegroundWindow(OpWnd);
        time := GetTickCount + TimeOut*2;
        While (GetForegroundWindow <> OpWnd) And (GetTickCount < time) Do Sleep(200);
        Sleep(500)
      end;
      If quick Then
        begin
        If all Then OpWinWnd := OpWnd;
        If QuickText <> '' Then NameFile := QuickText;
        rez := QuickSaveName(QuickSaveDir+NameFile+'.png');
        GetScreenShot(OpWinWnd, rez, True);
        If history Then AddToHistory(NameFile, rez, Param3, RootQsd, all);
        end
      Else
        begin
        If (ParamNum=2) And (Param2 <> '') Then NameFile := CorrectName(Param2);
        GetScreenShot(OpWinWnd, NameFile + '.png', false);
        end;
    end
Else
  ....
end

OpWnd is a main window handle. And the Params is the command line arguments.

[MrCreatoR]

I think i got the "pattern" that used when classes is created. The main class (that i need the screenshot from) is always OperaWindowClass, and it's numerated always(?) as last, so the only thing i have to do now, is to get the numerated classses list (i wrote a function for this some time ago ), and get the last one (visible)... this example seems to work on different (Opera) versions and in different (process) sessions:

expandcollapse popup

#Include <ScreenCapture.au3>

$sImageFile = @ScriptDir & "\OperaPage_ScreenShot.png"

_SaveOperaPageScreenShot($sImageFile)
ShellExecute($sImageFile)

Func _SaveOperaPageScreenShot($sFile)
    Local $hOpWnd = 0
    Local $aOpWinList = WinList("[CLASS:OpWindow]")
    
    For $i = 1 To UBound($aOpWinList)-1
        If BitAND(WinGetState($aOpWinList[$i][1]), 2) Then
            $hOpWnd = $aOpWinList[$i][1]
            ExitLoop
        EndIf
    Next
    
    If Not $hOpWnd Then Return SetError(1, 0, 0)
    
    Local $aClassList = StringSplit(_WinGetNumeratedClassList($hOpWnd), @CRLF, 1)
    Local $hCapt_Wnd, $iClassInstance, $iLastInstance = 0
    
    For $i = 1 To $aClassList[0]
        If Not StringRegExp($aClassList[$i], "OperaWindowClass") Then ContinueLoop
        
        $iClassInstance = Number(StringRegExpReplace($aClassList[$i], ".*(\d+)$", "\1"))
        
        If $iClassInstance > $iLastInstance Then
            $hCapt_Wnd = ControlGetHandle($hOpWnd, "", $aClassList[$i])
            $iLastInstance = $iClassInstance
        EndIf
    Next
    
    WinActivate($hOpWnd)
    WinWaitActive($hOpWnd)
    
    Return _ScreenCapture_CaptureWnd($sFile, $hCapt_Wnd, 0, 0, -1, -1, False)
EndFunc

Func _WinGetNumeratedClassList($sTitle, $sText="")
    Local $sClassList = WinGetClassList($sTitle, $sText)
    Local $aClassList = StringSplit($sClassList, @CRLF)
    Local $sRetClassList = "", $sHold_List = "|"
    Local $aiInHold, $iInHold
    
    For $i = 1 To UBound($aClassList) - 1
        If $aClassList[$i] = "" Then ContinueLoop
        
        If StringRegExp($sHold_List, "\|" & $aClassList[$i] & "~(\d+)\|") Then
            $aiInHold = StringRegExp($sHold_List, ".*\|" & $aClassList[$i] & "~(\d+)\|.*", 1)
            $iInHold = Number($aiInHold[UBound($aiInHold)-1])
            
            If $iInHold = 0 Then $iInHold += 1
            
            $aClassList[$i] &= "~" & $iInHold + 1
            $sHold_List &= $aClassList[$i] & "|"
            
            $sRetClassList &= $aClassList[$i] & @CRLF
        Else
            $aClassList[$i] &= "~1"
            $sHold_List &= $aClassList[$i] & "|"
            $sRetClassList &= $aClassList[$i] & @CRLF
        EndIf
    Next
    
    Return StringReplace(StringStripWS($sRetClassList, 3), "~", "")
EndFunc