Dateinamen in Fenster Droppen

[Schwedenbitter]

Hallo,

ich möchte gern einen Vorgang automatisieren. Bei uns ist es erforderlich, pdf-Dateien mittels Drag & Drop z.B. vom Explorer in ein Programm zu ziehen. Die entsprechenden Dateien bzw. Dateinamen sind mir bekannt. WinSpy sagt mir leider nur, dass das Ziel ein „SunAwtFrame“ ist. Das scheint etwas mit Java zu tun zu haben. Wobei auch die irgendwie den Empfang des Drag & Drop implementieren müssen.

Ich würde jetzt gern von meinem Programm aus dieses Programm starten und die - mir bekannten (Siehe oben) - Dateien dort einfügen.

Ich habe natürlich hier schon das eine oder andere zu dem Thema gefunden. Das meiste scheint sich aber damit zu beschäftigen, Dateien mit einem Delphi-Programm anzunehmen. Ich würde sie aber gern „abgeben“. Wo bzw. mit welchen Suchworten kann ich mich idealer Weise diesem Thema nähern?

[Redeemer]

Hast du dich mal mit den DragFiles von Angus Johnson beschäftigt? Damit kann man ein Shell-Drag-Event starten, müsste man sie nur irgendwie am Ziel droppen.

[Schwedenbitter]

Zitat:

Zitat von Redeemer (Beitrag 1393329)

Hast du dich mal mit den DragFiles von Angus Johnson beschäftigt? Damit kann man ein Shell-Drag-Event starten, müsste man sie nur irgendwie am Ziel droppen.

Auch.
Die Demo zu

Delphi-Quellcode:

WM_DROPFILES

habe ich mir angesehen und auch dieses Beispiel und dieses Beispiel.
In der Theorie muss ich "nur" so etwas ähnliches wie das hier (nicht funktionierend) tun:

Delphi-Quellcode:

procedure TFormMain.SpeedButton1Click(Sender: TObject);
var
   wndMain   : HWND;
   wndList   : TStringList;
   FilesHandle: THandle;
begin
   wndMain := FindWindow('TFormMain','WM_DROPFILES demo');
   if (wndMain <> 0) then
   begin
      wndList:= TStringList.Create;
      try
         wndList.Add('aFile.txt');
         FilesHandle:= ConvertFilesToShellIDList('d:\', wndList);
         SendMessage(wndMain, WM_DROPFILES, FilesHandle, 0);
      finally
         wndList.Free;
      end;
   end;
end;

Allerdings liegen Theorie und Praxis und hier auch mein Verständnis manchmal etwas auseinander. Mich wundert auch, dass ich im www kein Beispiel zu diesem Thema finde. Ich kann mir nicht vorstellen, der einzige weltweit mit diesem Problem zu sein. Es kann doch eigentlich nur daran liegen, dass ich mit den falschen Schlagworten suche.
Daher ja meine Frage...

[EWeiss]

vielleicht nach ConvertFilesToShellIDList suchen?

gruss

[EWeiss]

Zitat:

Ich habe natürlich hier schon das eine oder andere zu dem Thema gefunden. Das meiste scheint sich aber damit zu beschäftigen, Dateien mit einem Delphi-Programm anzunehmen. Ich würde sie aber gern „abgeben“. Wo bzw. mit welchen Suchworten kann ich mich idealer Weise diesem Thema nähern?

Irgendwie verstehe ich nicht was du meinst mit abgeben.
bsp.

Ich habe ein Video.
Wenn ich dieses jetzt vom Explorer auf mein Icon in meinem Prog.. OTTB ziehe dann öffnet sich das Programm zu dem dieses Icon gehört
und spielt die Datei ab die ich mit Drag und Drop auf das Icon aus einer anderen Anwendung(OTTB) gedropt habe.

Ist es das was du meinst?

gruss

[hoika]

Hallo,
nein,
er will Dateien, dessen Pfad/Name bekannt ist, einem anderen Programm (Java?) automatisch per Drag&Drop schicken.

Etwa so:
http://www.delphi.longzu.net/viewthr...tra=page%3D121

[EWeiss]

Ok.. Habe es dann doch falsch verstanden.
Danke.

gruss

[Schwedenbitter]

Zitat:

Zitat von hoika (Beitrag 1393420)

...
Etwa so:
http://www.delphi.longzu.net/viewthr...tra=page%3D121

Genau. Etwa so. Danke erstmal für die Antworten!

Nach der Grippewelle habe ich mir den Code angesehen. Egal was ich mache, die Dateinamen kommen zwar an, werden aber auseinandergepflückt. Kurz gesprochen kommt jedes Zeichen extra an. Um das zu verdeutlichen, habe ich einen Screenshot sowie meine Demos angehängt (ausnahmesweise auch als exe-Dateien, damit man nicht z.B. den Empfänger kompilieren muss).
Dass es am Empfänger liegt, schließe ich aus. Denn wenn man z.B. vom Desktop Dateien auf ihn dropt, werden die korrekt angezeigt.

Ich habe die Vermutung, dass es am Unterschied zwischen AnsiString und WideString liegt. Ein simples Umdeklarieren hat aber leider nichts gebracht. Ich habe die Strings einzeln zerlegt, vorher in ein String umgewandelt etc. Nur leider bringt das alles nichts, so dass ich mal wieder auf dem sprichwörtlichen Schlauch stehe.

Hat noch jemand Ideen?

[HolgerX]

Hmm..

(Nur mal über den Source geschaut..)

Dir ist schon bewust, das 'S : String;' immer noch ein WideString (Ab D2009/D2010) ist?
Da müsste schon 'S : AnsiString;' stehen, damit aus dem Wide/Unicodestring ein AnsiString wird..
;)

