[Помогите!] Delphi

[Sanych89]

может, там всё же ptr ?

[trixicus]

А есть существенная разница?

[semoder]

Существенной разницы в ptr и pointer нету)) просто разные варианты пробовал, поэтому в коде осталось то что юзал последнее

Добавлено через 10 минут
Проблемко решена, не там end поставил...

[Sanych89]

а. мне было лень думать. первое, что в глаза бросилось.
не сравнивал)

[Skuka.95]

а как имя перса вывести ? (в коде ранее нечего не понял.. да я только учусь) пробовал так же как хп.. получилось вот чё 314886892 на 1 персе и 360916444 на другом...

[trixicus]

function GetWideString(hProcess, data: DWORD): string;
var
  i, rw: DWORD;
  ch: WideChar;
  wch: array [0 .. 255] of WideChar;
  str: string;
begin
  i := 0;
  repeat
    ReadProcessMemory(hProcess, ptr(data), @ch, 2, rw);
    data := data + 2;
    wch[i] := ch;
    inc(i);
  until (ord(ch) = 0) or (i >= 255); { Перегоняем имя с массива в строку }
  i := 0;
  str := '';
  repeat
    str := str + wch[i];
    inc(i);
  until wch[i] = '';
  result := str; { Вернем сформированную строку }
end;
...
ReadProcessMemory(hProcess, ptr(Struct + $638),@addr, 4, BytesCount);
Info.Nick := GetWideString(hProcess, addr);

[Morkanus]

+1298 QuestArray /Квестовый массив/
+0x8+(i*0x20+0x8) - word id квеста(от 0 до 19)
как считать 2 Байта, а не 4??
если просто тупо объявить переменные

Цитата: ReadProcessMemory(hProcess, ptr(QuestID+(i*$20+$8) ), @QuestID, sizeof(QuestID), BytesCount);

то выводит ошибку:
[DCC Error] Unit2.pas(102): E2033 Types of actual and formal var parameters must be identical

Может надо как то перегонять что бы вытащить Id квеста.

[Ginrey]

Morkanus А тебе не кажется что после трех лет безактивности тема уже не актуальна?

[Morkanus]

почему бы и нет, тема Delphi, 1 пост про ту же ошибку что и у меня. зачем разводить много тем...

[Ginrey]

Цитата: как считать 2 Байта, а не 4??

вы видимо юзали копирование функции ReadProcessMemory, даже не смотря на входящие данные
sizeof(QuestID) - в переводе на русский размер, можно заменить на любое кол-во байт, 1,2,3,4 это сколько байт будет занесено в переменную

Цитата: Types of actual and formal var parameters must be identical

о ошибка из за неверного типа переменной, я предполагаю вы копировали код написанный на Delphi 7, а сами используете Delphi XE2 и выше, если мои догадки верны то ругается на переменную BytesCount
в Delphi 7 ее тип - DWORD
в Delphi XE2 - Size_t

надеюсь понятно объяснил.

[_DVD_]

Morkanus, может сначала стоило изучить немножко Delphi ?

type Word = 0..65535;

[Morkanus]

Цитата: type Word = 0..65535;

хахха, это я знаю.

Ginrey, спасибо!! подтолкнули.

поковырялся и разобрался что я делал не так:

BytesCount,MobsTemp:DWord;
MobsTemp1:word;
ReadProcessMemory(hProcess, ptr(MobsTemp+$8), @MobsTemp, sizeof(MobsTemp), BytesCount);
ReadProcessMemory(hProcess, ptr(MobsTemp+(i*$20+$8) ), @MobsTemp1, sizeof(MobsTemp1), BytesCount);

я догадывался, что как то так надо сделать, но не сделал))

[_DVD_]

еще раз написать?
ок
WORD 2 байта
DWORD 4 байта

[Smertig]

Я не понимаю, что тут за извращение происходит, но адреса обязаны быть dword'овыми (4 байта) и только последнее чтение должно читать в word'овую переменную

п.с. дельфи не знаю, ухожу

[Morkanus]

Цитата: еще раз написать? ок WORD 2 байта DWORD 4 байта

я в курсе)))