Hi. ich habe mir die XE4 zugelegt
nun versuche ich verschiedene Komponente zu installieren.
eine davon ist die Drag and Drop Component Suite 5.2 die ich schon mal für XE2 angepasst hatte.
bei XE4 bekomme ich zwei Fatal Errors die ich mir nicht ganz erklären kann
erster Fehler "Incompatible types"
Delphi-Quellcode:
var
URLMONDLL: THandle = 0;
_CopyStgMedium:
function(
const cstgmedSrc: TStgMedium;
var stgmedDest: TStgMedium): HResult;
stdcall =
nil;
function CopyStgMedium(
const SrcMedium: TStgMedium;
var DstMedium: TStgMedium): boolean;
begin
if (URLMONDLL = 0)
then
begin
URLMONDLL := LoadLibrary('
URLMON.DLL');
if (URLMONDLL <> 0)
then
@_CopyStgMedium := GetProcAddress(URLMONDLL, '
CopyStgMedium');
end;
if (@_CopyStgMedium =
nil)
then // <<< [dcc32 Error] DragDrop.pas(2466): E2008 Incompatible types
raise Exception.Create(sNoCopyStgMedium);
Result := (Succeeded(_CopyStgMedium(SrcMedium, DstMedium)));
end;
hat jemand diese komponente erfolgreich in XE4 installieren können?
by the way ich lade die bass.dll auf dieselbe weise und ohne probleme
thx.