Hi. I have some AV in the Drag and drop VCL.
There will be any update soon?

Hi,
Are you planning a Lazarus version of this component? I think a lot of people would find it useful.

Thanks for your answer

I get access violation when I shut down the application.
The DragFileSource and DragFileTarget components are on the main form.
When all forms are loaded I link them to a child form:

MainForm.DropFileTgt.register (FrmSession.MgrProiecte);  
MainForm.DropFileTgt.register (FrmSession.MgrSecvente);

The AV appears in the Unregister function/procedure.
What I am doing wrong? How should I initialize this component?

Thanks

I'm trying to use Drag and Drop Component Suite with BDS 2006. Using the Delphi 7 configuration, I am able to install the components. However, when I try to compile an application, I get the following error:

[C++ Error] Dropsource.hpp(74): E2303 Type name expected

The line referenced is:

private:
  ...
    _di_IDropSource FAsyncDropSource;

Indeed, _di_IDropSource is not defined anywhere that I can find.

Any ideas on what I can try?

A. Parise

BTW: the components look great.

The installation within Turbo Delphi (based on BDS 2006) worked flawlessly (based on Delphi 11 configuration). I only tested some examples, but they worked out-of-the-box!

hi. Thank you for a very time saving component. Just what I needed.

I use it on a TreeView, where the nodes have the logic for telling if a drop is possible, and what the default should be depending on ShiftState. This is called from OnGetDropEffect, so it will be used internally by DragEnter, DragOver and Drop. I don’t have any OnEnter or OnDragOver event handler of my own (not anything to do there), just OnDrop.
It works fine, but I don’t allow drop on whitespace or some of the nodes. So if that happens the first time called by the internal OnEnter handler FDataObject will be set to nil, which isn't a good idea for me. I commented these two lines out and now it works great.

Have I figured this out right or are there anything thats going to bite me back later.

/Peter

Thanks for a great suite!

Could you please explain if possible (can't see in any of your demos) how to drag and drop between 2 shelllist windows in an application? My form has 2 shelllist components, each representing different folders,e.g.

shellist 1: Drive C:\Temp
shellist 2: Drive D:\Temp

Thank you.

Hi Anders,

When using your Drop&Drop component, can I still use Delphi's built-in Drop&Drop feature (to drag & drop inside the same app)?

In your SourceDemo app, I can drag from ListView to Explorer. That's fun and great.

But I also want to drag the listview items within the ListView, just to re-order them.

I use the following code to implement drap&drop inside ListView:

1. Set DragMode to dmAutomatic
2. OnDragDrop event handler

   procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
   var
     currentItem, nextItem, dragItem, dropItem : TListItem;
   begin
     if Sender = Source then
     begin
       with TListView(Sender) do
       begin
         dropItem := GetItemAt(X, Y) ;
         currentItem := Selected;
         while currentItem <> nil do
         begin
           nextItem := GetNextItem(currentItem, SdAll, [IsSelected]) ;
           if Assigned(dropItem) then
             dragItem := Items.Insert(dropItem.Index)
           else
             dragItem := Items.Add;
           dragItem.Assign(currentItem) ;
           currentItem.Free;
           currentItem := nextItem;
         end;
       end;
     end;
   end;

3. OnDragOver event handler

   procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
     State: TDragState; var Accept: Boolean);
   begin
     Accept := (Sender = ListView1) and (ListView1.Items.Count>1);
   end;

If I add the above code to your SourceDemo, the program doesn't work properly.

Please advise.
Thank you.

Simon La

How do I set about using your suite with BCBuilder?

Thanks

Steve

Thank you very much Anders!

Your components helped me very much with realizing drag & drop onto my form.

Best regards!

Libor, Czech Republic

I replaced the drag&drop (vcl and COM) in one app with the d&d-suite, works very good
Gerhard

Hi, I am using Groupwise 6.5 and I can drag an email to Explorer or the desktop. It comes across as a .gzw or something like that. If you double click on the file on the desktop it will open in Groupwise.What I want to do it be able to drag selected emails across to a Delphi application and store them there for later retrieval.
Sort of like an imformation application that stores comments, etc in a database but also stores emails sent on a topic.

