Вернуться   CoderX :: Forums > Основные форумы > Программинг
Войти через OpenID

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 28.05.2011, 16:29   #31
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

вот так должна быть видна под именем Button_1:
delphi Код:
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.
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
Старый 28.05.2011, 16:53   #32
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

ну так ясен хрен видно) ладно, пойду переделывать все переменные в проперти
__________________
Начало.
supernewbie вне форума   Ответить с цитированием
Старый 21.06.2011, 10:59   #33
Местный
 
Регистрация: 10.08.2010
Сообщений: 634
Сказал Спасибо: 22
Имеет 95 спасибок в 70 сообщенях
mira пока неопределено
По умолчанию

Возник вопрос умеет ли пк вызывать функи из приложения и наоборот как фс.
То у меня появилось подозрение на кривую многопоточность фса.
Тоесть когда выполняетса фс.execute если выполнить фс.callfunction из другова потока чето походу слетает порой
__________________
читернуть бы ништяг
mira вне форума   Ответить с цитированием
Старый 21.06.2011, 15:30   #34
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

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

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

Последний раз редактировалось supernewbie, 21.06.2011 в 15:30. Причина: Добавлено сообщение
supernewbie вне форума   Ответить с цитированием
Старый 24.06.2011, 11:18   #35
Местный
 
Регистрация: 10.08.2010
Сообщений: 634
Сказал Спасибо: 22
Имеет 95 спасибок в 70 сообщенях
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 чтоли или я мудаг?
__________________
читернуть бы ништяг

Последний раз редактировалось mira, 24.06.2011 в 11:20. Причина: Добавлено сообщение
mira вне форума   Ответить с цитированием
Старый 24.06.2011, 11:27   #36
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

delphi Код:
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
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
За это сообщение alexteam нажился спасибкой от:
Старый 24.06.2011, 21:14   #37
Местный
 
Регистрация: 10.08.2010
Сообщений: 634
Сказал Спасибо: 22
Имеет 95 спасибок в 70 сообщенях
mira пока неопределено
По умолчанию

Коротк и ясно

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

Последний раз редактировалось mira, 24.06.2011 в 21:14. Причина: Добавлено сообщение
mira вне форума   Ответить с цитированием
Старый 24.06.2011, 21:28   #38
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

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

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

Добавлено через 6 минут
ну в общем кактотак:
delphi Код:
hmod := PC.GetHandle(0, 'namespacename', true);   hfunc := PC.GetHandle(hmod, 'funcname', true);   pfunc := PP.GetAddress(hfunc);   TmyFunc(pfunc)(MyFuncParam);
при чем скрипт как таковой, можно сохранить в бинарке, но при этом незабыть приложить к нему все используемые с скрипта hfunc, чтобы потом при загрузке бинарки получить по ним валидные pfunc
__________________
L2Ext - project closed.

Последний раз редактировалось alexteam, 24.06.2011 в 21:28. Причина: Добавлено сообщение
alexteam вне форума   Ответить с цитированием
Старый 24.06.2011, 21:51   #39
Местный
 
Регистрация: 10.08.2010
Сообщений: 634
Сказал Спасибо: 22
Имеет 95 спасибок в 70 сообщенях
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');
.....
при любых параметрах показывает пустой бокс, строка попадающая в функцию всегда = ''
__________________
читернуть бы ништяг
mira вне форума   Ответить с цитированием
Старый 24.06.2011, 22:00   #40
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

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

delphi Код:
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"
в противном случае будут сюрпризы )
__________________
L2Ext - project closed.

Последний раз редактировалось alexteam, 24.06.2011 в 22:09.
alexteam вне форума   Ответить с цитированием
За это сообщение alexteam нажился спасибкой от:
Ответ

  CoderX :: Forums > Основные форумы > Программинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:20.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!