[nonVCL]Drag&Drop nach Explorer will nicht (AV)

[rollstuhlfahrer]

Schade. Deine Routine funktioniert leider nur für die falsche Richtung. Ich will explizit Dateien aus meinem Programm herausziehen können (1 Datei) und nicht reinfallen lassen. Das Reinfallen-lassen soll über einem Explorer-Fenster funktionieren, deshalb auch der Titel nach Explorer nicht von Explorer.

Bernhard

[EWeiss]

Zitat von rollstuhlfahrer:

Schade. Deine Routine funktioniert leider nur für die falsche Richtung. Ich will explizit Dateien aus meinem Programm herausziehen können (1 Datei) und nicht reinfallen lassen. Das Reinfallen-lassen soll über einem Explorer-Fenster funktionieren, deshalb auch der Titel nach Explorer nicht von Explorer.

Bernhard

Ohh sorry.. hab da was überlesen

gruss

[Assarbad]

Moin,

also mir fällt nur auf, daß der Code rund um die fragliche Stelle etwas seltsam aussieht:

Delphi-Quellcode:

// Wozu eigentlich? Ist doch ohnehin nur ein Pointer ...
  p := AllocMem(SizeOf(PItemIDList));
  // Der Teil ist klar
  // Wenn p hier nil ist und das Ding erfolgreich
  // ist, wird in p der Pointer zurückgegeben.
  // *Dein* Wert aus AllocMem ist dann wech ...
  OleCheck(Folder.ParseDisplayName(0, nil, PWideChar(WideString(FileName)), chEaten, p, dwAttributes));

  // yaddayadda ...
  OleCheck(Folder.GetUIObjectOf(0, 1, p, IDataObject, nil, Pointer(Result)));

  // Freigeben ala Shell
  if p <> nil then
    Malloc.Free(p);
  // Wozu nochmal?
  // Wert von p ist hier ungültig, ist aber
  // auch nicht der Wert den AllocMem vergeben
  // hat ...
  FreeMem(p); // <-- AV hier

  Malloc.Free(FolderPidl);

Kommentare inline.

[rollstuhlfahrer]

OK, hab den Fehler gefunden, nachdem ich bei jedem Statement auch mal wirklich den Rückgabewert geprüft hatte. Dann kam irgendwann die Meldung "CoInitialize wurde nicht aufgerufen", obwohl das genau so und direkt vor der Drag-Operation geschah (sogar mehrfach).
Das Problem an der Fehlermeldung ist aber, dass nicht CoInitialize gemeint ist, sondern OleInitialize.

Nach dessen Aufruf geht jetzt alles wie gewünscht.

Woher das AllocMem kommt ist auch einfach zu erklären: Das war vorher eine Funktion, mit der man mehr als eine Datei draggen kann. Da ich diese Funktionalität sowie TStrings nicht brauche, hatte ich die Schleife herausoperiert (allerdings nicht vollständig, wie ich feststellen musste, danke Assarbad dafür).

Bernhard

[Assarbad]

Danke für den Hinweis mit OleInitialize. Mir war dieser feine Unterschied vorher garnicht so bewußt. Da ja irgendwann OLE "umbenannt" wurde, ging ich implizit immer von zu CoInitialize identischer Funktionalität aus.

Wieder etwas gelernt.

[EWeiss]

NONVCL...

Habe jetzt auch das problem aber nicht nach Explorer sondern in ein anderes Fenster meiner Anwendung.
In dem einen habe ich einen Button mit nem Icon drin von diesen möchte ich den pfad auf den Button des andere Fensters ablegen.

Also der Pfad woher das Icon aus dem ersten Fenster erstellt wurde.

Kann man deine Unit dementsprechend anpassen ?
Oder hat jemand ne andere Idee? Wobei es aber über dragdrop realisiert werden soll.

Alternativ könnte ich ja mit SendMessage arbeiten aber das möchte ich nicht.

ach dann halt nicht

gruss