VPF::Сохранение процедуры в файл - Форум программистов

Чучмек

Дата 26.7.2008, 23:19 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 14
Всего: 41

Оказывается можно сохранить процедуру в файл, а потом загрузить и выполнить в другой программе
например:
сохранение:

Код


var 
h,Lpr:integer;
procedure proc([параметры]);// сохраняемая процедура
begin
....
//
....
end;
......
begin
h:=filecreate('proca.nax');
filewrite(h,(@proc)^,Lpr);
fileclose(h);
end

загрузка и выполнение:

Код


var 
h,Lpr:integer;
pr:procedure([параметры]);
begin
....
getmem(@pr,Lpr);
h:=fileopen('proca.nax',0);
fileread(h,(@pr)^,Lpr); // загрузка процедуры из файла
fileclose(h);
pr([параметры]); // вызов загруженной процедуры
.....
end;

Здесь Lpr - размер занимаемый процедурой в динамической памяти.
Сохранение имеет ряд ограничений, так похоже пруцедура должна использовать только локальные переменные .
Параметры в сохраняемой и вызываемой загруженной процедурах должны совпадать.

Теперь сам вопрос.
Как определить Lpr ?
Можно взять, конечно, заведомо избыток, или определить методом тыка. Но это ведь не выход.

--------------------

умную мысль держи при себе, а дурной - поделись с другими

Pini3n

Дата 27.7.2008, 09:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 23.7.2008

Репутация: нет
Всего: 1

Цитата(Чучмек @ 27.7.2008, 00:19

)

Как определить Lpr ?

getmem(@pr, 1000) - 1 mb

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »