Objektinstanz an Hauptprogramm übergeben

[Neutral General]

Hi,

Die Situation ist die:

Ich erstelle in einer DLL ein Objekt. Und zwar kann das im Moment ein TBitmap oder ein T3DDataFile (eigene Klasse) Objekt sein.
Auf das T3D2File Objekt hat das Hauptprogramm durch das IFileFormat Interface Zugriff. Und somit auch auf die Funktion GetData.

Übergebe ich bei GetData.Data ein TBitmap, so kommt das auch heil im Hauptprogramm an, aber meine eigene Klasse macht da immer Ärger -.- Kann im Hauptprogramm nicht vernünftig drauf zugreifen.

Habe schon im Forum gelesen das es immer so ein Problem ist Objektinstanzen von der DLL ans Hauptprogramm weiterzugeben, hab aber leider keine Lösung gefunden.

ShareMem hab ich sowohl in der DLL als auch im Hauptprogramm eingebunden.

Delphi-Quellcode:

// DLL Code
PRawData = ^TRawData;
TRawData = record
  DataType: Byte;
  Data: Pointer;
end;

IFileFormat = Interface(IUnknown);
  ['{1CF74E69-391A-4BF4-8F0D-E5C958D21196}']
  function GetData: PRawData;
end;

TFileFormat = class(TInterfacedObject,IFileFormat);

T3D2File = class(TFileFormat);

function T3D2File.GetData: PRawData;
begin
  inherited GetData;
  New(Result);
  Result.DataType := 1;
  Result.Data := @FData; // FData: T3DDataFile;  || T3DDataFile = class
end;

Gruß
Neutral General

[Apollonius]

Was bedeutet DataType? Und erwartet das Hauptprogramm einen Objekt-Zeiger (=Klasse), einen Zeiger auf einen Objekt-Zeiger (so hast du es jetzt) oder einen Interface-Zeiger in Data?

[Neutral General]

Hauptprogramm:

Delphi-Quellcode:

procedure TForm1.tbtnOpenClick(Sender: TObject);
var newf: IFileFormat;
    pData: PRawData;
begin
  if dlgOpenFile.Execute then
  begin
    newf := ExtList.GetFormat(ExtractFileExt(dlgOpenFile.Filename)); // Interface bekommen
    if not Assigned(newf) then
      exit;
    newf.LoadFromFile(PChar(dlgOpenFile.Filename)); // Datei laden
    pData := newf.GetData; // Datei-Daten erhalten
    case pData^.DataType of
      dtImage: begin
                 with TForm2.Create(Application) do
                 begin
                   Image1.Picture.Bitmap := PBitmap(pData.Data)^; // Ich weiß, ist zu umständlich aber jetzt egal
                   Caption := dlgOpenFile.Filename;
                 end;
               end;
      dt3D: with TForm3.Create(Application) do
            begin
              A3DFile := P3DDataFile(pData.Data)^;
            end;
    end;
  end;
end;

[Apollonius]

Ich sehe hier erstmal keinen Fehler, aber in so einer Situation kann man doch wunderbar debuggen. Was für einen Fehler erhältst du denn an welcher Stelle?
Ich habe noch nie erlebt, dass bei der Übergabe von Objektinstanzen von DLLs an das Hauptprogramm Probleme entstehen.

[Neutral General]

Naja ich will diese Daten dann auf Form3 mit OpenGl darstellen.

Delphi-Quellcode:

type
  TForm3 = class(TForm)
  // [...]
  public
  // [...]
    A3DFile: T3DDataFile;
    procedure Render;
  end;

procedure TForm3.Render;
var i,j: Integer;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glLoadIdentity;
    Glbegin(GL_TRIANGLES);
      for i:= 0 to A3DFile.Meshes.Count-1 do // beim Debuggen: A3DFile.Meshes.Count --> inaccessible value --> AV
      begin
        for j:= 0 to A3DFile.Meshes[i].Faces.Count-1 do
        begin
          glVertex3f(A3DFile.Meshes[i].Faces[j].A^.x,
                     A3DFile.Meshes[i].Faces[j].A^.y,
                     A3DFile.Meshes[i].Faces[j].A^.z);
          glVertex3f(A3DFile.Meshes[i].Faces[j].B^.x,
                     A3DFile.Meshes[i].Faces[j].B^.y,
                     A3DFile.Meshes[i].Faces[j].B^.z);
          glVertex3f(A3DFile.Meshes[i].Faces[j].C^.x,
                     A3DFile.Meshes[i].Faces[j].C^.y,
                     A3DFile.Meshes[i].Faces[j].C^.z);
        end;
      end;
    glend;
  SwapBuffers(DC);
end;

Ach ja: An OpenGL liegts nicht. OpenGL funktioniert und ist richtig initialisiert etc.

[Apollonius]

Mit Debuggen meinte ich eigentlich, mal zu überprüfen, ob die Zeiger in der DLL und im Hauptprogramm übereinstimmen.
FData.Meshes existiert (man erlebt manchmal die seltsamsten Sachen)?

[Neutral General]

Hi,

Ok die Zeiger stimmen nicht überein aber Meshes existiert trotzdem irgendwie immer o.O (Assigned(A3DFile.Meshes) = true)

[Apollonius]

Welche Zeiger stimmen nicht überein, und ab wann? F7 kann wahre Wunder wirken.

[Neutral General]

Hi,

So, was ich jetzt durch Extreme-Debugging herausgefunden habe: (o.O)

Delphi-Quellcode:

case pData^.DataType of
  dtImage: // ...
  dt3D: with TForm3.Create(Application) do
        begin
          A3DFile := pData.Data; // Hier ist noch ALLES in Ordnung
                                 // Objekt ist erfolgreich ins Hauptprogramm gekommen
        end;
end;

Delphi-Quellcode:

procedure TForm3.Render;
var i,j: Integer;
begin
  // Hier stimmt zwar noch der A3DFile-Pointer aber der Pointer auf Meshes ist vollkommen falsch.
end;

:wiejetzt:

[Apollonius]

Es kann sein, dass dir durch die Interfaces etwas zerschossen wird. Ist T3D2File von TInterfacedObject abgeleitet? Dann wird newf vermutlich nach TForm1.tbtnOpenClick freigegeben (durch die Referenzzählung). Du solltest das Objekt am Leben erhalten, indem du es in einem Feld speicherst.