Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi funktion aufrufen. (https://www.delphipraxis.net/117887-funktion-aufrufen.html)

wadimwadim 27. Jul 2008 13:02


funktion aufrufen.
 
hallo,
habe ein großes problem.
und zwar habe ich eine funktion aus einem anderen process, die sich auf dieser adresse befindet (0x007B4FF0). Diese würde ich gerne über dll injection aufrufen... und habe mir deswegen diese dll geschrieben.

in ECX muß sich ein pointer zu einer struct mit den elementen:
Coord {
float x;
float y;
int z;
}
befinden, dass reicht um die funktion zu benutzen

Delphi-Quellcode:
library xxx;

uses
  SysUtils,
  Classes;

begin
  asm
    push 4249.095703
    push 2076.814695
    push 0
    call 007B4FF0  // <-- wie soll ich das hier schreiben? mit 0x davor oder $?
  end;
end.

begin
end.
wie kann ich das richtig machen?

rollstuhlfahrer 27. Jul 2008 13:04

Re: funktion aufrufen.
 
HI,

da gibt es 2(3) Mögloichkeiten.
1. Du probierst 0x und $ aus, wobei ich auf $ tippe.
2. Du rechnest alles in Dezimal um.

Bernhard

mkinzler 27. Jul 2008 13:06

Re: funktion aufrufen.
 
Aber bist du auch sicher, dass der Prozess sich immer an dieser Adresse befindet?

wadimwadim 27. Jul 2008 13:12

Re: funktion aufrufen.
 
ja ich bin sicher das er sich da befindet

@rollstuhlfahrer geht leider alles nicht. wie kann ich das sonst noch machen?

EDIT:
ist überhaupt mein inline asm richtig?
push ich denn überhaupt auf ecx?

Mr_G 27. Jul 2008 14:03

Re: funktion aufrufen.
 
Also mit PUSH schiebst du etwas auf den Stack. Um etwas in das ECX-Register zu schieben musst du MOV vewenden:
Code:
MOV ECX, 123
Schau dir am besten mal dieses Tutorial an: http://www.delphipraxis.net/internal...=622362#622362

wadimwadim 27. Jul 2008 16:42

Re: funktion aufrufen.
 
meint ihr es würde so gehen?
Delphi-Quellcode:
library Move;

 

uses
  SysUtils,
  Classes;

type
  TMoveTo = record
    PositionX: Single;
    PositionY: Single;
    PositionZ: Integer;
end;

var
        MoveTo      : TMoveTo;

begin
  MoveTo.PositionX:= 881.736328125;
  MoveTo.PositionY:= 7770.46630855;
  MoveTo.PositionZ:= 0;

  asm
    LEA ECX, MoveTo
    CALL [$007B4FF0]
  end;
end.

begin
end.

rollstuhlfahrer 30. Jul 2008 19:34

Re: funktion aufrufen.
 
Sorry, dass ich den Thread wieder ausgrabe.

Warum nicht gleich ganz anders?
Du hast doch den Speicherwert. Warum definierst du dir nicht eine Funktion mit den richtigen Aufrufparametern, weißt dieser die Speicherposition zu und führst sie aus?? Ich mein, Delphi erledigt doch den Rest.

Bernhard


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:44 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz