Альт
Альт
Подробная информация
- Имя пользователя
- Альт
- Присоединился
- Посещений
- 0
- Был на сайте
- Группы
- Members
Комментарии
-
Чуть ниже мне отвечали на этот вопрос. 'array of' в объявлении метода не поддерживается! Такие вещи надо объявлять как: AddMethod('function XXXX(Atributes : array): TObject',CallMethod); К администрации форума, а как насчет нормального фак…
-
Да действительно… проверил… собираем основную программу с рантайм пакетами… включая и этот… когда необходим подгружаем его передаем в PluginInit… fsGlobalUnit и RegisterClass, чтобы зарегистрировать в пакете все классы… и все работает Но только не …
-
Не получается package script_doa; {$R *.res} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCH…
-
Следовательно это происходит по причине For most applications, packages provide greater flexibility and are easier to create than DLLs. However, there are several situations where DLLs would be better suited to your projects than packages: You…
-
Да... конечно работает procedure TForm1.btnExecClick(Sender: TObject); begin with Script do begin Clear; Lines.Clear; Lines.AddStrings( ScriptMemo.Lines ); Parent := fsGlobalUnit; try //Уже создаю просто без dll …
-
Подскажите где я не прав Написал обертку… unit fs_doa; interface Uses DB, Variants, OracleData, Oracle, fs_iinterpreter; type TDOAFunctions = class private FGlobalUnit : TfsScript; ………….. public constructor Create( GlobalUnit : TfsS…
-
А что молчит доктор? С горем пополам поставил FastScript 1.6 на Delphi 7 SP1.1 А ничего не изменилось!!! На добавлении метода просто начинает тупо свопить. Хеееееееелп!!!
-
У вас совершенно не читабельный код… Var LocateOptions : TLocateOptions; … Begin … if ( MethodName = 'LOCATE' ) then Begin if ( VarIsArray( Params[2] )) then Begin LocateOptions := []; for i := 0 to VarArra…