Screenshot Frage

[Schuby]

Ich schaffe es nicht, wie gesagt ich bin kein ProfiProgrammierer.

Ich ahbe es geschafft den Teil den ich brauche zu Kopieren, aber alles andere ist weiß.
Wie kopiere ich diesen Teil in ein anderes TRect.


mfg

[jaenicke]

Mal dir doch einfach mal auf, von welcher Position aus der Quelle an welche Position im Ziel du den rechteckigen Ausschnitt kopieren möchtest.

Zum Beispiel kannst du bei einem Full-HD Bildschirm von Position (1850,1000)/(1920/1080) ein 70x80 Pixel großes Rechteck aus der rechten unteren Ecke kopieren. Als Ziel ist das dann, wenn es links oben landen soll, (0,0)/(70/80).

Du musst bei den Koordinaten immer beachten, auf welche Zeichenfläche sich diese beziehen (Quelle, Ziel).

[Schuby]

Zitat von jaenicke:

Mal dir doch einfach mal auf, von welcher Position aus der Quelle an welche Position im Ziel du den rechteckigen Ausschnitt kopieren möchtest.
(Quelle, Ziel).

Hallo, schaue dir doch mal oben das Bild an, ich habe mein ausschnitt nur es liegt noch im ganzen Screen.
Ich muss diesen ausschnitt jetzt in einen anderen tRect kopieren. Und ich weiß nicht wie ?

PS der ausschnitt ist ganz unten rechts vom Monitor Bild

mfg

[Redeemer]

Wenn du die Destination des Rechtecks ändern möchtest, musst du das Dest-Rect ändern. Spiele doch damit herum und schaue, was sich ändern.

[himitsu]

Zitat von Redeemer:

Wenn du die Destination des Rechtecks ändern möchtest, musst du das Dest-Rect ändern. Spiele doch damit herum und schaue, was sich ändern.

Und für den Anfang nicht so weit weg,
also anstatt sofort die rechte-untere Ecke, erstmal nur bissl rechts-runter.

z.B. Rect(30, 50, 30+70, 50+80) auf Rect(0, 0, 70, 80)
also bissl überlappend, damit auch immer etwas zu sehen ist

[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]