Could you please point me in the right direction.

Terry

If i drag over a none TWinControl child of a registered target
TCustomDropTarget.FindTarget() fails.

Enhancement suggestion:

function TCustomDropTarget.FindTarget(p: TPoint): TWinControl;
begin
  // Can start search for parent with none TWinControl,
  // if finally found, it must be a TWinControl
  Result := TWinControl(FindDragTarget(p, False));
  while (Result <> nil) and (Targets.IndexOf(Result) = -1) do
  begin
    Result := Result.Parent;
  end;
end;

Hi. I´m a Delphi developer and already installed this package in Delphi 2006. I´ll test and soon I´ll give you a feedback. But now I´m starting in the c++ builder - and I´m trying to install it, but I´ve not succeed. Could you help me? I tried this: I started a new package for c++, saved it, and add all the .pas in this package. I´ve succed to install some components this way. Where did I was wrong? I really thank to you for any help.

A colleague figured out how to build 4.2 in C++ Builder 2007.  Here are his notes:

1. Add the .pas files in Source to a new bpl project
2. Add designide.bpi under Requires.
   designide.bpi is in \Program Files\CodeGear\RAD Studio\5.0\lib\release\
3. Add BCB as a compiler directive
4. Under Delphi Compiler ⇒ Other Options ⇒ Use these packages when compiling, put DesignIDE
5. Comment out (or otherwise undefine) {$define DD_WIDESTRINGLIST} at the bottom of Source\DragDrop.inc

Just trying to add the source files to an existing bpl project was giving an "Internal error F2084" error message.

Anders,

Are you really licensing the drag and drop component suite under a CC Share Alike license now?  Do you realize that anybody using a Share Alike component in their application may have to release the full source code to their application?
The CC SA doesn't explicitly cover this case, but to me it reads that it does make this requirement, similar to the GPL.  I certainly won't use Share Alike components.

Would you be willing to license the drag and drop component suite under the MPL or LGPL licenses?  Those still require changes to your components to be published as open source, but they explicitly allow your components to be used in closed source applications.

Anders, Delphi 2009 is now available and I'm trying to update an old project (www.bayden.com/slickrun) to compile in the new environment.  Do you have an ETA on when your most-excellent component will be compatible with Delphi 2009?

Thanks a ton!

-Eric

I have used your excellent suite for years now, and am very pleased with it. Your version 4.2 adds Unicode support for Delphi 7 but not, it seems for Delphi 5/6 (since the "class helper for" construct was first introduced in Delphi 7). Do you have an update that solves this, or instructions on modifying your classes to support Unicode in D5/6?

Hi Anders,

i have made some small changes for Delphi 2009.

1. DragDrop.inc

   // Delphi Tiburon
   {$IFDEF VER200}
     {$DEFINE VER200_PLUS}
     {$DEFINE VER_OK}
   {$ENDIF}
   ...
   {$IFDEF VER200_PLUS}
     {$DEFINE VER190_PLUS}
   {$ENDIF}

