Adresse einer privaten Methode bekommen

[Win32.API]

Zitat von mkinzler:

Zitat:

Alle Methoden, egal ob privat oder public, sind nur innerhalb einer Object-Instanz verwendbar (Class Functions/Procesdures und Hacks ausgeschlossen).

Public Methoden sind von ausserhalb aufrufbar.

Hast du den Source der Komponente?

Ich wollte formulieren, dass Methoden nur aus einer Objekt-Instanz heraus aufrufbar sind. (MyObj.Test <> TMyObj.Test)

Nein, der Source liegt leider nicht vor.

Zitat von Bernhard Geyer:

Zitat von Win32.API:

Ich brauche die Adresse um einen Bug in der Komponente zu beseitigen.

Und wie wäre es den Fehler zu beheben?

Die Funktion sollte immer True zurück geben, durch einen Bug wird unter bestimmten Umständen false zurück gegeben, was die weitere Verarbeitung behindert.

Also muss an die Funktions Adresse ein:

Code:

xor eax, eax
add eax, 1
retn

gepatch werden.

[daywalker9]

Dann frag den Rückabe wert nicht ab? Wenn der immer true sein soll ist das Result ja egal

[BUG]

Zitat von daywalker9:

Dann frag den Rückabe wert nicht ab? Wenn der immer true sein soll ist das Result ja egal

Es ist eine private Methode, die anscheinend von der Komponente genutzt / abgefragt wird, worauf er keinen Einfluss hat.


Spannendes Problem

[Win32.API]

Zitat von BUG:

Zitat von daywalker9:

Dann frag den Rückabe wert nicht ab? Wenn der immer true sein soll ist das Result ja egal

Es ist eine private Methode, die anscheinend von der Komponente genutzt / abgefragt wird, worauf er keinen Einfluss hat.


Spannendes Problem

Genau so sieht es aus. Ich habe keinen Einfluss ob die Methode aufgerufen wird oder nicht.

[mkinzler]

Dann melde es dem Hersteller

[Win32.API]

Zitat von mkinzler:

Dann melde es dem Hersteller

Ist schon vor ca. 2 Monaten passiert, bis jetzt leider keine Besserung. Darum wollte ich es nun selber in die Hand nehmen.

[Namenloser]

Delphi-Quellcode:

unit Unit1;

interface

uses
  classes;

type

  TMyClass = class
  strict private
    procedure BuggyMethod;
  end;

  TMyClassHack = class helper for TMyClass
  public
    function GetBuggyMethodAddress: Pointer;
  end;

  procedure Test;

implementation

uses
  SysUtils;

{ TmyClassHack }

function TMyClassHack.GetBuggyMethodAddress: Pointer;
asm
  lea eax, [0+TMyClass.BuggyMethod]
end;

{ TMyClass }

procedure TMyClass.BuggyMethod;
begin
  writeln('hello');
end;

procedure Test;
var
  Obj: TMyClass;
  Addr: Pointer;
begin
  Obj := TMyClass.Create;
  writeln(format('%p',[Obj.GetBuggyMethodAddress]));
  Addr := Obj.GetBuggyMethodAddress;
  asm
    call Addr
  end;
  Obj.Free;
end;

end.

Das funktioniert bei mir. Ich weiß allerdings nicht genau was du damit meinst:

Zitat:

Eine "Hack"/"Dummy"-Klasse kommt in diesem Fall nicht in Frage, da der Code für mehrere Versionen der Klasse arbeiten soll.

[mkinzler]

Eine Rückgabe die immer True ergibt? Dann könnte man ja auf die Rückgabe verzichten