Bonjour
Danbs une DLL je désir avoir une fonction pouvant exporter un un tableau de record tel que:
 
TmyTabRec = record
   Id: integer;
   PId: integer;
   Name: PChar;
end;
 
var
   TabRec: array[0..X] of TmyTabRec =
   (
      ( Id: 0; PId: -1; Name: 'Name1' ),
      ( Id: 1; PId: 0; Name: 'Name1' ),
      .../...
      ( Id: 2; PId: 1; Name: 'Name1' )      
   );
 
function exportMyTabRec: TmyTabRec; stdcall;
begin
   Result := TmyTabRec;
end;
 
exports
   exportMyTabRec;
 
puis dans mon prog je load la dll et la proc et désir fair:
 
procedure toto( sender: TObject);
var
 aArrayOfmyTabRec: TmyTabRec
begin
   aArrayOfmyTabRec := myProc;
end;
 
mais je léve une exception ... comment m'y prendre ?
Un exemple sera le blien venus.
Merci par avance de votre aide.