Drag and Drop Component Suite 5.2 für XE4

[Wishmaster]

Hi. ich habe mir die XE4 zugelegt :thumb:
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.

[hoika]

Hallo,

ich würde

if not Assigned()

benutzen.


Heiko

[ThoPos]

Hallo zusammen,

ich stehe jetzt auch vor dem Problem, die Drag & Drop Suite für XE4 anzupassen. Dazu habe ich mir die Version für XE3 hier aus dem Forum heruntergeladen.

Nur bekomme ich die im Netz bekannten Fehlermeldungen:
[dcc32 Fehler] DragDropContext.pas(66): E2291 Implementierung der Interface-Methode IContextMenu3.HandleMenuMsg2 fehlt
[dcc32 Fehler] DragDropContext.pas(66): E2291 Implementierung der Interface-Methode IContextMenu2.HandleMenuMsg fehlt
[dcc32 Fehler] DragDropContext.pas(66): E2291 Implementierung der Interface-Methode IContextMenu.GetCommandString fehlt

Ich habe die Deklarationen verglichen und finde einfach keinen Fehler.

Hat jemand 'nen Tipp, wie man den Fehler auf die Spur kommen kann?

Gruß
Thomas

[Thomas_K]

Ich bin mal so frei und hoffe das ist OK so.

[ThoPos]

Hallo Thomas,

vielen Dank für die schnelle Hilfe. Ich glaube auch meinen Fehler erkannt zu haben: die Abfrage der CompilerVersion war noch für XE2.

Gruß

Thomas

[sh17]

https://github.com/landrix/The-new-D...ite-for-Delphi

[sh17]

Zitat:

Zitat von sh17 (Beitrag 1251589)

https://github.com/landrix/The-new-D...ite-for-Delphi

Update für Delphi XE7

Ich hab mal die IFDEF VERxx durch IF CompilerVersion ersetzt.

[sh17]

Neue Quelle

https://github.com/DelphiPraxis/The-...ite-for-Delphi

[mkinzler]

Oder direkt im Delphinus Packagemanager