Maus auf ein Ereignis reagieren lassen

[bitsetter]

Zitat:

Zitat von RXR-Max

ok die funktion oben geht aber es wird immer ein mausklick simuliert auch wenn ich nicht über der farbe bin?? :gruebel:

Hi,

das kann ich jetzt nicht nachvollziehen, ich habe das eben noch einmal getestet. Du könntest Toleranz ja mal auf 1 oder 2 setzten:

Delphi-Quellcode:

ColorToleranz(clGreen, DCFarbe, 2);

Ansonsten kannst du ja nochmal deinen Code posten.

Mit was für einer Farbe hast du denn getestet?

[TonyR]

Ich muss jetzt nochmal nachhaken und erinnere an meinen Beitrag vorhin (http://www.delphipraxis.net/internal...=709832#709832)

Du vergleichst jeden Farbanteil mit einer Toleranz...
Aber wie gesagt können auch visuell ziemlich gleiche Farben sehr große Unterschiede in einem Farbwert aufweisen... Ich verweise nochmal auf meinen Post vorhin...

Bitte beweise mir das Gegenteil, wenn du meinen Einwand verstehst und ihn nicht für richtig empfindest....
IMHO muss man einen Farbenstrahl haben und dort räumlich (bzw. eigentlich bloß 2D ...auf dem Strahl halt) benachbarte Farben herausfinden... ich weis aber selber nicht, wie das zu realisieren wäre...
[Das hab ich auch schon in einem Beitrag erwähnt]

[bitsetter]

@TonyR Solche extremen Farbschwankungen wie in deinen Bildern können eigentlich nicht entstehen. Es gibt sicherlich noch ausgefeiltere Funktionen, aber hier sind ein Paar Beispiele die noch im Toleranzbereich von 2 liegen würden:

Ausgangsfarbe:
R G B
0 205 230

Toleranz = 2 zugelassen z. B.
R G B
2 207 232

oder
R G B
1 203 228

oder
R G B
2 203 232

Die Toleranz von 2 entspricht max +2 und -2 pro Farbe. Bei einer Toleranz von 0 wird keine Abweichung erlaubt.

[RXR-Max]

also ich weiß noch nicht ob ich das in eine dll machen will. und wenn doch, ich weiß schon wie das geht ich weiß bloß nicht wie man einen timer in einer dll macht. bzw. einen intervall wie oft etwas wiederholt werden soll, in dem fall der mausklick

momentaner code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  DCFarbe: TColor;
  DesktopDC: hDC;

implementation

{$R *.dfm}

function ColorToleranz(SollColor, IstColor: TColor; Toleranz: Byte): boolean; 
var 
  rSoll, gSoll, bSoll, rIst, gIst, bIst: byte; 
begin 
  Result:= false; 
  SollColor := ColorToRgb(SollColor); 
  rSoll := GetRvalue(SollColor); 
  gSoll := GetGvalue(SollColor); 
  bSoll := GetBvalue(SollColor); 

  IstColor := ColorToRgb(IstColor); 
  rIst := GetRvalue(IstColor); 
  gIst := GetGvalue(IstColor); 
  bIst := GetBvalue(IstColor); 
  if (rIst >= rSoll- Toleranz) and (rIst <= rSoll + Toleranz) and 
    (gIst >= gSoll- Toleranz) and (gIst <= gSoll + Toleranz) and 
    (bIst >= bSoll- Toleranz) and (bIst <= bSoll + Toleranz) then 
      Result := true; 
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DesktopDC := GetDC(0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
DCFarbe := GetPixel(DesktopDC, Mouse.CursorPos.X, Mouse.CursorPos.Y); 
  if ColorToleranz(clBlack, DCFarbe, 1) then//max 255 
  begin 
    mouse_event(MOUSEEVENTF_LEFTDOWN, Mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, Mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0); 
  end; 
end;

end.

kein plan ich probiere es erstmal mit 1 oder 2 . toleranz meine ich


ich würde wenn es funzt den speicher natürlich auch wieder fri geben baer erstmal soll es funzen. also nicht meckern

[Apollonius]

OT:
Meiner Meinung nach muss man MOUSE_EVENT nicht die Koordinaten übergeben. Wenn man das will, muss man zusätzlich noch Flags zur absoluten oder relativen Mausbewegung setzen.

Delphi-Quellcode:

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

reicht also völlig, der Klick wird an der derzeitigen Mausposition ausgeführt.

[RXR-Max]

danke :o

ich werds gleich mal ausprobieren... :cheers:

[RXR-Max]

es funzt leider nicht. ich hab mich entschlossen das jetzt einfach unter den tisch fallen zu lassen und erstmal noch ein wenig mehr über delphi zu lernen. :gruebel: :wall:

[TonyR]

Ich mag zwar keine Leute die Sachen einfach so aufgeben/hinschmeißen, aber in deinem Fall ist es u.U. besser so.

Hat du dir schon alle Tutorials von www.dsdt.info durchgelesen??? Die sind IMHO die besten in der Delphi-Welt...

Vor allem der Delphi-Crashkurs ist das ABSOLUTE!
50 Seiten voller Wissen!!! :shock:

[RXR-Max]

ich hab mir schon viel dort durchgelesen, aber ich verstehe so wenig. ich bin er der typ der das von anderen gezeigt bekommen muss. sonst blick ich einfach nicht durch. und ich gerate außerdem immer mit c++ durcheinander. aber ich will mich jetzt voll und ganz delphi zuwenden.