Hallo zusammen,
gehe ich recht in der Annahme, dass hier beim Import etwas schief gelaufen ist?
OLE/
COM Viewer:
[
odl,
uuid(A80DEA53-B6BA-11D3-B3AC-00104B066E1A),
helpstring("IWMFileIO Interface"),
dual,
oleautomation
]
interface IWMFileIO : IDispatch {
[id(0x00000001), helpstring("method ExportOriginal")]
HRESULT ExportOriginal([in] VARIANT_BOOL fOverwrite);
[id(0x00000002), helpstring("method ImportOriginal")]
HRESULT ImportOriginal([in] VARIANT_BOOL fOverwrite);
[id(0x00000003), propget, helpstring("property aWMStream")]
HRESULT aWMStream([out, retval] IWMStream** ppIWMStream);
[id(0x00000003), propput, helpstring("property aWMStream")]
HRESULT aWMStream([in] IWMStream* ppIWMStream);
[id(0x00000003), propputref, helpstring("property aWMStream")]
HRESULT aWMStream([in] IWMStream* ppIWMStream);
[id(0x00000004), propget, helpstring("property bstrOriginalFileName")]
HRESULT bstrOriginalFileName([out, retval] BSTR* pVal);
[id(0x00000004), propput, helpstring("property bstrOriginalFileName")]
HRESULT bstrOriginalFileName([in] BSTR pVal);
[id(0x00000005), propget, helpstring("property aChunkSize")]
HRESULT aChunkSize([out, retval] long* pVal);
[id(0x00000005), propput, helpstring("property aChunkSize")]
HRESULT aChunkSize([in] long pVal);
[id(0x00000006), propget, hidden, helpstring("property aWMStreamEx")]
HRESULT aWMStreamEx([out, retval] IWMStreamEx** ppIWMStreamEx);
[id(0x00000006), propput, hidden, helpstring("property aWMStreamEx")]
HRESULT aWMStreamEx([in] IWMStreamEx* ppIWMStreamEx);
[id(0x00000006), propputref, hidden, helpstring("property aWMStreamEx")]
HRESULT aWMStreamEx([in] IWMStreamEx* ppIWMStreamEx);
};
Angelegte
Unit in Delphi:
Delphi-Quellcode:
// *********************************************************************//
// Schnittstelle: IWMFileIO
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {A80DEA53-B6BA-11D3-B3AC-00104B066E1A}
// *********************************************************************//
IWMFileIO =
interface(IDispatch)
['
{A80DEA53-B6BA-11D3-B3AC-00104B066E1A}']
procedure ExportOriginal(fOverwrite: WordBool);
safecall;
procedure ImportOriginal(fOverwrite: WordBool);
safecall;
function Get_aWMStream: IWMFileStream;
safecall;
procedure Set_aWMStream(
const ppIWMStream: IWMFileStream);
safecall;
procedure _Set_aWMStream(
const ppIWMStream: IWMFileStream);
safecall;
function Get_bstrOriginalFileName: WideString;
safecall;
procedure Set_bstrOriginalFileName(
const pVal: WideString);
safecall;
function Get_aChunkSize: Integer;
safecall;
procedure Set_aChunkSize(pVal: Integer);
safecall;
function Get_aWMStreamEx: IWMStreamEx;
safecall;
procedure Set_aWMStreamEx(
const ppIWMStreamEx: IWMStreamEx);
safecall;
procedure _Set_aWMStreamEx(
const ppIWMStreamEx: IWMStreamEx);
safecall;
property aWMStream: IWMFileStream
read Get_aWMStream
write Set_aWMStream;
property bstrOriginalFileName: WideString
read Get_bstrOriginalFileName
write Set_bstrOriginalFileName;
property aChunkSize: Integer
read Get_aChunkSize
write Set_aChunkSize;
property aWMStreamEx: IWMStreamEx
read Get_aWMStreamEx
write Set_aWMStreamEx;
end;
Wie kann ich dieses Problem beheben?
Gruß Steppo