exportieren von Strukturen aus DLLs...

[heiopei]

mittach,
so hab das jetzt mal alles umgesetzt, aber es tritt trotzdem noch eine av auf!.
(ich kann jetzt die infos erfolgreich übernehmen, aber bei anzeigen der info (strings) tritt wieder die av auf, bzw. nach der anzeige)

der code der dll:

Delphi-Quellcode:

const
  SpezielleKarten = 2;

type
  TSpezielle = record
    Name: PChar;     
    ResID: Word;       
  end;

  TSpezielleArray = array [1..SpezielleKarten] of TSpezielle;

  TKartenSammlungInfo = record
    Name: PChar;        
    Version: PChar;    
    AnzKarten: Byte;          
    AnzSpezielle: Word;     
    Spezielle: TSpezielleArray;   
  end;

  PTKartenSammlungInfo = ^TKartenSammlungInfo;

function DLLSammlungInfo(): PTKartenSammlungInfo; stdcall;
begin
  with result^ do
  begin
    Name := 'Beispiel';
    Version := '1.0.0';
    AnzKarten := 32;
    AnzSpezielle := SpezielleKarten;
    Spezielle[1].Name := 'Speziell1';
    Spezielle[1].ResID := 65534;
    Spezielle[2].Name := 'Speziell2';
    Spezielle[2].ResID := 65535;
  end;
end;

das hauptprogramm:

Delphi-Quellcode:

type
  TSpezielle = record
    Name: PChar;     
    ResID: Word;       
  end;

  TSpezielleArray = array of TSpezielle;
  TKartenSammlungInfo = record
    Name: PChar;
    Version: PChar;
    AnzKarten: Byte; 
    AnzSpezielle: Word;  
    Spezielle: TSpezielleArray;  
  end;

  PTKartenSammlungInfo = ^TKartenSammlungInfo;

  TDLLSammlungInfo = function(): PTKartenSammlungInfo; stdcall;


procedure KopiereInfo(QuelleInfo: PTKartenSammlungInfo; var ZielInfo: TKartenSammlungInfo);
var
  w: Word;
begin
  with ZielInfo do
  begin
    Name := QuelleInfo^.Name;
    Version := QuelleInfo^.Version;
    AnzKarten := QuelleInfo^.AnzKarten;
    AnzSpezielle := QuelleInfo^.AnzSpezielle;
    SetLength(Spezielle, AnzSpezielle);
    if AnzSpezielle > 0 then
      for w := 1 to AnzSpezielle do
        Spezielle[w - 1] := QuelleInfo^.Spezielle[w];
  end;
end;

function CheckSammlung(Sammlung: string): Boolean;
var
  KartenLib: THandle;                           //Handle auf die DLL
  DLLSammlungInfo: TDLLSammlungInfo;            //Addresse der Funktion
  Info: TKartenSammlungInfo;                    //Infos von der DLL
begin
  result := false;
  Sammlung := ExtractFilePath(ParamStr(0)) + PluginPfad + Sammlung;

  KartenLib := LoadLibrary(PChar(Sammlung));
  if KartenLib <> 0 then
  begin
    @DLLSammlungInfo := GetProcAddress(KartenLib, 'DLLSammlungInfo');
    if Assigned(DLLSammlungInfo) then
    begin
        KopiereInfo(DLLSammlungInfo, Info);
        DLLSammlungInfo := nil;
        MessageBox(0, PChar('Name: ' + Info.Name + #10 +
                            'Version: ' + Info.Version + #10 +
                            'Konvention: ' + Info.Konvention + #10 +
                            'Kartenzahl: ' + IntToStr(Info.AnzKarten) + #10 +
                            'Spezielle: ' + IntToStr(Info.AnzSpezielle) + #10 +
                            'Sp1: ' + Info.Spezielle[0].Name + ' / '  
                                    + IntToStr(Info.Spezielle[0].ResID) + #10 +
                            'Sp2: ' + Info.Spezielle[1].Name + ' / ' 
                                    + IntToStr(Info.Spezielle[1].ResID)
                            ), '', 0);
       result := true;
    end;
  end;
  FreeLibrary(KartenLib);
end;

woran liegts jetzt wieder,
danke für tipps,

heiopei

ps: ich hab also in erster linie das dyn. array umgangen, in dem ich in der dll ein statisches erzeuge und die größe als weiteren info-paramter mitgebe!