Проблема с 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);
И общий мем отдыхает :)

Интересная идея... надо попробовать

Проблема с DLL опять Найти похожие ветки