Mails aus Thunderbird per Drag and Drop auf Form

[ChrisB]

wie kann ich Mails aus Thunderbird per Drag and Drop auf eine Form ziehen?

Ich habs nach einem Muster soweit hingekriegt, das in einer Listbox der Dateiname meinemail.eml in einem tempfolder angezeigt wird. Aber dort ist die Mail nicht.
Wenn ich andere Dateien in die Listbox ziehe, dann steht der richtige Pfad drin.

[theo]

Wenn ich andere Dateien in die Listbox ziehe, dann steht der richtige Pfad drin.

Vielleicht weil die einzelne Mail keine Datei ist?

[ChrisB]

Vielleicht weil die einzelne Mail keine Datei ist?

Warum nicht? Ich kann sie ja auch auf den Desktop ziehen und sie wird dort als eml Datei abgelegt. Das sollte sich doch auch in Lazarus machen lassen.

[Michl]

Ist zwar aus dem Delphiforum, aber gleiches Problem:

The application now verifies if the media types offered by the drop source can actually be read from the drop source. An amazing number of applications specify more media type and data formats than they actually support - or doesn’t specify the ones they do support. The prize for most funky behaviour goes to Mozilla Thunderbird 3; It does both.

[wp_xyz]

Da führt wahrscheinlich kein Weg an Melanders Drag and Drop Component Suite vorbei (http://melander.dk/delphi/dragdrop/). Die gibt's aber nur für Delphi und nur für Windows.

Auf https://github.com/prof7bit/NativeDragDrop andererseits habe ich eine lazarus-Komponente für den umgekehrten Weg gefunden - Daten aus deinem Programm auf ein anderes zu ziehen.

Vielleicht kannst du mit Hilfe beider Informationsquellen dein Problem lösen. Ich könnte mir aber vorstellen, dass das nicht ganz einfach ist.

[Christian]

Naja kein weg vorbei würd ich nun nicht sagen.
Wenn dein Code GPL ist dann schau mal in den Double Commander Code, da ist das recht schön plattformunabhängig gelöst.

[Michl]

Naja kein weg vorbei würd ich nun nicht sagen.
Wenn dein Code GPL ist dann schau mal in den Double Commander Code, da ist das recht schön plattformunabhängig gelöst.

Da es mich auch interessiert, habe mir mal die Source vom Double Commander geladen, auch hier ist das Problem, dass Drag&Drop von Thunderbird in ein Verzeichnis nicht geht.

Was aber funktioniert und eigentlich gar nicht beabsichtigt war (beim debuggen in den Events musste ich bei einer "gedragten" Mail in der IDE die Maus loslassen) ist, dass die Mail im Quelltexteditor der Lazarus IDE eingefügt wurde. Also muss man mal im Code von Lazarus nachschauen, um das Problem zu lösen...

[Michl]

So, habe mir die Lazarus-IDE einmal angeschaut, eine Möglichkeit (Unit DialogProcs, Procedure LoadCodeBuffer) entdeckt und diesen Code in ein kleines Bsp. übernommen (Drag und Drop von Thunderbird Win7, Lazarus 1.0.12 und 1.3-Trunk getestet ). Falls es noch jemand testen will, anbei:

[ChrisB]

@michl:

erste Sahne, funktioniert super, auch mit Anhängen!