2. unit DragDropFile;

   function ReadFilesFromData(Data: pointer; Size: integer; Files: TStrings): boolean;
   var
     Wide: boolean;
   begin
     Files.Clear;
     if (Data <> nil) then
     begin
       Wide := PDropFiles(Data)^.fWide;
       dec(Size, PDropFiles(Data)^.pFiles);
       inc(PByte(Data), PDropFiles(Data)^.pFiles);
       ReadFilesFromZeroList(Data, Size, Wide, Files);
     end;
     Result := (Files.Count > 0);
   end;
    
   function ReadFilesFromZeroList(const Data: pointer; Size: integer;
     Wide: boolean; Files: TStrings): boolean;
   var
     p: PByte;
     StringSize: integer;
   begin
     Result := False;
     if (Data <> nil) then
     begin
       p := Data;
       while (Size > 0) and (PChar(p)^ <> #0) do
       begin
         if (Wide) then
         begin
   {$ifdef DD_WIDESTRINGLIST}
           Files.AddWide(PWideChar(p));
   {$else}
           Files.Add(PWideChar(p));
   {$endif}
           StringSize := (Length(PWideChar(p)) + 1) * sizeof(Char);
         end else
         begin
           Files.Add(PChar(p));
           StringSize := Length(PChar(p)) + 1;
         end;
         inc(p, StringSize);
         dec(Size, StringSize);
         Result := True;
       end;
     end;
   end;

Regards Manuel

Full ACK.

Hi Anders,

My application has TPageControl and hope I can do the effect like drag the TTabSheet and drop it to desktop same as Google Chrome or Safari. My idea is ask Windows Explorer to execute my exe again with some parameters when I dropping the TTabSheet on desktop. May I have some advice or direction to implement this effect. Any component in the sute can help to do it.

Thanks a lot.

Terrance

Hello

When I drop an Email how Can I exec the SaveAs method from the TMailItem object ?

If not possible, How can i Get the message Id

Thanks, Pascal

I am using DragDrop in Delphi 2007.  I encounter memory leak.  Please try the following console application:

program Project3;

uses
  DragDrop;

begin
  ReportMemoryLeaksOnShutDown := True;
end.

This package is very very good ! so thanks for your effert !.
But…
I think this is bugs….
How about test serveral time drag and drop on child window ?
I tested all the times. but will happen each time.
on Child window. drag and drop from desktop or folder to child window.
drag and drop OK ! but when i close child window and re open …
and then close will happen error.
 
Please check DragDropDemo.exe.

Thanks for reading.

Is this just for me ?

how can I drag "my computer","IE","recycle bin" to the application,and identify them?

Greetings,

Just downloaded your latest version of DnD, opened the D5 package, compiled  and when I click the installed button, I get an error "Cannot load package 'DragDropD5'. It contains unit 'DragDrop' which is also contianed in package EQpack1_D5"  This is of course is part of a very old EQ Delphi Pack 1 by Peter Thornquist (I think) and I use a few of the components from this component set, but not the Drag and Drop component.  Any suggestions on what I could do?

Thanks

Work fine in Delphi 2005 Win32. I used D7 dpk. Thanks.

How to install your component to C++ Builder?

Thanks.

graphman@tlt.ru

Hi,I downloaded your last version of "Drag And Drop Component Suite".
I need to create an application that accepts drops from outlook and save them as msg in a blob fields so I can reopen them later with outlook.
I started from your outlook example, but I had to change it because of different requirements.
I try to use TDataStreamDataFormat, but the streams are always empty!.
I try to use TVirtualFileStreamDataFormat (within your VirtualFileStream example), but I always get empty streams.
NOTE: With these two techniques other file types work, for example I can successfully drag a zip file from within an outlook mail to my application.
Using your SourceAnalyzer I see that "Outlook's drags" export an Empty FileContents format (IStorage and IStream), but with other types I get fully-readable IStream objects in FileContents.
I know this is due to Outlook and not to "Drag And Drop Component Suite", but maybe you know this issue and the right workaround.
Do you?
Thank you in advance.

Any plan to upgrade Drag and Drop Component Suite to Delphi 2009?

Do you support Drag Drop Component Suite für Delphi 2009?

Please, can you tell me when will the next V5 snapshot become available?
Is there a way to download a beta-version?
Thank you.

Hi,
this is another problem with outlook target(Outlook 2003) in OutlookDemo.
Put a button for Paste operation and process the click event:

  DropEmptyTarget1.PasteFromClipboard;

Run the program.
After the first clipboard operation the program ignores all other pasted content from outlook. Drag and drop works well.
I have the same problem in an application of mine derived from this example.

Thank you in advance.

Hi Anders, firstly thank you too much for this package because it a like life-saver

I've downloaded the last release and try to run SimpleSourceDemo (and some other demos), but program is stopped and error on Codegear's StdActns.pas file and it pointed that the line of TBrowseForFolder.ExecuteTarget(Target: TObject); procedure with

[DCC Error] StdActns.pas(1343):
  E2010 Incompatible types: 'Array' and 'Char'

(code is : pszDisplayName := @DisplayName;), and if i cancel this error with "//" then run it again then

[DCC Error] StdActns.pas(1345):
  E2010 Incompatible types: 'TFNBFFCallBack' and 'Pointer'

(line: lpfn := @BrowseCallbackProc; ) if i cancel this line too then many other errors..

What can be the solution of these problems…

Thanks right now..

Is there support for Delphi 2009?

First of all thanks for your component pack. I have had good use of it so far, but now I am upgrading to RAD Studio 2009.

Are you planning any update within near future, or should we try to figure out how to do this on our own?

Dear Anders,

Thank you for this wonderful program. I am testing now the version from 8th Feb. 2009, including the two hotfixes. Everything installs ok. But I need a functionality for a program, where it is possible like in your program example
SimpleTargetDemo to drag and drop from explorer files, but with "real" unicode
names, like Czech names.
Your demo produces the following result, I give a link to a screenshot:
http://www.winserion.org/DragDrop01.png

I do not know, where the problem  is, because I tested with Delphi2009 and every string should be unicode.

Sincerely

Peter

Hi, I've been trying to permit drag n drops into one of my Delphi application for weeks.This morning I found out about Drag and Drop Component Suite v.4.2. So I downloaded it and I've tried to use it, 'cause it seems to do exactly what I've been trying to do…
The only problem is that I need to be able to drop either windows files and outlook mail (and soon hotmail and gmail too) in the same listview….
 I've tried to "mix" two different methods of your packages, and it's  not working at all, any idea on how I would be able to do this?
thanks Mahel 

Hi Anders! Thanks for your answer, it worked just great! Now, i've something elese to ask you; Now that I can drag and drop either windows file and outlook mail. I found out a way of "copying" the mail i dropped into my TEMP folder…i'm trying to also copy the attached files at the same place…i know i can retreive the number of attached, their name, size etc. But i coudn't find a way to save them at the same place…

Any clue?

Thanks again for your great component, it made me save so much time!!

Mahel

I just want to thank you for your excellent component pack and say that using v.4.2 (with Delphi7) and based on your demos, i managed just in 30 minutes to intergrate in my software the capability of storing files and outlook messages that the user drags and drops on a form inside my application's database.
Thanks Again

A.Kyriakos
Athens, Greece

Hi Anders !

I'd love to have access to the C++ examples. I've been using the DragAndDrop components in BCB5 for many years now and I've now updated to version 4.2 and have some new needs (the Asynchronous Source with File Stream example seems to be exactly what I'm looking for
Cheers !
/Tias

Hi, first of all THANK YOU for your great work, for the great support and for keeping quality software free.
I am writing a program with a friend (non commercial, and we will give proper credit) but we were not able until now to implement one of the many features.
We would like to know if, using this component, is in theory at least possible to "simulate" a "drop" of an image into another running application.
What we are trying to do is, by pressing a button in a Delphi application, we need to "simulate" a dropping of an image in another non-Delphi application (and of which we have no sources) which is running together with our program.
Can it be done? Thank you!

Hi Graphman !

It's quite simple. This works in BCB 5 Pro :

1: Create a new Design & Runtime package in BCB.
2: Include all the .pas file in Anders' package.
3: Click Install to compile & install it.

That's it.
Cheers !
/Mathias

Any reason why this shouldn't work?

Drag an outlook item (stored as msg file) from Delphi application:

...
DropEmptySorce1: TDropEmptySource;
MyFmt: TOutlookDataFormat;
...
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyFmt := TOutlookDataFormat.Create(DropEmptySource1);
end;
 
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Goat: IStorage;
begin
  if DragDetectPlus(TWinControl(Sender),Point(x, y)) then
  begin
    MyFmt.Clear;
    if Succeeded(StgOpenStorage('c:\test.msg', nil, STGM_DIRECT OR STGM_READ OR STGM_SHARE_EXCLUSIVE, nil, 0, Goat)) then
    begin
      MyFmt.Storages.Add(Goat);
      DropEmptySource1.Execute;
    end;
  end;
end;

HI,I want to get bcb examples.
Can you send me a link?

first off, great component

second, using your outlook message sample, it works great in every computer in the office except mine. when i drag a message to the application it gives me the error "the operation failed because of network or other communication problems. verify your connections and try again"
curious if you have run across this.

HI Anders, It's me again.
I've been using your component for a certain time now, and as I tough, our client wants to be able to drag n drop message from Outlook Express(on XP) and Windows Mail (on Vista). I've tryied some tests to be able to drag n drop either win files and outlook message using DropComboTarget and it seems to work fine but how can i retreive OutlookExpresse message?

Thanks for your good work!

By the way, when i also used the Outlook.ActiveExplorer.Selection;
and the MailItem.SaveAs. That way i save the message as it is without bothering about its format, attachement etc. I tough i would be able to do the same with Outlook express but apparently, microsoft did not provided an interface to do so….

thanks again
Mahel

It seems that there is a typo in the file "DragDropText.pas".
In this file, 6 times the type TFileGroupDescritorClipboardFormat (yes, "Descritor" without the "p") is used, which should be TFileGroupDescriptorClipboardFormat (with "p", as defined in DragDropFile.pas).
It doesn't cause an error because DROPSOURCE_TEXTSCRAP is not defined at the top of the file, I just wanted to mention it in case that define will be used by someone.
  Holgerwa

Hi! Is there any way somebody could upload “corrected” an »Outlook« example that would enable to drag&drop Outlook email msg-files to demo application (I want to save Outlook emails in my database as .msg files). I need it really urgently and any help would be really appreciated.Thank you and best regards,Smiljan

hi..
can i get drag target  directory name?
when I drag from tlistview to exploer  , I want know exploer directory name.

If I use your components for commercial product, should we pay for them?

When I drop the TDropDummy on a form, I get an AV. I am using V5 with Delphi 2007.
What I want to do is to drag and drop files from a treeview to explorer…

I was working with the Outlook. Are there any versions (other than Express) that the Outlook will not work with? Or are there any version issues that anyone knows of working with the Drag and Drop? I do want to say that what I've worked with so far has been outstanding, definately takes a complicated process and simplifies it.

I'm a begginer programer and I would like to save outlook msg file without show me a "Outlook-security dialog", now I use MailItem.SaveAs('name.msg'), are there another way to save dropped file to a msg without prompt dialog?
Best regards,
Pere

I'm working with the component using it as a target for e-mail messages being dropped from Outlook. I'm having a problem with the following line:

if (Succeeded(HrGetOneProp(AMessage, PR_DELIVER_TIME, Prop))) then

This line will work if I'm passing in a PT_TSTRING. But if I'm passing in a PT_SYSTIME, it fails out on me. Basically, I'm just trying to grab the date information from the e-mail. I can see it if I display the header, so I know it's there, but I can't get it to just return that date information to me.

Your help is appreciated. Thank you!

Thank you for a great job!

I would like to automate the Drag-drop process e.g. no user should not have to manualy perform the process, but rather my application should in pure code be able to "drop" a file on another program window.

(Let´s say that the other program is an image viewer and the delphi program should every ten second "drop" on it a new image file to be displayed like a slide show, and the other program responding as if a user had manually dropped each file on it.)

Is it possible with this suite?

hi,I'm a programmer from China.I have used your Drag and Drop Component and it helped me a lot.Recently I have a trouble in dropping two or more files whose name have Chinese characters from my Delphi window to Windows Explorer,the explorer can only reiceve the first files.I had tried to resolve the problem by reading your source code for several hours, but I can't do it.If you have an idea about it,please mail to 124596885@qq.com, thanks.

Hello.  Your toolkit looks very good.  I have a question.  Would there be a way to drop a file from my application to the target in which the file being dropped could be rendered by the source at the time it is dropped?   In other words, it seems that the TFileDropSource object requires that files already exist at the full size before dragging and then dropping.  I'm looking for a way that the source app could render the file at the time of the drop itself.  Is that something that would be possible to do?   (Reason I ask:  I'm looking for the user in my application to be able to select a section of audio data, and then click on the section and drag and drop the mouse to the target app, and at the time of the drop, my app would render a .WAV file for the target app to receive)Thanks,Jeff

