Servus,

eine Frage: sind eigentlich Probleme von TShellDropper unter Windows 8.1 bekannt? Ich verwende die Komponente und bis Windows 8 läuft alles glatt und ich kann Dateien vom Explorer auf meine Anwendung ziehen, aber unter Windows 8.1 enthält die Fileliste zwar den richtigen Dateinamen, aber einen falschen Pfad?!

So verwende ich den Shelldropper:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  lDropControl: TDropControl;
begin
  Si.Connections := 'file(filename=log.sil)';
  si.Enabled := true;

  // Via ShellDropper
  FDropTarget := TShellDropper.Create(self);
  FDropTarget.OnDragEnter := HandleExternalDragDropEnter;
  FDropTarget.OnDrop := HandleExternalDragDrop;

  lDropControl := TDropControl.Create(FDropTarget.Controls);
  lDropControl.Control := self;
  lDropControl.Enabled := true;
end;

und in HandleExternalDragDropEnter wird geprüft, ob die Dragoperation angenommen werden soll (ja, wenn die Datei existiert und der Typ stimmt):

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.HandleExternalDragDropEnter(Sender: TObject; const DropRec: TDropRec;
    var Accept: Boolean);
var
  i: Integer;
  nFileExtType, nFileType: TIOFileType;
  strExt: string;
  strFilename: string;
begin
  // Erst einmal nichts zulassen
  Accept := False;

  memResult.Lines.Add(Format('# Files: %d', [DropRec.Files.Count]));

  // Nun Test auf Dateien
  for i := 0 to DropRec.Files.Count - 1 do
  begin
    strFilename := DropRec.Files[i];
    memResult.Lines.Add(strFilename);

    if FileExists(strFilename) then
    begin
      // Abhängig vom Format der Datei diese akzeptieren
      strExt := ExtractFileExt(strFilename);
      nFileExtType := IEExtToFileFormat(strExt);
      nFileType := FindFileFormat(strFilename);

      // PDF akzeptieren oder Grafiken, wenn bereits ein Dokument geladen ist)
      Accept := Accept or (nFileExtType = ioPDF) or ((nFileType <> ioUnknown) );

      if Accept then
        memResult.Lines.Add('Accepted')
      else
        memResult.Lines.Add('Not accepted')
    end
    else
      memResult.Lines.Add('File not available');
  end;

end;

Hier bekomme ich nun immer gemeldet, daß die Datei nicht vorhanden wäre. Ist sie auch nicht, denn DropRec.Files[i] enthält nun zwar den richtigen Dateinamen, als Pfad wird aber immer das TEMP Verzeichnis des Benutzers verwendet:
d:\data\testfile.txt --> DropRec.Files[0] = %TEMP%\testfile.txt

Wie gesagt, das passiert nur unter Windows 8.1! Kennt da jemand zufällig die Ursache? Bzw. wie man das beheben kann?

Danke, Uli

Moin zusammen ...

zuerst mal sorry, dass ich eine schon etwas ältere Frage ausgrabe und versuche darauf zu antworten. Bei der Anwendung dieser nützlichen Unit bin ich nämlich ebenfalls auf dieses Problem gestoßen. Darauf hin habe ich mir mal den entsprechenden SourceCode angesehen und eine Änderung vorgenommen, die das Problem behebt. Per Zufall würde ich mal sagen ... Da ich jedoch glaube, das es das nicht sein kann bitte ich Euch um Eure Meinung dazu.
Folgende Änderung habe ich in der Funktion IsFileDescriptor vorgenommen: (Zeile: 624)

markieren

Code:

  if dataObj.GetDataHere(FormatDesc, MediumDesc) = S_OK then // vorher: nur GetData

Diese Veränderung bewirkt, dass der darauf folgende try ... finally Block wieder durchlaufen, statt das er über Exit verlassen wird und nun stimmt auch unter Win8.1 der Pfad wieder. Joa, läuft ja könnte man sagen, aber bevor ich hier irgend einen Quatsch mache ... und ggf. sind ja auch noch andere Änderungen notwendig. Die meines Wissens aktuelle (UNVERÄNDERTE) Version v1.65 der ShellDropper.pas habe ich diesem Beitrag mal mit angehängt.

Danke schon mal für Eure Ideen.