Screenshot Frage

[jaenicke]

Wie sieht denn dein aktueller Code aus? Du müsstest ja nun eine zweite TRect Variable haben. Und wenn du den Ausschnitt im Ziel direkt links oben haben möchtest, sieht das für einen 50x100 Pixel großen Ausschnitt z.B. so aus:

Delphi-Quellcode:

var
  TargetRect: TRect;
begin
  TargetRect := Rect(0, 0, 50, 100);
  ...
  Bild.Canvas.CopyRect(TargetRect, c, r);

[Schuby]

Hallo zusammen, ok jetzt muss ich mal ausholen damit ihr versteht was ich machen will.
Ich spiele ein Spiel und habe mehrere Accounts, wenn ich ein spezielles Item suche muss
ich jeden acc einloggen um nach zu schauen wo es ist. Deswegen mache ich von jeden acc
ein Screenshot nur vom Inventar(4mal) und Lager(3mal), speichere dieses Bild in die Datenbank ab.

Dazu ziehe ich mein Inventar oben links in die Ecke und mache ein Screen. Das klappt super.
Besser wäre es aber wenn ich auf Inventar klicke und es bleibt rechts unten in der ecke
und ich muss es nicht verschieben.

Das ist zur Zeit mein Code.

Delphi-Quellcode:

//******************************************************************************
// Monitor ist 1920 x 1080
// x=1720
// y=400
// Image2.Canvas.CopyRect(Ziel, Image1.Canvas, Quelle);
//******************************************************************************

procedure TForm1.ScreenShot(Bild: TBitMap);
var
  c: TCanvas;
  r: TRect;
begin
  x:= 1720;
  y:=  400;

  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    r := Rect(0, 0, (Screen.Width -x ), (Screen.Height-y ));
    Bild.Width := (Screen.Width -x );
    Bild.Height := (Screen.Height -y);
    Bild.Canvas.CopyRect(r, c, r);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;

Es wird ein kleines Bild abgespeichert, wenn ich darauf klicke kommt ganz rechts ein vergrößertes Bild
damit ich meine Items besser sehe.

Ja es ist schon etwas blöde bei jeden acc das inventar in die linke obere ecke zu ziehen.

Ich habe schon einige tipps bekommen, aber sorry ich bekomme es einfach nicht hin.

mfg

[himitsu]

[deleted]

[Schuby]

@himitsu, du hast mich nicht verstanden.

ich schreibe es dir noch einmal.
1. Mein Spiel ist gestartet und läuft im Hindergrund.
2. Im Vordergrund ist mein Tool gestartet.
3. Ich spiele im Fenster Modus.
4. Ich drücke auf den Button Screen.

Delphi-Quellcode:

//Char 1 Inventar Bild1
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Visible := False;
  Sleep(STime); // some delay, ein wenig Zeit geben
  ScreenShot(Char1_1.Picture.BitMap);
  Form1.Visible := True;
end;

Mein Tool verschwindet (visible:= false), jetzt sehe ich mein Spiel auf dem Bildschirm.
Es wird ein screen gemacht und der linke obere Bereich wird abgespeichert.

Delphi-Quellcode:

procedure TForm1.ScreenShot(Bild: TBitMap);
var
  c: TCanvas;
  r: TRect;
begin
  x:= 1720;
  y:= 400;

  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    r := Rect(0, 0, (Screen.Width -x ), (Screen.Height-y ));
    Bild.Width := (Screen.Width -x );
    Bild.Height := (Screen.Height -y);
    Bild.Canvas.CopyRect(r, c, r);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;

mfg

[himitsu]

Doch doch, hab ich (das vorhin hatte sich nur verlaufen )
https://www.delphipraxis.net/97980-d...ml#post1550780


Aber du hast nicht zugehört, was hier mehrmals gesagt wurde!

Warum verwendest du immernoch einen Rect, für Source und Dest?
Dein r ist die Source-Position auf'm Desktop, aber im Ziel-"Bild" soll das doch auf eine andere Position (Dest).

[Schuby]

Zitat von himitsu:

Aber du hast nicht zugehört, was hier mehrmals gesagt wurde!

Warum verwendest du immernoch einen Rect, für Source und Dest?
Dein r ist die Source-Position auf'm Desktop, aber im Ziel-"Bild" soll das doch auf eine andere Position (Dest).

Weil ich da nicht durch blicke, sorry



mfg

[himitsu]

mach mal so

Delphi-Quellcode:

    Bild.Width := Screen.Width;
    Bild.Height := Screen.Height;
    Bild.Canvas.CopyRect(r, c, r);

dann siehst du, was gemeint ist.

Dein Bild ist da,
nur halt nicht da, wo du denkst.

[jaenicke]

Zitat von Schuby:

Weil ich da nicht durch blicke, sorry

Ich habe oben doch ein konkretes Beispiel mit Erklärung geschrieben. Wenn du das nicht verstehst, musst du schon genauer sagen, was du nicht verstehst.

Zitat von jaenicke:

Wie sieht denn dein aktueller Code aus? Du müsstest ja nun eine zweite TRect Variable haben. Und wenn du den Ausschnitt im Ziel direkt links oben haben möchtest, sieht das für einen 50x100 Pixel großen Ausschnitt z.B. so aus:

Delphi-Quellcode:

var
  TargetRect: TRect;
begin
  TargetRect := Rect(0, 0, 50, 100);
  ...
  Bild.Canvas.CopyRect(TargetRect, c, r);

Du möchtest den Ausschnitt nicht an die gleiche Stelle (rechts unten) in dein Bild bekommen. Also musst du eine andere Position dafür übergeben.

Anders gefragt:
Verstehst du denn deinen eigenen Code oder hast du den nur irgendwo kopiert?

[blawen]

Zitat von jaenicke:

Anders gefragt:
Verstehst du denn deinen eigenen Code oder hast du den nur irgendwo kopiert?

Gemäss Eingangspost handelt es sich nicht um den eigenen Code.

Der Code stammt vermutlich vom SDC

[Schuby]

Guten morgen, war das eine Geburt
Jetzt habe ich es verstanden wie es geht.

Ich musste die größe des Bildes auch anpassen mit
Bild.Width := (Screen.Width-1730);
Bild.Height := (Screen.Height-330);
Weil das Kopierte muss ja da rein.

Jetzt sieht es gut aus
Danke für eure Hilfe.

Delphi-Quellcode:

procedure TForm1.ScreenShot(Bild: TBitMap);
var
  c: TCanvas;
  r,  TargetRect : TRect;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    r := Rect(1730, 330, (Screen.Width), (Screen.Height ));

    Bild.Width := (Screen.Width-1730);
    Bild.Height := (Screen.Height-330);

    TargetRect := Rect(0, 0, 190, 750);
    Bild.Canvas.CopyRect(TargetRect, c, r);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;

Und auch ein Bild wie es jetzt aussieht.

mfg