_ScreenCapture_Capture in Zwischenablage

Eugen

Hallo Forum
Mit

Code

_ScreenCapture_Capture("C:\ Destop\Image.bmp", $X, $Y, $x1,$y1)

kann ich den Bildausschnitt gespeichert, aber wie, bekomme ich den Ausschnitt direkt in die Zwischenablage bzw. in die Picturebox da eine Zwischenspeicherung zu langsam ist.
Ob das Bild ein .bmp oder .jpg ist, ist mir egal.
Was ich machen möchte ist ein vergrößerten Bildausschnitt von der momentanen Mausposition.
Also eine Art Lupe.
Mir fehlt komplett der Plan
Danke für eure Hilfe

**UEZ**

Wenn du

[autoit]

_ScreenCapture_Capture("", $X, $Y, $x1,$y1)

[/autoit]

ohne Dateiname aufrufst, bekommst du ein GDI (kein GDI+) Handle zurück. D.h. die Bitmap liegt im Speicher als Rohformat vor.

Bezgl. der Lupe einfach mal danach suchen.

**Andy**

Hi,
ich weiss nicht, warum Screencaptures gemacht werden, ich machs ohne, einfachstenfalls so:

[autoit]

#include <WinAPIGdi.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit]

$hgui = GUICreate("Beispiel stretchblt()")
$hdc_gui = _WinAPI_GetDC($hgui) ;device context GUI
GUISetState(@SW_SHOW, $hgui) ;GUI sichtbar machen

[/autoit][autoit][/autoit][autoit]

$hDC_Screen = _WinAPI_GetDC(0) ;DC screen

[/autoit][autoit][/autoit][autoit]

Do
$x = MouseGetPos(0) ;Mauskoordinaten
$y = MouseGetPos(1)
_WinAPI_StretchBlt($hdc_gui, 0, 0, 400, 400, $hDC_Screen, $x, $y, 50, 50, $SRCCOPY) ;blitten
Until GUIGetMsg() = -3

[/autoit]

Eugen

hallo Andy
danke für deinen Tipp.
dein Skript gefällt mir gut , nur wie bekomme ich das in eine Picturebox?
Ich habe in der Gui einige Listenfelder und Inputboxen.
Eugen
ach ja muss zugeben das ich anfänger bin.

**UEZ**

Als Anfänger wagst du dich gleich an was "kompliziertes" heran.

Ich lerne gerade ASM und lerne auch nur die Basics erst mal.

Fange doch klein an und steigere dich.

Eugen

nun mit Anfänger meinte ich Autoit, Vorbelastet bin ich seid der Zeit von Commandore 64 mit basic und danach etwas Visual Basic 6. Beim 64er war ASM noch einfach.

**Andy**

Hi,

Zitat von Eugen

Ich habe in der Gui einige Listenfelder und Inputboxen.

Zeig mal dein Script, damit klar wird, was du überhaupt vorhast.

Zitat von Eugen

Vorbelastet bin ich seid der Zeit von Commandore 64 mit basic und danach etwas Visual Basic 6. Beim 64er war ASM noch einfach.

ASM ist auch heute noch "einfach". Viel einfacher geht es garnicht. Aber "einfach" ist ja nicht das Ziel.
AutoIt hat den großen Vorteil der (sehr guten deutschen) Hilfe. Und eine schnelle Community. Wenn du "richtig" fragst und uns auch Material zum Arbeiten zur Verfügung stellst, bleibt die Hilfe sicher nicht aus.

Eugen

Zitat von Andy

Zeig mal dein Script, damit klar wird, was du überhaupt vorhast.

Hallo Andy
Hat etwas gedauert da ich das Skript erst etwas aufbereiten musste damit es andere auch lesen können.

