Codeoptimierung verursacht probleme

[TiGü]

Zitat von EWeiss:

Da muss ich nichts ausführen da mir das Problem bekannt ist.
Es sich aber bei mir nicht anders händlen lässt ohne zusätzliche Listen zu generieren was ich nicht will.

Wie sind die Funktionen SetWindowLongPtr und GetWindowLongPtr in deiner Delphi-Version definiert?
Welche Datentypen stehen da im Funktionskopf?

[EWeiss]

Zitat von TiGü:

Zitat von EWeiss:

Da muss ich nichts ausführen da mir das Problem bekannt ist.
Es sich aber bei mir nicht anders händlen lässt ohne zusätzliche Listen zu generieren was ich nicht will.

Wie sind die Funktionen SetWindowLongPtr und GetWindowLongPtr in deiner Delphi-Version definiert?
Welche Datentypen stehen da im Funktionskopf?

Delphi-Quellcode:

{$EXTERNALSYM GetWindowLongPtr}
function GetWindowLongPtr(hWnd: HWND; nIndex: Integer): LONG_PTR; stdcall;
{$EXTERNALSYM SetWindowLongPtr}
function SetWindowLongPtr(hWnd: HWND; nIndex: Integer; dwNewLong: LONG_PTR): LONG_PTR; stdcall;

function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; stdcall;
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; stdcall;

gruss

[TiGü]

Auf welchen Datentyp mappt LONG_PTR in deiner Delphi-Version?

[EWeiss]

Zitat von TiGü:

Auf welchen Datentyp mappt LONG_PTR in deiner Delphi-Version?

  LONG_PTR = Longint;

Habe mir dein Teil mal angesehen.
Du versuchst Propertys zu speichern btw.. zu setzen die du gar nicht zugewiesen hast.

Damit dein Beispiel funktioniert muss erst mal EXTEND_EXTRA auf 56Bytes festgelegt werden.
Dann must du den Speicher dafür reservieren.. dazu must du den WindowStyle der Form verändern
und für "cbWndExtra" die Bytes zuweisen.
Davon das die Resourcen nicht freigegeben werden mal ganz abgesehen.
ReleaseDC(Form1.Handle, DesktopDeviceContext);

Bsp.

Delphi-Quellcode:

const
  FORM_BACKPaintBitmap  = 14;  // Memory Bitmap'
  EXTEND_EXTRA = FORM_BACKPaintBitmap;

wc: TWndClassEx;
wc.cbWndExtra := EXTEND_EXTRA * 4; // = 56Byte

so wie du das versucht hast wird das nix.
Du setzt irgendwelche propertys ins nirvana.
Letztendlich tut der Code eh nichts da kein Handle angegeben worden ist. (Rückgabe immer 0)
Warum da jetzt ein ERangeError kommt keine Ahnung..
Get/SetWindowLong wird ja nie aufgerufen.

gruss

[TiGü]

Zitat von EWeiss:

Habe mir dein Teil mal angesehen.
Du versuchst Propertys zu speichern btw.. zu setzen die du gar nicht zugewiesen hast.

Emil, sei doch bitte so gut und denke nicht schon drei Schritte weiter, sondern fange ganz vorne an und probiere die procedure Test ; in einen kleinen Konsolenprogramm mit eingeschalteter Bereichprüfung aus.

Hier jetzt mal als minimalstes Beispiel.

Delphi-Quellcode:

procedure SetProperty(V: integer);
begin
  // bewusst leer!
end;

procedure Test;
var
  DesktopDeviceContext: HDC;
  I: Integer;
begin
  for I := 0 to 100 do
  begin
    DesktopDeviceContext := GetDC(0);
    SetProperty(DesktopDeviceContext);
  end;
end;

[EWeiss]

Zitat:

Emil, sei doch bitte so gut und denke nicht schon drei Schritte weiter

Werde ich tun und habe ich schon gemacht
Mit kleinen Änderungen.
Die Änderungen die noch gemacht werden müssen habe ich im vorherigen Post schon mitgeteilt.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
const
   EXTEND_EXTRA = 56;

procedure SetProperty(WinHandle: HWND; Item: integer; V: integer);
begin
   if (Item > 0) and (Item < EXTEND_EXTRA + 1) and (WinHandle <> 0) then
     SetWindowLong(WinHandle, (Item - 1) * 4, V);
end;

function GetProperty(WinHandle: HWND; Item: integer): integer;
begin
   Result := 0;

   if (Item > 0) and (Item < EXTEND_EXTRA + 1) and (WinHandle <> 0) then
     Result := GetWindowLongPtr(WinHandle, (Item - 1) * 4);
end;

procedure Test;
var
   Item: integer;
   V: integer;
   DesktopDeviceContext: HDC;
   I: Integer;
begin
   for I := 0 to 100 do
   begin
     Item := 1;

     DesktopDeviceContext := GetDC(0);
     SetProperty(Form1.Handle, Item, DesktopDeviceContext);
     V := GetProperty(Form1.Handle, Item);
     ReleaseDC(Form1.Handle, DesktopDeviceContext)
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test;
end;

end.

Zitat:

Hier jetzt mal als minimalstes Beispiel.

Hat auch einen ErangeError keine Ahnung warum. Oder aber
LongWord <> Integer.. das ist bekannt. Aber wie gesagt ich kann das nicht ändern.
GetWindowLong erwartet einen Integer.

gruss

[TiGü]

Zitat von EWeiss:

Zitat:

Emil, sei doch bitte so gut und denke nicht schon drei Schritte weiter

Werde ich tun und habe ich schon gemacht
Mit kleinen Änderungen.
Die Änderungen die noch gemacht werden müssen habe ich im vorherigen Post schon mitgeteilt.

Zuviel, zu weit gedacht. Ich schrieb: "denke NICHT schon drei Schritte weiter".

Zitat von EWeiss:

Zitat:

Hier jetzt mal als minimalstes Beispiel.

Hat auch einen ErangeError keine Ahnung warum.

Wenn du das herausfindest und die richtigen Schlüsse daraus ziehst, dann kannst du viele deiner Probleme lösen.

Tipp: Was passiert wenn man ein 250 Gramm Stück Butter durch ein Schlüsselloch drückt?
Wie groß sind die Wertebereiche von Integer und Cardinal/DWORD/HWND/COLORREF?