Инвентарь...

[samosi]

Хотелось бы узнать как вывести ячейку предмета, по его ID на Delphi
Вот моя функция но она не работает...

var
Wnd:THandle;
Hndl:array[0..255] of Char;
buf,BC:DWord;
bufs,BCS:DWord;
hProcess,PID,PID1:DWord;
ibuf,d,d2,max_z,id,ibufs:Integer;
begin
Wnd:=FindWindow('ElementClient Window',nil);
GetWindowThreadProcessId(Wnd,@PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID);
d:=0;
while (hProcess<>0) and (PID<>PID1) do
  begin
  GetWindowText(Wnd,Hndl,SizeOf(Hndl));
  ReadProcessMemory(hProcess,ptr(PW_BASE_ADDRESS),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$CAC),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$10),@buf,sizeof(buf),BC);
  max_z:=buf;

  for d2:=0 to max_z do
  begin
  ReadProcessMemory(hProcess,ptr(PW_BASE_ADDRESS),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+$1C),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+$34),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+$CAC),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+$C),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+d2),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs*$4),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+$08),@bufs,sizeof(bufs),BCS);
  id:=bufs;
  if id=21383 then
  begin
  number:=d2;
  end;
  end;
  FID[d]:=Wnd;
  PID:=PID1;
  inc(d)
  end;
  CloseHandle(hProcess);
end;

[krukovis]

Цитата: Сообщение от samosi Хотелось бы узнать как вывести ячейку предмета, по его ID на Delphi

Формируешь хеш-таблицу: (Номер ячейки := ИД предмета). А дальше ищешь в ней ИД предмета, а возвращаешь Ключ - Номер ячейки. А можно просто читать ИД предмета в каждой ячейке и сравнивать с искомым ИД. Как нашли - сообщать порядковый номер ячейки.

[samosi]

Цитата: Сообщение от krukovis Формируешь хеш-таблицу: (Номер ячейки := ИД предмета). А дальше ищешь в ней ИД предмета, а возвращаешь Ключ - Номер ячейки. А можно просто читать ИД предмета в каждой ячейке и сравнивать с искомым ИД. Как нашли - сообщать порядковый номер ячейки.

В том то и дело, что на делфи перешел недавно и незнаю как это осуществить, можешь помочь с кодом?

[krukovis]

Цитата: Сообщение от samosi В том то и дело, что на делфи перешел недавно и незнаю как это осуществить, можешь помочь с кодом?

На делфи не пишу. Но не понимаю в чем проблема. Алгоритм есть - воплощай и научишься заодно. На форуме программистов помогут организовать перебор.

[lcd1232]

samosi, не охото смотреть в чем ошибка. Скину уже рабочий код(спасибо SEModer'у)

Tinv = record
  Name:string;
  ID,Count,InvCell:integer;
  end;

invent:array [0..63] of TInv;
...
...
...
...
procedure ScanInventory;
var
i:integer;
data,BytesCount,count,ID,invmax,invstruct,itemstruct,toch:dword;
begin
  ReadProcessMemory(hProcess,ptr(GA),@data,sizeof(data),BytesCount);
  ReadProcessMemory(hProcess,ptr(data+$34),@data,sizeof(data),BytesCount);
  ReadProcessMemory(hProcess,ptr(data+$CAC),@data,sizeof(data),BytesCount);
  ReadProcessMemory(hProcess,ptr(data+$10),@invmax,sizeof(invmax),BytesCount);
  ReadProcessMemory(hProcess,ptr(data+$C),@invstruct,sizeof(invstruct),BytesCount);
  for i:=0 to invmax-1 do
  begin
  ReadProcessMemory(hProcess,ptr(invstruct+4*i),@itemstruct,sizeof(itemstruct),rw);
  ReadProcessMemory(hProcess,ptr(itemstruct+$8),@ID,sizeof(ID),rw);
  ReadProcessMemory(hProcess,ptr(itemstruct+$10),@count,sizeof(count),rw);
  ReadProcessMemory(hProcess,ptr(itemstruct+$C),@toch,sizeof(toch),rw);
    Invent[i].ID:=ID;
    Invent[i].Count:=Count;
    Invent[i].InvCell:=I;
  end;
end;

[VeTaL_UA]

Мой код:

var
hProcess,PID,buf,ibuf,BC:DWord;
i:Integer;
j:array [0..31] of Integer;
begin
PID:=GetWindowThreadProcessId(FindWindow('ElementClient Window','Perfect World'),@PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID);
 for i:=0 to 31 do
  begin
  ReadProcessMemory(hProcess,ptr(BA),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$CAC),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$4*i),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$8),@buf,sizeof(buf),BC);
  j[i]:=buf;
  end;
CloseHandle(hProcess);
end;

Можешь приделать читку количества ячеек с клиента...