gemacht, danke aber jetzt kommt leider das :
[Error] Unit1.pas(74): Undeclared identifier: 'OnStartBinding'
[Error] Unit1.pas(74): Undeclared identifier: 'GetPriority'
[Error] Unit1.pas(74): Undeclared identifier: 'OnLowResource'
[Error] Unit1.pas(74): Undeclared identifier: 'OnProgress'
[Error] Unit1.pas(74): Undeclared identifier: 'OnStopBinding'
[Error] Unit1.pas(74): Undeclared identifier: 'GetBindInfo'
[Error] Unit1.pas(74): Undeclared identifier: 'OnDataAvailable'
[Error] Unit1.pas(74): Undeclared identifier: 'OnObjectAvailable'
[Error] Unit1.pas(74): Undeclared identifier: 'QueryInterface'
[Error] Unit1.pas(74): Undeclared identifier: '_AddRef'
[Error] Unit1.pas(74): Undeclared identifier: '_Release'
[Error] Unit1.pas(92): Undeclared identifier: '_AddRef'
...
...
... geht noch lang weiter ;-(
und das alles beim code:
Delphi-Quellcode:
private
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
function OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult; stdcall;
function GetPriority(out nPriority): HResult; stdcall;
function OnLowResource(reserved: DWORD): HResult; stdcall;
function OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; stdcall;
function OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult; stdcall;
function GetBindInfo(out grfBINDF: DWORD; var bindinfo: TBindInfo): HResult; stdcall;
stdcall;
function OnObjectAvailable(const iid: TGUID; punk: IUnknown): HResult; stdcall;
public
end;
cDownloadStatusCallback = class(TObject,IUnknown,IBindStatusCallback)
end;