L2PacketHack 3.1.8 AE (Advanced Edition)

[QaK]

Итак после ряда терзаний мозга и т.д. получилось сваять ПНХ с поддержкой длл, более-менне стабильно. Разработано совместно с Гринчем. Итак приступим:

Теперь в ПНХ (весия 3.1.8) исть 2 штуки для работы с длл - процедура и функция. Обо всем по-порядку:

Процедура: CallPr
Исходный текст:

if MethodName = 'CALLPR' then begin
    @TestProc := nil;
    @TestProc := GetProcAddress(Cardinal(Params[0]),PAnsiChar(VarToStr(Params[1])));
    if @TestProc <> nil then begin
      Count := Params[2];
      setLength(popa,count);
      for i:=0 to Count-1 do
      popa[i]:=PChar(VarToStr(Params[3][i])); 
      TestProc(popa);
    end;   
    @TestProc:=nil;
  end else
//еще в раздел переменных функции TL2PacketHackMain.CallMethod добавить
//TestProc: procedure (ar:array of PChar);stdcall; 
 

Добавление метода в фаст скрипт:

fsScript.AddMethod('procedure CallPr(LibHandle:integer;FunctionName:String;Count:Integer;Params:array of variant)',CallMethod);

Функция: CallFnc
Исходный текст:

if MethodName = 'CALLFNC' then begin
      @TestFunc := nil;
      @TestFunc := GetProcAddress(Cardinal(Params[0]),PAnsiChar(VarToStr(Params[1])));  
      if @TestFunc <> nil then begin
        Count := Params[2];
        setLength(popa,count);
        for i:=0 to Count-1 do
        popa[i]:=PChar(VarToStr(Params[3][i])); 
        Result:=StrPas(TestFunc(popa));
      end;   
      @TestFunc:=nil;
    end else
//еще в раздел переменных функции TL2PacketHackMain.CallMethod добавить
//TestFunc: function (ar:array of PChar):Pchar;stdcall; 
 

Добавление метода в фаст скрипт:

fsScript.AddMethod('function CallFnc(LibHandle:integer;FunctionName:String;Count:Integer;Params:array of variant):string',CallMethod);

использование: при создании дллки описание должно выглядеть
для процедуры

procedure MyNazvanie(s:array of PChar);stdcall;export;
var param1:integer;
param2:string;
begin param1:=StrToInt(StrPas(s[0]));
param2:=StrPas(s[1]);
end;

для функции

function MyNazvanie(s:array of PChar):PChar;stdcall;export;
var param1:integer;
param2:string;
begin param1:=StrToInt(StrPas(s[0]));
param2:=StrPas(s[1]);
Result:=PChar(IntToStr(param1)+' '+param2);
end;

З.Ы. CallFnc возвращает string;

З.Ы.Ы. TestDLL - тестовая дллка и скрипт для передачи/приема различных данных, Temp_Project - для передачи пакета в дллку (полностью) и разбор пакета уже непосредственно в дллке.

З.Ы.Ы.Ы. в ПНХ добавлена функция StrToHex, чтоб посылать пакет в дллку нужно обязательно его в хекс перевести иначе возникает проблемма в преобразовании типов и пакет передается не полностью.

З.Ы.Ы.Ы.Ы. Большое спасибо модерам и админу за помощь в создании сего продукта =) Гринч, выкинь сюда весь исходник и перекомпиленную пнх, последнюю, ну ты знаешь какую =)

[Emocean]

В TestDll и в Temp_Project лежит один и тот же проект. Так и должно быть?..

[QaK]

Упс, мой косяк =) Щас поправлю.

Добавлено через 5 минут
Перезалил TestDll.

[QaK]

От нечего делать в Temp_Project дописал процедурки Write, аналогичные пнх. Если кого-то интересует - могу выложить обновленный Temp_Project. И вообще вопрос, кто-то юзает эту версию пнх для работы с дллками, и если юзают, то что конкретно пытаетесь реализовать?

Добавлено через 1 час 43 минуты
В общем залил новый Temp_project.

[Grinch]

короче говоря я ток компилил в личку не пишите ) для меня ет тёмный лес пока что ) жду бота )

[PanAm]

А с 3.2.0 можете это сделать? Пожалуста.
PS. И еще, ну очень нехватает функции посылки нажатий клавишь в окно. )))

[QaK]

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

А с 3.2.0 можете это сделать? Пожалуста.
PS. И еще, ну очень нехватает функции посылки нажатий клавишь в окно. )))

что тебя в 3.1.8 не устраивает? Посылка нажатий клавишь в окно - это не к пнх, существует ряд программ, зачем тебе посылать нажатие клавиши,для какой цели. Теоретичеки сам можешь добавить в 3.2.0 эти функции/процедуры, в первом посте приведен исходный код, и куда его пихать. Просто у меня нет дельфи 2007й =)

[NLObP]

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

З.Ы.Ы.Ы. в ПНХ добавлена функция StrToHex, чтоб посылать пакет в дллку нужно обязательно его в хекс перевести иначе возникает проблемма в преобразовании типов и пакет передается не полностью.

Выложи main.pas, чтобы я сделал 3.2.0. Мне не хватает определения для функции StrToHex
Вот пока без нее:

[QaK]

В CallMethod добавить

if MethodName = 'STRTOHEX' then Result:=StringToHex(Params[0],'') else

В RefreshPrecompile добавить

fsScript.AddMethod('function StrToHex(Str:String):String',CallMethod);

[NLObP]

Выложил в разделе файлов скомпилированную версию 3.2.1 и 3.1.8 с поддержкой ДЛЛ.

ЗЫЖ В закладке Скрипты по ctrl+s сохраняет скрипт, плюс еще немного незначительных изменений.