Zugriffsverletzung beim 2. Aufruf von Interface Methode

[Blup]

Was passiert den bei Load, PlgInstance und Unload?

Das Interfaceobject darf bei Unload noch nicht freigegeben werden. Innerhalb von Prozeduren/Methoden verwendete Interfaces werden möglicherweise erst beim Verlassen oder bei erneuter Zuweisung eines anderen Interfaceobject freigegeben.

Meine Vermutung, der Compiler erzeugt daraus im Prinzip das:

Delphi-Quellcode:

   DummyInterfaceVariable := nil;
   {Schleife begin}
      Load; // hier wird das Interface erstellt
      try
        if Assigned(DummyInterfaceVariable) then
          DummyInterfaceVariable._Release;  // <- hier knallts beim 2.Durchlauf

        DummyInterfaceVariable := PlgInstance;
        if Assigned(DummyInterfaceVariable) then
          DummyInterfaceVariable._AddRef;

        InfoSplit := DummyInterfaceVariable.GetFileInfoMulti(Split);
      finally
        Unload(True); // <- hier wird das Object vermutlich unzulässig freigegeben
        Split := nil;
      end;
   {Schleife end}
   if Assigned(DummyInterfaceVariable) then
     DummyInterfaceVariable._Release; // <- hier könnte es schon bei nur einem Durchlauf

[Uwe Raabe]

Was ist TData?

[WorstNightmare]

In Load() wird nur das Interface geholt
FPlgInstance := FHosterPlg.CreateInstance(Link);

CreateInstance wird auf die DLL weitergeleitet, wo einfach Result := TPlugin.Create gemacht wird.

In Unload wird anders als man denken könnte das Interface nicht freigegeben sondern es passieren andere Dinge die hier nicht von Bedeutung sind.

PlgInstance implementiert IDownload und leitet alle Aufrufe (z.B. GetFileInfoMulti) letztendlich auf IDownloadPlugin weiter.

Zitat:

Was ist TData?

Internes Verwaltungsobjekt welches das Interface hält.

[Blup]

Um den Fehler einzugrenzen würde ich erst mal so ändern:

Delphi-Quellcode:

var
  plugin: IDownloadPlugin;
{...}
  plugin := TData(FHosterLinks[Hoster][0]).PlgInstance;
  InfoSplit := plugin.GetFileInfoMulti(Split);
  plugin := nil;

Beim "Kopieren" der Infos werden ja nur neue Zeiger auf die jeweiligen TFileInfo-Strukturen angelegt. Ist sichergestellt das diese Daten auch über die gesamte Gültigkeit von "Infos" existieren und nicht überschrieben werden?

[WorstNightmare]

Zitat:

Beim "Kopieren" der Infos werden ja nur neue Zeiger auf die jeweiligen TFileInfo-Strukturen angelegt. Ist sichergestellt das diese Daten auch über die gesamte Gültigkeit von "Infos" existieren und nicht überschrieben werden?

Ich denke es wird nichts ausgeführt was diese Daten löschen würde, es sei denn das geschieht wenn ich InfoSplit := nil setze nachdem alle Zeiger nach "Infos" kopiert wurden. Denn wenn ich nur die Zeile rausnehme geht ja witzigerweise alles. Ich weiß aber nicht warum das dann den 2. Durchgang beeinflusst und nicht erst knallt wenn ich dann auf Infos wieder zugreifen möchte und die FileInfos weiterverarbeite...