Read Name

[Eviin]

Hey everyone,

im writing a bot for myself and i have a problem with reading the playerName.
( Official Servers )

I use Delphi for programming.


The Result of my Code is that the Function who reads the playerName returns an Integer ( converted into string )

Can anyone help me? ^^

Code:
Constants.pas

unit Constants;

interface

const
	OBJECT_FIELD_GUID     = $0;
	OBJECT_FIELD_DATA     = $2;
	OBJECT_FIELD_TYPE     = $4;
	OBJECT_FIELD_ENTRY    = $5;
	OBJECT_FIELD_SCALE_X  = $6;
	OBJECT_FIELD_PADDING  = $7;
	OBJECT_END            = $8;

  playerName            = $9BE820;
  currentRealm          = $9BE9AE;
  UNIT_FIELD_HEALTH     = $68;

  playerBase            = $00A70C50;
  playerBaseOff1        = $34;
  playerBaseOff2        = $24;

implementation

end.

Main:

procedure TMain.Start1Click(Sender: TObject);
var
returnedINT : Integer;
begin
 returnedINT := _MemReadInt(playerName, 16);
 playerNameLabel.Caption := inttostr(returnedINT);
end;

_MemReadInt [email protected]

[Frosttall]

You can't convert an Integer to a string like this.

The name gets stored as a pointer as member of WowObject. You have to read that pointer and then read the amount of bytes at the pointed address of the chars you want to have.

[Eviin]

How can i do that,
do you have an example?

[Cen01]

edit: delete me

[Eviin]

@Cen01
Why you delete your Post?
It helped me, so thanks anyway

[radarlove]

Hi,

I'm a Delphi programmer as well. Here's how i read the (max 20 length/zero terminated) charactername, i read it byte by byte:

function ReadCharacterName(iPid: Integer; iAddress: Cardinal): String;
var
  bytesRead: Cardinal;
  PidHandle: Integer;
  myResult: Cardinal;
  lLooper: Boolean;
  lLoopValue: Integer;
  lString: String;
  lIndex: Integer;
begin
  bytesRead:= 0;
  Pidhandle := OpenProcess(PROCESS_VM_READ,False,iPid); 
  lLooper := True;
  lLoopValue := 0;
  lIndex := 1;
  lString := '';
  while lLooper and (lIndex  <= 20) do
  begin
    ReadProcessMemory(PidHandle, ptr(iAddress + lLoopValue), @myResult, 1, bytesRead);
    if chr(myResult) = #0 then 
      lLooper := False
    else
    begin
      lString := lString + Chr(myResult);
      lLoopValue := lLoopValue + 1;
    end;
    lIndex := lIndex + 1;
  end;
  closehandle(Pidhandle);
  Result := lString;
end;

function input: the process id and the modulebaseadress+playername offset. I suppose you have the function to get the module baseaddress, can post that as well if you like.
I also see the CurrentRealm offset in you're code. Can be read in the exact same way as the charactername, maybe change the max length offset.

Good luck!