Hallo Horst, vielen Dank für Deine Unterstützung zu dieser Zeit.
Das was Du erzeugt hast sieht aber ziemlich identisch aus zu dem was ich Importiert und im Blog Angehängt habe. (MbnAPI_TLB.pas ich häng s nochmals dran, der Anhang hat sich leider in Meiner Anfrage ganz nach oben verflüchtigt. Importiert is es aus der WWANAPI.DLL die sich im System32 Verzeichnis befindet (UCM Extension
API for MBN Type Library) die gibt's auch in WIN10.
Das funktioniert auch alles lässt sich kompilieren etc.
Wie Referenziere ich aber nun die 3 wichtigsten Klassen mit denen der Einstieg beginnt ??
- IMbnConnectionManager
- IMbnInterfaceManager
- IMbnConnectionProfileManager,
Oder besser, wie übersetze ich die C## Zeilem richtig in Delphi ?
Code:
MbnInterfaceManager mbnInfMgr = new MbnInterfaceManager();
IMbnInterfaceManager infMgr = (IMbnInterfaceManager)mbnInfMgr;
IMbnInterface[] interfaces = (IMbnInterface[])infMgr.GetInterfaces();
IMbnInterface inf = interfaces[0];
MbnConnectionManager mbnConnMgr = new MbnConnectionManager();
IMbnConnectionManager conMgr = (IMbnConnectionManager)mbnConnMgr;
Ich habe folgendes versucht, es kommt aber bei "infMgr.GetInterfaces(iArrayData)" eine Schutzverletzung.
Code:
procedure TForm1.FormCreate(Sender: TObject);
Var MbnInfMgr : TMbnInterfaceManager;
infMgr : IMbnInterfaceManager;
CMBNInfMgr : MBNAPI_TLB.IConnectionPointContainer;
iArrayData : pSafeArray;
iLow, iHigh : Integer;
begin
CMbnInfMgr:=CoMbnInterfaceManager.Create ;
MbnInfMgr:=TMbnInterfaceManager.Create(self);
infMgr:=IMBnInterfaceManager(cMbnInfMgr);
GetMem(iArrayData,sizeOf(IMBNInterface));
infMgr.GetInterfaces(iArrayData) ;
SafeArrayGetLBound(iArrayData,1,iLow);
SafeArrayGetUBound(iArrayData,1,iHigh);
statusbar1.SimpleText:='Interface Mgr hat '+intToStr(iLow)+' bis '+intToStr(iHigh)+' Interfaces.';
end;
Ich komme hier nicht mehr weiter.