L2PacketHack 3.5.x

[NLObP]

Исходники здесь
Вот такие скомпилированные версии есть у меня.

Ниже данные устарели.
Репозиторий находится тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер тут
Скомпилированные версии тут Пароль к архиву: coderx.ru

Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?

Программа пишется в среде Delphi 2007 и Delphi 7 с использованием следующих дополнительных библиотек компонентов:
- FastScript (http://fast-report.com/ru/products/fast-script.html)
- JCL (http://sourceforge.net/projects/jcl/)
- JVCL (http://sourceforge.net/projects/jvcl/)

Дополнительные компоненты брать тут. (<-- TPerlRegEx есть только там)

/upd:
для компиляции последних ревизий понадобятся JCL, JVCL (ссылки выше) а так же:
jwapi2.2a, SyntEdit, TRichView.v11.0+ScaleRichView.v2.0, TsiLang (letitbit / upload.com.ua)
Немного подправленный FastScript искать в файловом архиве.

[NLObP]

Никак не получается сделать. Ткните носом как правильно.

Есть

      procedure TfMainReplacer.CreateParams(var Params: TCreateParams);     
      begin
        inherited CreateParams(Params);
        Params.WinClassName := 'hervam'; //любаярандомнаястрочка
      end;

Делаю

      procedure TfMainReplacer.CreateParams(var Params: TCreateParams);     
var
  str: string;
begin
  inherited CreateParams(Params);
  str:='hervam';
  Params.WinClassName := str; //<-error
end;

Вылетает ошибка

[DCC Error] uMainReplacer.pas(381): E2010 Incompatible types: 'Array' and 'string'

Делаю так

procedure TfMainReplacer.CreateParams(var Params: TCreateParams);
var
  str: array[0..63]of Char;
begin
  inherited CreateParams(Params);
  //str:='hervam';
  Params.WinClassName := str; //<-error
end;

[DCC Error] uMainReplacer.pas(381): E2008 Incompatible types

Хотя в сурсах WinClassName определена как

WinClassName: array[0..63] of Char; // Имя класса окна

Как сделать правильно?

Так правильно будет?

  Move(str, Params.WinClassName, SizeOf(str));

[alexteam]

move(str[1],Params.WinClassName, length(str));

естественно str : ansistring длинной меньше 64 байтоф.

[Torbins]

Ух ты, вы пофиксили отображение пакетов айона! А расшифровкам можно доверять? Откуда они взяты?

[xkor]

Сообщение от alexteam

естественно str : ansistring длинной меньше 64 байтоф.

учитывая что:

Сообщение от NLObP

WinClassName: array[0..63] of Char; // Имя класса окна

скорее всётаки string а не ansistring, ну и соответственно не length(str), а length(str)*2 если дельфи 2009+

[regged]

NLObP, У тебя какая версия аиона если я правильно понял ты начал заниматся ею тоже? Вот что у нас есть незнаю пригодится или нет? Версия у меня 2.1

[alexteam]

xkor, http://i.piccy.info/i5/83/81/1308183/Bezymiannyi.png

[NLObP]

Сообщение от regged

У тебя какая версия аиона если я правильно понял ты начал заниматся ею тоже? Вот что у нас есть незнаю пригодится или нет? Версия у меня 2.1

У меня Айона нет. Делаю из разных сборок java серверов. Нужны логи пакетов. Также желательна ссылка на исходники сервака айон с версией 2.1.

PS: подключил файлы ClassIdAion.ini, ItemsIdAion.ini, SkillsIdAion.ini для разбора пакетов, функции соответственно Get.ClassIdA, Get.FUNC01A, Get.SkillA

[regged]

Вот исходники более менее норм работающей группы
http://aionxemu.googlecode.com/svn/trunk/

Добавлено через 31 минуту
NLObP, Твоя версия программы 3.5.33.167 и у меня уже не пашет
а с 166 все норм. Почему?

[regged]

NLObP, Спасибо, заработало!

[SeregaZ]

о! ожидается обновление? и я так понял касается в основном айона?