Komponenten registrieren

[jaenicke]

Ein kurzer Blick zeigt, dass das Unicodeprobleme sind. Die Unit lässt sich so ja auch gar nicht kompilieren. Zuerst müssen die Verben in Ansizeichen geändert werden. Wie du mit der Unit überhaupt bis zur Schutzverletzung gekommen bist, ist mir ein Rätsel... (Hast du da vielleicht eine falsche Version gepostet? ) Änderungen sind markiert...

Delphi-Quellcode:

function ContextMenuCommand(ContextMenu: IContextMenu; idCmd: Cardinal): string;
var
  ZVerb: array[0..255] of AnsiChar; // changed
begin
  ZVerb[0] := #0;
  if ContextMenu.GetCommandString(idCmd, GCS_VERB, nil,
    ZVerb, SizeOf(ZVerb)) = S_OK then
    Result := ZVerb
  else
    Result := '';
end;

procedure ContextMenuVerb(Handle: THandle; ContextMenu: IContextMenu; Verb: PChar);
var
  CMInvokeCommandInfo: TCMInvokeCommandInfo;
  AnsiVerb: AnsiString; // added
begin
  FillChar(CMInvokeCommandInfo, SizeOf(CMInvokeCommandInfo), 0);
  with CMInvokeCommandInfo do
  begin
    cbSize := SizeOf(CMInvokeCommandInfo);
    hwnd := Handle;
    AnsiVerb := AnsiString(Verb);  // added
    lpVerb := PAnsiChar(AnsiVerb);  // changed
    nShow := SW_SHOWNORMAL;
  end;
  ContextMenu.InvokeCommand(CMInvokeCommandInfo);
end;

procedure ContextMenuHint(ContextMenu: IContextMenu; Msg: TWMMenuSelect);
var
  idCmd: Cardinal;
  ZVerb: array[0..255] of AnsiChar; // changed
  S: string;
begin

Dann erst kommt die Schutzverletzung. Die wiederum wird genau an der richtigen Stelle angezeigt, so dass das Problem schnell zu sehen ist. Da hat der Autor einen hässlichen Fehler gemacht:

AS_ShellPackXE2.png

Wie man sehen kann passiert der Fehler beim Durchiterieren der ID-Liste. Wenn man dann mal schaut wie dies passiert, sieht man auch warum es knallt:

Delphi-Quellcode:

function NextPIDL(PIDL: PItemIDList): PItemIDList;
begin
  Result := PIDL;
  Inc(PChar(Result), PIDL^.mkid.cb);
end;

Hier wurde als schmutziger Trick PChar benutzt um Inc auf den Pointer anwenden zu können... PByte gab es damals zwar noch nicht, aber das ist deshalb nicht weniger schlecht. Jedenfalls musst du dort nur PChar in PByte ändern, damit wirklich die Anzahl Bytes weitergegangen wird und nicht doppelt so viel...

[Informatik2012]

Das mit dem PAnsiChar hab ich gemacht. Aber den Rest hätte ich nie im Leben sehen können. Die Unit ist wie gesagt von Ariesoft geschrieben. Und eigentlich für Delphi 6 oder ähnliches gedacht.
ich schau mal was passiert wenn ich das umänder. Die stelle mit dem PDIL hatte ich auch schon beim debuggen gefunden aber konnte nichts damit anfangen.
Und noch eine Frage. Macht es einen großen unterschied ob ich die Komponenten als Package reinlade oder einfach nur mit den (geänderten) Units arbeite und die Objekte mithilfe von Quelltext erstelle?

[Informatik2012]

Es funktioniert (:
Danke danke danke.

[jaenicke]

Zitat von Informatik2012:

Und noch eine Frage. Macht es einen großen unterschied ob ich die Komponenten als Package reinlade oder einfach nur mit den (geänderten) Units arbeite und die Objekte mithilfe von Quelltext erstelle?

Es hat beides Vor- und Nachteile. Wenn du die Komponente über Packages installierst, ist der Aufwand beim Einrichten einer neuen Delphiinstallation oder bei der Weitergabe des Codes umständlicher.
Wenn du die Dateien dynamisch erstellst, hast du nur einmal etwas mehr Code zu schreiben, danach aber deutlich weniger Mühe.

Letztlich muss das jeder für sich selbst entscheiden wann man welche Methode benutzt. Ich persönlich erstelle Komponenten, die ich nur selten verwende, lieber manuell. Komponenten, die anderen Komponenten in Eigenschaften zugeordnet werden (Datenbankkomponenten, ...) oder solche, die ich oft verwende, installiere ich in der Regel in Packages und benutze sie visuell.