Also das ganze soll ein Werkzeug für Bild - Positionierung werden, welche Bildausschnitte und Positionen in einer Liste abspeichert.
Diese Liste kann dann mit PixelSearch od. ImageSearch weiter verwendet werden
Auch Verarbeitung mit Kadmos (OCR) von IrfanView ist irgendwo in meinem Hinterkopf.
Der Skript - Bereich Bildausschnitte habe ich raus genommen da diese einwandfrei funktionieren.
Nach Fertigstellung werde ich selbst verständlich für alle das ges. Skript ins Forum stellen.
Bitte um Nachsicht bei meinem Programmierstiel da ich Anfänger bin.
Ich habe so weit wie möglich es dokumentiert.

So jetzt aber zu meinem Problem.
Siehe Skript „Func _maus_Pos_Bild()“

Ich habe ein Picurebox welche ich als Lupe benutze um die Maus auf einen Pixel genau zu positionieren. (Pic1)
Das Bild bekomme ich aus der Zwischenablage ($bak) über „_ScreenCapture_Capture“
Das Problem dabei, dieses Bild flackert und auch das Fadenkreuz verschwindet. (Bedingt durch die Schleife)
Die Lösung denke ich, ist eine Kopie von dem Bildausschnitt wo man das Fadenkreuz direkt reinzeichnet und dann erst in der Picturebox anzeigt.
Das ist aber um einige Nummern zu groß für einen Anfänger wie mich.

C

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#Include <Array.au3>
#include <Misc.au3>
#include <GuiEdit.au3>
#include <GUIListBox.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <GUIListBox.au3>
#include <File.au3>
#include <GDIPlus.au3>
#include <ScreenCapture.au3>
#include <ClipBoard.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 409, 212, 710, 5)
;
$Group1 = GUICtrlCreateGroup("", 1, 0, 156, 107,$ES_NUMBER)
$_LS = GUICtrlCreateInput("", 87, 13, 60, 21)
;GUICtrlSetOnEvent($_LS,"_Fenster_endern")
$_OS = GUICtrlCreateInput("", 87, 33, 60, 21)
;GUICtrlSetOnEvent($_OS,"_Fenster_endern")
$_B= GUICtrlCreateInput("", 87, 53, 60, 21)
;GUICtrlSetOnEvent($_B,"_Fenster_endern")
$_H = GUICtrlCreateInput("", 87, 73, 60, 21)
;GUICtrlSetOnEvent($_H ,"_Fenster_endern")
;
$Label1 = GUICtrlCreateLabel("Linke Kante", 3, 15, 84, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Oberkante", 10, 34, 75, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Breite", 41, 55, 41, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Höhe", 44, 76, 41, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Innere Lichte", 161, 6, 92, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$labtxt = GUICtrlCreateLabel("", 161, 24, 51, 40)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;
;
$List1 = GUICtrlCreateList("", 290, 20,100, 145,BitOR($LBS_NOTIFY,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER))
GUICtrlSetOnEvent($List1,"_Pos_aus_zuruckschreiben")
;
$Button1 = GUICtrlCreateButton("Übernehmen =>", 180, 60, 91, 23)
GUICtrlSetOnEvent($Button1, "_Pos_aus_input_ubernehmen")
$Button2 = GUICtrlCreateButton("löschen", 219, 85, 52, 23)
GUICtrlSetOnEvent($Button2, "_Makierung_loschen")
$Button3 = GUICtrlCreateButton("Speichern", 292, 160, 100, 23)
GUICtrlSetOnEvent($Button3, "Datei_speichern")
$Button4 = GUICtrlCreateButton("Laden", 292, 185, 100, 23)
GUICtrlSetOnEvent($Button4, "Datei_laden")
$Button5 = GUICtrlCreateButton("Alles", 180, 85, 40, 23)
GUICtrlSetOnEvent($Button5, "_Alles_Loeschen")
$Button6 = GUICtrlCreateButton("Bild Koordinaten", 290, 2,100, 18)
;GUICtrlSetOnEvent($Button6, "_Maus_Bild")
;


$Pic1 = GUICtrlCreatePic("", 1, 110, 70, 70,BitOR( $GUI_DOCKSIZE,$WS_BORDER, $WS_EX_CLIENTEDGE))
$Graphic1 = GUICtrlCreateGraphic(1, 110, 70, 70);Fadenkreuz
GUICtrlSetState ( $Graphic1,$GUI_ONTOP )
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 34, 12)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, 34, 30)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 14, 32)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, 32, 32)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 36, 32)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, 54, 32)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 34, 35)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, 34, 53)