Edit
Unter D6 kompiliert funktioniert dein Sender, aber hier ist ein String = AnsiString ;)

[Schwedenbitter]

Zitat:

Zitat von HolgerX (Beitrag 1395486)

Dir ist schon bewust, das 'S : String;' immer noch ein WideString (Ab D2009/D2010) ist?

Nö :lol: Aber jetzt schon.
Mit Typecast klappt es nun tatsächlich. Danke!

Ich habe bloß das Problem, dass der SecSigner und/oder Java hart zu sein scheint. Ich schaffe es nicht, meine Dateinamen in diesen zu droppen. Ich habe auch ein Delphi Programm gefunden, das eine Mischung aus WinSpy und meinem Sender ist. Auch mit diesem kommt nichts dort an.
Scheinbar dann doch alles für die Katz :evil:

[HolgerX]

Hmm...

Zitat:

Zitat von Schwedenbitter (Beitrag 1395491)

Mit Typecast klappt es nun tatsächlich. Danke!

:shock:

Typecast? Oder hast Du aus S : String; einfach S : AnsiString; gemacht ?

[himitsu]

Es gibt mehrere Varianten für Drag&Drop
z.B. Message (WM_DROPFILES) oder COM-Interface
und dann gibt es auch noch das Drag&Drop, was in der VCL eingebaut ist, und das nur innerhalb von Delphi-Anwendung funktioniert.

Manche Programme nehmen alles an oder nur Eins von Beiden.
Merkt man z.B. schön, beim Drag&Drop auf fremden Programmen ins Eigene implementieren möchte. (Explorer, Thunderbird oder MS Outlook ... Explorer kann Alles, Thunderbird nimmt die Messages und Outlook das Interface)
und beim Interface gibt es auch wieder mehrere Möglichkeiten, wo wieder mehreres gleichzeitig oder immer zufällig nur das genutzt wird, was dein Programm grade nicht implementiert hat :stupid:

[HolgerX]

Hmm..

Ein weiterer Fehler ist die Verwendung von DragInfo!
DragInfoW führt bei Verwendung mit Notepad als Ziel dazu, dass Notepad meldet, die Datei nicht zu finden.

Seitens MS ist hier DROPFILES zu verwenden.
https://msdn.microsoft.com/de-de/lib...sktop/bb773269

Hiermit können ANSI wie WideString Filenamen verwendet werden (mit fWide = True für WideString).

Delphi-Quellcode:

type
// DROPFILES structure
  PDropFiles = ^_DROPFILES;
  _DROPFILES = record
    pFiles: DWORD;        { init with SizeOf(_DROPFILES) }
    pt: TPoint;
    fNC: BOOL;
    fWide : BOOL
  end;
  TDropFiles = _DROPFILES;

Mit meiner angepassten MakeDrop müsste es sowohl mit Ansi, wie auch Wide funktionieren.
Konnte es aber nur mit D6 testen.
Als Ziel habe ich Notepad und ein eigenes Tool (mit DragQueryFileW) für die Drops zum Testen verwendet.

Delphi-Quellcode:

function MakeDrop(const FileNames: TStrings): HDROP;
var
  I, DataSize, Size: Integer;
  Data: PDropFiles;
  P: PChar;
begin
  // berechne notwendig Speichergröße
  DataSize := SizeOf(TDropFiles);
  for I := 0 to FileNames.Count-1 do begin
    Size := (Length(FileNames[I]) * SizeOf(Char)) + SizeOf(Char);
    Inc(DataSize, Size);
  end;
  inc(DataSize, SizeOf(Char)); // Für abschließendes #0 Char

  // alloziere den speicher
  Result := GlobalAlloc(GHND or GMEM_SHARE, DataSize);
  if Result <> 0 then
  begin
    Data := GlobalLock(Result);
    if Data <> nil then
      try
        FillChar(Data^, DataSize, 0);
        // Fülle daten
        Data.pFiles := SizeOf(TDropFiles);
        Data.fWide := (SizeOf(Char) > 1);
        // Am Ende des headers nun die filenamen getrennt mit #0
        P  := PChar(Cardinal(Data) + Data.pFiles);
        for I := 0 to FileNames.Count-1 do
        begin
          Size := (Length(FileNames[I]) * SizeOf(Char)) + SizeOf(Char);
          Move(PChar(FileNames[I])^, P^, Size );
          Inc(P, Size);
        end;
      finally
        GlobalUnlock(Result);
      end
    else
    begin
      GlobalFree(Result);
      Result := 0;
    end;
  end;
end;

[hoika]

Hallo,
Du hast ja den SecSigner erwähnt.

Was willst Du denn mit dem konkret machen?
Du kannst den SecSigner ja auch mit dem Dateinamen als Parameter starten.

PS:
Ich wusste gar nicht, dass der auch Drag&Drop kann.