вопрос по PaxCompiler

[xkor]

вот так должна быть видна под именем Button_1:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  published
    property Button_1: TButton read Button1 write Button1;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

[supernewbie]

ну так ясен хрен видно) ладно, пойду переделывать все переменные в проперти

[mira]

Возник вопрос умеет ли пк вызывать функи из приложения и наоборот как фс.
То у меня появилось подозрение на кривую многопоточность фса.
Тоесть когда выполняетса фс.execute если выполнить фс.callfunction из другова потока чето походу слетает порой

[supernewbie]

канеш умеет, регаешь в пакс функции свои (PaxRegister) и юзаешь Prog.CallRoutine

Добавлено через 1 час 43 минуты
не юзай фс не в коем случае, он гогно

[mira]

У меня скрипт никаких расчетов почти не делает тока реализует логику, скорость пох. Просто последнее время убивает нестабильность и глючность фс 1.1

вощем перехожу на пакс. Вроде все вкусно но пока невтыкаю как скажем закрыть текущий модуль и загрузить и запустить новый.

Добавлено через 23 часа 55 минут
Что неверно?)
i:integer;
procedure(a,b:integer,s:string);
......
i:=compiler.gethandle(0,`onxxx`,true);
p:=prog.getaddress(`module`,i);
p(3, id, `бафни`);
________________ в скрипте
procedure onxxx(ci:integer; oid:integer: s:string);
begin
if s='бафни' then begin
settarget(id);
useskill(skill_emp,false,false,true,false);
end;
end

итог - бафает потом выдает эксепшн. Фс норм. Что у них не fastcall чтоли или я мудаг?

[alexteam]

i:integer;
p:procedure(a,b:integer;s:string);stdcall;
......
i:=compiler.gethandle(0,`onxxx`,true);
p:=prog.getaddress(`module`,i);
p(3, id, `бафни`);
________________  в скрипте
procedure onxxx(ci:integer; oid:integer; s:string); stdcall;
begin
 if s='бафни' then begin
  settarget(id);
  useskill(skill_emp,false,false,true,false);
 end;
end

[mira]

Коротк и ясно

Добавлено через 6 часов 46 минут
и не работает на скрипте бота. работает тока в программе test.exe =))
неужели у них какието особенности постоения скрипта
вон тут конкатенация порадовала s:='vasia'+' '+'hello'
ожидаю vasia hello а получаю vasiahello

[alexteam]

неужели у них какието особенности постоения скрипта

там единственная сложность - получить хендл неймспейса с твоей функцией.

ожидаю vasia hello а получаю vasiahello

ты попробуй принт строчки 'еееюююяяя' сделать )
там много "своихприколов" )
но все равно хорошая штука, т.к. не интерпритатор.

Добавлено через 6 минут
ну в общем кактотак:

hmod := PC.GetHandle(0, 'namespacename', true);
  hfunc := PC.GetHandle(hmod, 'funcname', true);
  pfunc := PP.GetAddress(hfunc);
  TmyFunc(pfunc)(MyFuncParam);

при чем скрипт как таковой, можно сохранить в бинарке, но при этом незабыть приложить к нему все используемые с скрипта hfunc, чтобы потом при загрузке бинарки получить по ним валидные pfunc

[mira]

procedure PaxWriteStr(s:string);
begin
showmessage(s);
end;

zagruzka
.....
fPaxCompiler:=TPaxCompiler.Create(nil);
RegisterHeader(0, 'procedure WriteStr(s : string);', @PaxWriteStr);
fPaxCompiler.Reset;
fPaxPascalLanguage:=TPaxPascalLanguage.Create(nil);
fPaxCompiler.RegisterLanguage(fPaxPascalLanguage);
fPaxCompiler.AddModule('mainmodule',fPaxPascalLanguage.LanguageName);
fPaxCompiler.AddCodeFromFile('mainmodule',filname);
result:=fPaxCompiler.Compile(PaxProgram1);
scriptloaded:=result;
.....

script
.....
writestr('shillen saint profile');
.....

при любых параметрах показывает пустой бокс, строка попадающая в функцию всегда = ''

[alexteam]

ресет разве не трет все регистрелангвиджи и регистерхеадеры ?

fPaxCompiler:=TPaxCompiler.Create(nil);
fPaxPascalLanguage:=TPaxPascalLanguage.Create(nil);

fPaxCompiler.Reset;
fPaxCompiler.RegisterLanguage(fPaxPascalLanguage); //рега языка после ресета
fPaxCompiler.RegisterHeader(0, 'procedure WriteStr(s : string);', @PaxWriteStr); //рега ф-й после реги языка.

fPaxCompiler.AddModule('mainmodule',fPaxPascalLanguage.LanguageName); //код
fPaxCompiler.AddCodeFromFile('mainmodule', filname);
result:=fPaxCompiler.Compile(PaxProgram1);
scriptloaded:=result;

ну и paxProgram.Run; гдето.

кстати, учитывай еще такой интересный факт. что после компиляции тебе нужно вызвать run если ты планируешь юзать ф.и. из пакса. т.е. компильяция - запуск (даже если тело программы пустое) и только потом вызов всяких там "onxxx"
в противном случае будут сюрпризы )