;$Farbe = GUICtrlCreateGraphic(163, 110, 23, 21, BitOR($GUI_SS_DEFAULT_GRAPHIC,$SS_SUNKEN))
;
;$Sicherung = GUICtrlCreateLabel("", 1, 1, 36, 10)
GUICtrlSetColor(-1, 0xC0C0C0)


GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;===========================
HotKeySet ("!a","_Pos_ubernehmen");schreibt von Input in die Listbox
HotKeySet("!{-}", "_wert_vermindern") ;Inhalt des Input wird um 1 vermindern
HotKeySet("!{+}", "_wert_erhohen");Inhalt des Input wird um 1 erhöhen
HotKeySet("q", "_exit")
_maus_Pos_Bild();=========================== Start ===========================


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit


    EndSwitch
WEnd


;-------------------------
Func _maus_Pos_Bild(); UND DAS IST MEIN PROPLEM


ClipPut("")
_ClipBoard_GetData ($CF_BITMAP)
$bak=ClipPut(1)
While 1
    $M_pos=MouseGetPos()


    _GUICtrlEdit_SetText($_LS,$M_pos[0]);schreibt in Inbutbox $_LS
    _GUICtrlEdit_SetText($_OS,$M_pos[1]);schreibt in Inbutbox $_OS
    _ScreenCapture_Capture($bak, $M_pos[0],$M_pos[1], $M_pos[0]+10,$M_pos[1]+10,0);Bildauschnitt +10
    ;_WinAPI_RedrawWindow($Graphic1)
    GUICtrlSetImage ( $Pic1,ClipGet() ,"")
    _WinAPI_DeleteObject ( $bak )
WEnd
EndFunc
;-------------------------
Func _Pos_aus_input_ubernehmen(); über Button1 "Übernehmen =>" -schreibt von Input in die Listbox
    WinWaitActive($Form1)
    Local $txt=GuiCtrlRead($_LS)& "," & GuiCtrlRead($_OS)
    GuiCtrlSetData($List1,$txt)
EndFunc
;--------------------------
Func _Pos_ubernehmen();HotKeySet ("!a","_Pos_ubernehmen");schreibt von Input in die Listbox
    $pos = MouseGetPos()
    Local $txt=$pos[0]& "," &$pos[1]
    GuiCtrlSetData($List1,$txt)


EndFunc
;-------------------------
Func _wert_vermindern();HotKeySet("!{-}", "_wert_vermindern") ;Inhalt des Input wird um 1 vermindern
    ; zuerst Input auswahl und dann Maus auf position
Local $a,$b
$b = ControlGetFocus($form1)
$a = ControlCommand($form1,"","","GetLine","")
$a=$a-1
If $a< 0 Then $a = 0
ControlSetText("", "", $b,$a)
_Fenster_endern()
EndFunc
;------------------------
Func _wert_erhohen();HotKeySet "!{+}", "_wert_erhohen"-Inhalt des Input wird um 1 erhöhen
    ; zuerst Input auswahl und dann Maus auf position
$b = ControlGetFocus($form1)
$a = ControlCommand($form1,"","","GetLine","")
$a=$a+1
ControlSetText("", "", $b,$a)
_Fenster_endern()
EndFunc
;-------------------------
Func _Fenster_endern()


    $txt1=GuiCtrlRead($_LS)
    $txt2=GuiCtrlRead($_OS)
    ;$txt3=GuiCtrlRead($_B)
    ;$txt4=GuiCtrlRead($_H)
    ;WinMove($fenster,"",$txt1,$txt2,$txt3,$txt4)
    MouseMove($txt1,$txt2)


