hey, also Form1.MiniSC.MBMap.Obj ist hierbei ein JObjekt und wurde folgender maßen erzeugt :
Delphi-Quellcode:
cls := jvm.JniEnv.FindClass('
com/gdv/mapbuilder/MBMap');
if cls =
nil then
ShowMessage('
Klasse "MBMap" nicht gefunden');
ConstructorMid := jvm.JniEnv.GetMethodID(
cls, '
<init>', '
()V');
if ConstructorMid =
nil then
ShowMessage('
Konstruktor nicht gefunden');
Obj := jvm.JniEnv.NewObject(
cls, ConstructorMid, []);
if Obj =
nil then
ShowMessage('
Fehler beim erzeugen der Instanz');
soweit ich das gesehen habe ist es auch kein fehler aufgetreten .. MBMap wurde erzeug.
Die MBMenuBar (abstammung von der MenuBar in Java) wird nun erzeugt .. dafür muss ich diese MBMap übergeben
Delphi-Quellcode:
cls := jvm.JniEnv.FindClass('
com/gdv/mapbuilder/gui/MBMenuBar');
if cls =
nil then
ShowMessage('
Klasse "MBMenuBar" nicht gefunden');
ConstructorMid := jvm.JniEnv.GetMethodID(
cls, '
<init>', '
(Lcom/gdv/mapbuilder/MBMap;)V');
if ConstructorMid =
nil then
ShowMessage('
Konstruktor nicht gefunden');
Obj := jvm.JniEnv.NewObject(
cls, ConstructorMid, [Form1.MiniSC.MBMap.Obj]);
if Obj =
nil then
ShowMessage('
Fehler beim erzeugen der Instanz');
und bei der übergabe oder was auch immer kommt der fehler .. es könnte aber auch sein, dass der fehler nicht an der MBMap liegt , sondern ich einfach keine MenuBar ereugen kann, weil mir ein komponent fehlt .. oder weil ich keine Grafiken erzeugen kann ?! MBMenuBar = Menüleiste