Int -> Hex -> Cardinal

Hmm.. det virker ikke.. der kommer ikke nogen fejl, men der sker heller ikke noget..

Her er den kode jeg har nu:

Kode 

var
  hej: Cardinal;
  hejmed: integer;
  hejmeddig: string;
begin
  if (GetAsyncKeyState(VK_F1) and 1) = 1 then
    //Pokedword($E01D44, $98967F);
    hejmed := 123;
    hejmeddig := '$' + IntToHex(hejmed, 0);
    hej := StrToInt(hejmeddig);
    Pokedword($E01D4, $+hej);

Nu aner jeg ikke hvor du har PokedWord fra, men hvis jeg gætter rigtigt tager den to Cardinals som argumenter?

I såfald skal du bare kalde den med
PokedWord($E01d4, 123);

Der er i givet fald ingen grund til at konvertere fra integer til hex til cardinal. En integer er lige som cardinal et 32 bit heltal, forskellen er bare at integer er signed (dvs. den kan have en negativ værdi) hvor cardinal er unsigned. Delphi kan som regel sagtens finde ud af caste fra den ene til den anden.

---
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Prøv å sette 0 til 2:
var
hej: Cardinal;
hejmed: Integer;
hejmeddig: String;
begin
hejmed := 123;
hejmeddig := '$' + IntToHex(hejmed, 2); // 2 = 1 byte
hej := StrToInt(hejmeddig);
end;

Mvh
DiZpel

[Redigeret d. 09/04-04 12:36:08 af DiZpel]

Hvordan kan jeg konvertere int til hex til cardinal? Jeg har prøvet det her, men den vil ikke konvertere str til cardinal..

Det er fordi du ikke markere den som hexadecimal notation. Prøv at sætte et '$' foran din hex præsentation.
Således:

hejmeddig := '$' + IntToHex(hejmed, 0);

Så virker det.

(Jeg er dog lidt forvirret over hvad du vil opnå?
---
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

(Jeg er dog lidt forvirret over hvad du vil opnå?

Det er til en trainer...

[Redigeret d. 26/11-03 20:32:07 af Mark Jensen]

Hmm.. det virker ikke.. der kommer ikke nogen fejl, men der sker heller ikke noget..

Her er den kode jeg har nu:

var
  hej: Cardinal;
  hejmed: integer;
  hejmeddig: string;
begin
  if (GetAsyncKeyState(VK_F1) and 1) = 1 then
    //Pokedword($E01D44, $98967F);
    hejmed := 123;
    hejmeddig := '$' + IntToHex(hejmed, 0);
    hej := StrToInt(hejmeddig);
    Pokedword($E01D4, $+hej);

Prøver lige.. Pokedword() er en funktion jeg fik på et forum (en .pas fil med en masse funktioner som er gode til at lave trainere)

Hmm.. virker ik...

Hmm.. virker ik...

Så må jeg bede dig om at poste koden til PokedWord, så jeg kan se hvordan den fungere.

---
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

procedure Poke(BaseAddress:longword;PokeValue:byte);
var
    ProcessId : integer;
    buf : Char;
    HandleWindow : Integer;
    write : cardinal;
begin
     if IsTrainerSpyActive then
     begin
       exit;
     end;
     GetWindowThreadProcessId(FindWindow(nil,wincap),@ProcessId);
     HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
     buf := Chr(PokeValue);
     WriteProcessMemory(HandleWindow,ptr(BaseAddress),@buf,1,write);
     closehandle(HandleWindow);
end;

----------------------

procedure Pokedword(BaseAddress:longword;PokeValue:dword);
var
    buf : array[1..4] of byte;
begin
move(pokevalue,buf,4);
poke(baseaddress,buf[1]);
poke(baseaddress+1,buf[2]);
poke(baseaddress+2,buf[3]);
poke(baseaddress+3,buf[4]);
end;

[Redigeret d. 27/11-03 13:24:09 af Mark Jensen]

Hmm, PokedWord tager to argumenter, begger er af type Cardinal. Så hvis det ikke virker, er der noget galt et andet sted.

Nu er der jo selvfølgelig det forbehold i Poke :

     if IsTrainerSpyActive then
     begin
       exit;
     end;

Så hvis IsTrainerSpyActive er True, vil det jo ikke virke ...
---
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

[Redigeret d. 27/11-03 13:59:46 af Thomas Due]