L2PacketHack 3.5.x

[diman2909]

Если имеются люди способные помочь разобраться с l2phx, то буду дико благодарен. Только начал разбираться, но что то пока без успехов , много чего не понимаю + пакеты непонятные ловит. Вобщем жду добрых людей в лс)

[SeregaZ]

непонятные пакеты встречаются в двух случаях: на сервере стоит дополнительная шифрация, а второй - не верно выбрана версия игры в настройках программы.

[xixi]

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

непонятные пакеты встречаются в двух случаях: на сервере стоит дополнительная шифрация, а второй - не верно выбрана версия игры в настройках программы.

Или пакет тупо не разобран, как например пакет типа FEDA

[VitaminPSG]

1. Где взять класс siComp. (После установки TsiLang, нигде не нашел файла с классом)
2. Как правильно подключить TRichView?
3. LSPControl,RVScroll, RVEdit,RVStyle, LSPStructures, ecPopupCtrl относятся к TRichView?
4. Как правильно подключить jwapi2.2a

Использую Rad XE5.

[Elecktron]

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

Использую Rad XE5.

не используй.

в первом посте ясно сказано - "Delphi 2007 и Delphi 7"

[VitaminPSG]

# Откатился до Delphi 7.
Указал пути к units. Не могу понять как работает линковщик. При сборке uData, ругается на Editor (не найдено определение класса). Хотя он описан в uScriptEditor. В настройках указал путь на units l2ph. Но он по прежнему отказывается компилить.

[NLObP]

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

# Откатился до Delphi 7.
Указал пути к units. Не могу понять как работает линковщик. При сборке uData, ругается на Editor (не найдено определение класса). Хотя он описан в uScriptEditor. В настройках указал путь на units l2ph. Но он по прежнему отказывается компилить.

Вот я мануал писал:
Мануал по установке компонентов для компиляции пакетхака

[SeregaZ]

о! я предлагаю сделать образ для виртуальной машины, со всем установленным чем надо ))

[Elecktron]

хорошая мысль )))

[VitaminPSG]

Вопрос как правильно передать параметры в функцию вызванную из dll написанной на с++.

1. В uPluginData.pas создал структуры методов

TSendPacketStr = procedure (pck: string; const tid: integer; const ToServer: Boolean);stdcall;
  TGetConnectionName = function(id : integer):string;stdcall;
  TGetConnectioIdByName = function(name : string):integer;stdcall;
  PSendPacketStr = ^TSendPacketStr;
  PGetConnectionName = ^TGetConnectionName;
  PGetConnectioIdByName = ^TGetConnectioIdByName;


  //  PSendPacketStr = TSendPacketStr;
  TCFunctionStruct = record
  pSendPacketStr: PSendPacketStr;
  pGetConnectionName: PGetConnectionName;
  pGetConnectioIdByName: PGetConnectioIdByName;
  end;
  
  PCFunctionStruct = ^TCFunctionStruct;

2. Описал функцию DLL в которую буду передавать указатель на структуру функций.

TSetCFStruct = function(const struct: PCFunctionStruct): Boolean; stdcall;

3. Создал переменную в которую буду записывать адрес на функцию DLL

SetCFStruct: TSetCFStruct;

4. При загрузке DLL. Нахожу адрес и записываю в переменную. А также передаю указатель на функцию.

 @SetCFStruct:=GetProcAddress(hLib, 'SetFunctionStruct');
  if(Assigned(SetCFStruct)) then
  begin
      ScriptStruct.pSendPacketStr:=@TPluginStructClass.SendPacketStr;
      ScriptStruct.pGetConnectionName:=@TPluginStructClass.getConnectionName;
      ScriptStruct.pGetConnectioIdByName:=@TPluginStructClass.getConnectioidByName;
      SetCFStruct(@ScriptStruct);
  end;

5. Описываю структуру функций из Delphi и функцию в которой буду передавать указатель.

// Структура скриптов
struct ScriptStruct
{
	void(*sendPacketStr)(unsigned char* pck, const int tid, bool toServer);
	char*(*getConnectionName)(int);
	int(*getConnectioIdByName)(char* name);

};

/// Функция передачи указателя на ScriptStruct
DLL_API bool SetFunctionStruct(ScriptStruct * scriptStruct);

6. Далее в сpp пишу описание функци

// Вызывается при включении плагина
DLL_API bool SetFunctionStruct(ScriptStruct * scriptStruct)
{
	OutputDebugStringA("SetFunctionStruct\n");
	_scriptStruct->getConnectionName(123); // <- Здесь я пытаюсь вызвать функцию из Delphi
	return true;
}

7. Запускаю проект L2Ph через дебагер, подключаю плагин.
Мы приходим в точку останова функции

function TPluginStructClass.getConnectionName(id: integer): string; stdcall;
begin
  result := dmData.ConnectNameById(id); /// <- вызывается 
end;

После чего просиходит креш