Hallo,
komisches Problem aus der Ecke "Gestern gings noch..."
Ich habe eine C++ Anwendung die ich aus einem Delphi Tool aus via VBA Script
steuere. Ging auch ewig. Nun kommt beim Aufruf
Musicplayer.vbaopen(Playlist.Items[Playlist.ItemIndex]);
ein "Ausnahmefehler vom Server".
In der C++ dann beim Aufruf vbaopen mal eine Messagebox eingebaut -> der übergebene Filename
kommt sauber an.
PC ist ein Win11, Anwendung Delphi XE8 / Visual Studio 2015.
Wie gesagt , "gestern gings noch...". Schiebe es aktuell auf Win11.
Oder weiss jemand mehr ??
Delphi-Quellcode:
Codeschnipsel C++
DISP_FUNCTION(CMain,"VBAOpen", VBAOpen, VT_EMPTY,VTS_BSTR)
void CMain::VBAOpen(LPCTSTR lpFileName)
{
OnOpenDocument(lpFileName);
}
Codeschnipsel Delphi:
Musicplayer:=CreateOLEObject('Musicplayere.Document');
...
Musicplayer.vbaopen(Playlist.Items[Playlist.ItemIndex]);
Gruss
Calli