Hello,
Thanks a lot for the excellent components!!!
I've got a question on ExtractDemo example:
while extracting the huge file an application hangs i.e it is impossible to
control the form, and by attampting to write DropFileSource1.Execute(True)
as it is given at syncSource examples a message "Error" appeared. How can I
avoid the problem?Best Regards,
Evgeniy Shiyanov

Jeg tillader mig at skrive på dansk

I din demo “sourceanalyzer”, metode ActionSaveExecute har du et par konstantstrenge. Disse skal IKKE ende med #13. Ellers har output 13,13,10 som linieskift og det giver lidt knas efterfølgende.

Ellers var sourceanalyzer lige hvad jeg var ude efter. Tak.

Hello!Thanks for your great component!We're writing a test program based on your outlook demo. Everything works fine, except we cannot get the mail's date of arrival when we drag it to our application.Can you help on this?Thanks!Peter

Thank You, Anders.   Great components. I am try install Your 5 snapshot into Builder 2009 on Your instruction.  (embarcadero.public.cppbuilder.vcl.components.using)

Component installed - ok But, if i am make small example, I have many errors in .HPP files:   [BCC32 Error] Dragdropcomobj.hpp(28): E2303 Type name expected [BCC32 Error] Dragdropcomobj.hpp(48): E2312 'TVCLComObject::TComObject' is not an unambiguous base class of 'TVCLComObject' [BCC32 Error] Dragdropcomobj.hpp(76): E2356 Type mismatch in redeclaration of 'TVCLComObject' …….. ……..   Path to Include-files exists in a project   Not prompt me, how to decide a problem ?   Dmitry.

