[Подсказка] Имя клана по ID (Delphi - / C# +)

[scitelz]

подскажите пожалуйста, точнее ткните носом опорукого, функция получения имени клана по его ID. ID ищется нормально в обоих случаях, а вот имя в Delphi не могу получить....то ли ночь, то ли отсутствие головного мозга...ну или покажите рабочую функцию для Delphi.
C#(рабочая)

public static string GetClanName(int clanId)
        {
            Int32 p1, p2, p3;
            char[] str = new char[32];
            p1 = MemoryManager.ReadInt32(0x0C9DFAC);
            p1 = MemoryManager.ReadInt32(p1 + 0x248);
            p2 = MemoryManager.ReadInt32(p1 + 0x14);
            p1 = MemoryManager.ReadInt32(p1 + 0xC);
            p3 = clanId % p2;
            p1 = MemoryManager.ReadInt32(p1 + p3 * 0x4);
            while (p1 != 0)
            {
                p3 = MemoryManager.ReadInt32(p1 + 0xC);
                if (p3 == clanId)
                {
                    p1 = MemoryManager.ReadInt32(p1 + 0x8);
                    p1 = MemoryManager.ReadInt32(p1 + 0x4);
                    string s = MemoryManager.ReadString(p1, 32);
                    p1 = 0;
                    return s;
                }
                else
                {
                    p1 = MemoryManager.ReadInt32(p1);
                }
            }
            return "noclan";
        }

Delphi/RadXE5 (не хочет заводиться, все время выкидывает из цикла и видит перса ноклан)

function ReadClanName(ClnID:LongWord): String;
var
  p1, p2, p3 : int32;
  Tmp: array [0..9] of WideChar;
  NoB : Size_T;
  ss : unicodestring;
begin
    ReadProcessMemory(hProcess,Pointer(BaseAddress),@p1,4,nob);
    ReadProcessMemory(hProcess,Pointer(p1+$248),@p1,4,nob);
    ReadProcessMemory(hProcess,Pointer(p1+$14),@p2,4,nob);
    ReadProcessMemory(hProcess,Pointer(p1+$C),@p1,4,nob);
    p3 := ClnID mod p2;
    ReadProcessMemory(hProcess,Pointer(p1+(p3*$4)),@p1,4,nob);
    while p1<>0 do begin
      ReadProcessMemory(hProcess,Pointer(p1+$C),@p3,4,nob);
      if ( p3 = ClnID ) then begin
        ReadProcessMemory(hProcess,Pointer(p1+$8),@p1,4,nob);
        ReadProcessMemory(hProcess,Pointer(p1+$4),@p1,4,nob);
        ReadProcessMemory(hProcess,Pointer(p1),@Tmp,32,nob);
        ss := Tmp;
        p1 := 0;
        result := ss;
      end else ReadProcessMemory(hProcess,Pointer(p1),@p1,4,nob);
    end;
    result := ' - ';
end;

[Ginrey]

а воспользоваться великим дебагером пробовали? в XE5 он хоть и тормознутый, но адекватно работает. Ставьте бряк на точку входа в цикл и смотрите какие данные прогоняются, вполне вероятно что переменная hProcess неверная, так как Delphi любитель сбрасывать ее, а быть точнее открытый процесс

[_DVD_]

Цитата: Сообщение от scitelz ReadProcessMemory(hProcess,Pointer(p1),@Tmp,32,nob);

ReadProcessMemory(hProcess,Pointer(p1+$0),@Tmp,32,nob);

и имена переменных лучше не коверкать
NoB : Size_T; .... nob

а и result := ' - '; у тебя всегда возвращает "-"

[scitelz]

разобрался, данная функция работоспособна на текущей версии руоффа. (компилировалось на Rad XE5)

function ReadClanName(ClnID:DWord): WideString;
var
  p1, p2, p3 : DWord;
  NoB : Size_T;
begin
 p1 := PwReadInt32(BaseAddress);
 p1 := PwReadInt32(p1 + $248);
 p2 := PwReadInt32(p1 + $14);
 p1 := PwReadInt32(p1 + $C);
 p3 := ClnID mod p2;
 p1 := PwReadInt32(p1 + p3*$4);

  while (p1 <> 0) do
  begin
     p3 := PwReadInt32(p1 + $C);
     if p3 = ClnID then
       begin
         p1 := PwReadInt32(p1 + $8);
         p1 := PwReadInt32(p1 + $4);
         Result := PwReadStr(p1,32);
         p1 := 0;
     end
     else  p1 := PwReadInt32(p1+$0);
  end;
end;