Скачать: CL | DM;

Проблема с 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c