ShlObj: Implementierung der Interface-Methode IContextMenu

[Mavarik]

Hallo Leute!

E2291: {Winapi.}ShlObj: Implementierung der Interface-Methode IContextMenu:GetCommandString fehlt.

Ähhhh und jetzt?
Was ist zu tun?

Grüsse Mavarik

PS.: Ich glaube nicht mehr daran, dass auch nur einer ein altes & großes Projekt auf XE/XE2 umgebaut hat...Mit ist so weinerlich...

[CCRDude]

Was jetzt? Glaskugel auspacken und raten vielleicht?

Fehlt Sie denn nun, oder nicht?

Und da ich mich gestern mit genau jener rumgeschlagen habe: achte beid en Unicode-Flags auf den Datentyp, den Du an LPSTR übergibst!

PS: Kopf hoch, ist zwar viel Fleißarbeit, aber machbar

[Union]

Was hast Du gemacht? Wahrscheinlich mit Copy / Paste irgendwelchen Code übernommen. Ich schätze mal Dein Code sieht ca. so aus:

Delphi-Quellcode:

function GetCommandString(idCmd, uType: UINT; pwReserved: PUINT;
       pszName: LPSTR; cchMax: UINT): HResult; stdcall;

Wenn man sich dann die Definition dann anschaut stellt man fest dass die nicht mehr passt. idCmd ist nämlich jetzt als UINT_PTR definiert. Deshalb passte die Signatur nicht usw...

Zitat:

PS.: Ich glaube nicht mehr daran, dass auch nur einer ein altes & großes Projekt auf XE/XE2 umgebaut hat...Mit ist so weinerlich...

Doch doch, das geht. Gerade gestern fertig geworden. Muss natürlich noch komplett getestet werden. Hauptproblem waren die externen Komponenten (glücklicherweise nur 4).

[CCRDude]

Weil ich das in der MSDN nicht gefunden habe und Du Union Dich damit auszukennen scheinst: was ist eigentlich der Default-Rückgabewert, wenn man dort gar nichts macht?

Copy'n'Paste-Beispiele springen da zwischen S_OK und E_INVALIDARG.

(Nachtrag: Entschuldigung, jetzt doch gefunden )

[Mavarik]

Nein!

Einfach nur mit XE2 übersetzt.. Das ist ne Fehlermeldung die in Shlobj kommt...


Mavarik

[Union]

Was meinst Du mit "Nein"? Wie sieht der Source aus den Du versucht hast zu kompilieren?

[Mavarik]

Zitat von Union:

Was meinst Du mit "Nein"? Wie sieht der Source aus den Du versucht hast zu kompilieren?

Der Code:


  TDropContextMenu = class(TInterfacedComponent, IShellExtInit, IContextMenu) Mit D2007 compiliert das einwandfrei!

Grüsse Mavarik

[Mavarik]

Habs...

Dank Datas Beitrag...

Delphi-Quellcode:

{$IFDEF VER230}
    function GetCommandString(idCmd: UINT_PTR; uFlags: UINT; pwReserved: PUINT;
       pszName: LPSTR; cchMax: UINT): HResult; stdcall;
{$ELSE}
    function GetCommandString(idCmd, uType: UINT; pwReserved: PUINT;
      pszName: LPSTR; cchMax: UINT): HResult; stdcall;
{$ENDIF}

Grüsse Mavarik

[Union]

Wenn Du die Antworten hier lesen würdest, hättest Du es schon eine Woche früher gehabt

Zitat von Union:

idCmd ist nämlich jetzt als UINT_PTR definiert. Deshalb passte die Signatur nicht usw...

[Bernhard Geyer]

Zitat von Union:

Wenn Du die Antworten hier lesen würdest, hättest Du es schon eine Woche früher gehabt

Wie es aussieht ist auch der Parameter uFlags weggefallen.