EndFunc
;--------------------------
Func _Pos_aus_zuruckschreiben(); schreibt von der Listbox in Inputbox
    WinWaitActive($Form1)
     Local $txt=_GUICtrlListBox_GetText($List1, _GUICtrlListBox_GetCurSel($List1))
    If $txt <>0 Then
        $txt = StringSplit($txt , ",")
        _GUICtrlEdit_SetText($_LS,$txt[1])
        _GUICtrlEdit_SetText($_OS,$txt[2])
        $txt=""
    EndIf
    _Fenster_endern()
EndFunc
;--------------------------
Func _Makierung_loschen(); löscht ausgewählte Zeile aus der Listbox
    $iSel = _GUICtrlListBox_GetCurSel($List1)
    _GUICtrlListBox_DeleteString($List1, $iSel)
EndFunc
;--------------------------
Func _Alles_Loeschen(); über Button5 "Alles" -Löscht Inhalt von Listbox
    _GUICtrlListBox_ResetContent($List1)
EndFunc
;-----------------------------


;--------------------------
;--------------------------
Func Datei_speichern(); schreibt von Listbox in  Textdatei.txt
Local $x= _GUICtrlListBox_GetCount($list1)-1
Local $txt
    For $i = 0 To $x
        $txt =   _GUICtrlListBox_GetText($List1,$i)& @CRLF & $txt
    Next
    Local $var = FileSaveDialog("", "C:\", "Textdateien (*.txt)", 2)
    FileOpen($var,2)
    FileWrite($var, $txt)
    FileClose($var)
EndFunc
;--------------------------
Func Datei_laden() ; schreibt aus Textdatei.txt in Listbox
Local $sFilePath,$Daten
    _GUICtrlListBox_ResetContent($List1)


Local $sFilePath= FileOpenDialog("", "C:\", "Textdateien (*.txt)", 2)
    _FileReadToArray($sFilePath, $Daten)
For $x = 1 To $Daten[0]
    GuiCtrlSetData($List1,$Daten[$x])
Next
EndFunc
;-----------------------------
Func _exit()
    Exit
    EndFunc

Alles anzeigen

Grüsse Eugen

**Andy**

Schau mal hier, da habe ich die Geschichte mit Fadenkreuz, pixelgenauer Positionierung und Größe, Speichern und Suchen von Bildinhalten schon einmal umgesetzt.
PushTheButton, ermöglicht Mausklick auf sonst nicht erreichbare Grafiken UPDATE 1.36

//EDIT
Die Prospeed.dll braucht man bei heutigen Rechnern nicht mehr, einfach weglassen. Man muss auch im Script nichts ändern, die Bildausschnitte werden auch so in wenigen Millisekunden gefunden.

Eugen

Zitat von Andy

PushTheButton, ermöglicht Mausklick auf sonst nicht erreichbare Grafiken UPDATE 1.36

hallo
gefunden
Da hast du ein tolles Programm erstellt, super auskommentiert.
Darf ich einige Teile rauskopieren und bei mir verwenden? Dein Autoren Name bleibt natürlich erhalten.
An dem werde ich eine Weile zu beißen haben da ich es auch verstehen will.
Danke dir
Eugen

**Andy**

Ja, natürlich kannst du Programmteile oder Funktionen verwenden, dafür ist doch ein Forum da.

PushTheButton hätte längst ein kleines Upgrade nötig gehabt bzgl. einer Suchfunktion in ASM, sind ja nur ne Handvoll Befehle. Schaumamal, ob ich am Wochenende mal ne Stunde Zeit erübrige.
Obwohl die in nativem AutoItcode erledigte Suche idR. schnell genug ist. In Full-HD werden die Buttons aus nicht "direkt" anklickbaren Buttons selbst auf unseren Firmen-Nettops innerhalb von Millisekunden gefunden. Da habe ich mir sowieso angewöhnt, einige hundert Millisekunden zwischen den einzelnen Klicks zu warten, damit das System überhaupt hinterherkommt...