Hi, tried to compile DragDropD11.dpk in Delphi32 2009. Could not be compiled because of 7 fatal errors:

Seek(0, STREAM_SEEK_SET, PLargeuint(nil)^); // wrong types
Stream.Seek(0, STREAM_SEEK_SET, PLargeuint(nil)^); // wrong types
Stream.Seek(0, STREAM_SEEK_END, PLargeuint(nil)^); // wrong types

Does anyone have an example of how to detect and handle rich text dropped on a target?

Thanks
Jim

Thanks for the rich text example, that is exactly what I was looking for.

Jim

Hej Anders
I have been checking out your Drag and drop component Suite for Delphi because I am looking for a solution to my problem which is: how can I drag an Outlook item onto my application and save it as a file?  My problem is converting the dragged item to a .msg file. Can your suite solve this for me?

Kaerlig hilsen fra Island,
Kristjan

Hi Anders,

I am approaching you in connection with the excellent Drag-and-Drop Components Suite that you originally made with Angus Johnson. I am using this suite v 4.2 with Delphi 5 and it works smoothly and very well.

What I specifically appreciated in this suite was that using drag-and-drop to “transfer” login data from my application to web sites was a successful way to bypass whatever keylogger or clipboard loggers, specifically when using PCs at uncontrolled public places. It was my opinion that this was the safest way how to enter the loging data without the risk of it being intercepted by some logger(s).

Recently, I have come across a small utility called TTEOAK which can show intercepted areas when using a PC - keys pressed, clipboard contents and screen snapshot made. In addition to this, under menu “View | What Smart Loggers See…” it can optionally display contents of the area by what you mouse over. I was appalled to find out that information that I regarded as safe and confidential when using drag-and-drop was so easily intercepted by this feature breaking apart my illusions that my chosen way of entering the login data was somehow safer.

My question is this. Can something be done so that the D-and-D components could shield their data from such logging? I am sure that this issue by its nature concerns many, many users as D-and-D is mostly seen as the safest way to transfer data. I hope a workaround could be found to protect the dragged data until it reaches its destination and is dropped there. This would be a major improvement of the components suite as security of data is more and more important…

Thanks for possibly looking into this issue.

Kind regards,
David