Форум: "Основная";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];
Вниз
Проблема с DLL опять Найти похожие ветки
← →
Nostradamus (2002-07-23 21:25) [0]Проблема: мне нужно передать с dll в прогу TResRec. Eже что угодно пробовал - не получается. И ShareMem в обоих uses есть и поинтер пытался передавать - постоянно при закритии программы выдёт Invalid Pionter Operation. Я уже понял что надо динамический массив таки убрать, но как то в голову не приходит как без него всё это дело передать. Подскажите что можно сделать.
type
TBought = record
fType : 0..1;
Index : Integer;
end;
type
TResRec = record
Variables : array [0..11] of Integer;
NewHS : array of TBought;
NewJob : Integer;
NewISP : Integer;
end;
← →
Случайный прохожий (2002-07-23 23:28) [1]Ну типа так:
procedure GetResRec(var P: TResRec);
begin
with P do
begin
NewHS:=...
Variables[5]:=...
....
end;
И вызываешь из эксешника
var
X:TResRec;
GetResRec(X);
И общий мем отдыхает :)
← →
Nostradamus (2002-07-23 23:42) [2]Интересная идея... надо попробовать
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c
