Announcement

**Andreas Horlaender** · 24.09.2003, 13:40

joo, 
was ist den "source" deiner Drag&Drop operation?
<pre>
procedure TForm1.RichEdit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
With Sender as TRichEdit do
SelText:= //Was ist Source???
end;
</pre> Gru� Andrea

**Nick Peterson** · 24.09.2003, 15:10

Guten Tag,

keine Ahnung, irgendein Text, der aus einer beliebigen anderen Anwendung (IE, Word,...) in mein Programm gezogen wird.

Im Prinzip also ein String, der vermutlich in irgendeinem MS Format formatiert ist. Eben das ist ja das Problem. ;-)

Mf

**Andreas Kosch** · 02.10.2003, 06:21

Hallo,

das folgende Beispielprojekt stammt aus meinem Buch COM/DCOM/COM+ mit Delphi:

<pre>

{ ************************************************** **************
Source File Name : IDataObjectTest2Frm.pas
Typ : Hauptformular
Autor : Andreas Kosch
Compiler : Delphi 4.02 CSS
Betriebssystem : Windows 98
Beschreibung : Beispiel zum IDataObject-Interface
(Word-Dokument direkt im RTF-Format �ber-
nehmen)
************************************************** ************** }

unit IDataObjectTest2Frm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtnrs, ComCtrls, ActiveX;

type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
ButtonSave: TButton;
OleContainer1: TOleContainer;
ButtonOpen: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
RichEdit1: TRichEdit;
ButtonLoad: TButton;
procedure ButtonOpenClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ButtonSaveClick(Sender: TObject);
procedure ButtonLoadClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

uses ComObj;

{ Startverzeichnis der TOpenDialog-Instanz mit dem aktuellen
Windowsverzeichnis vorbelegen. }

procedure TForm1.FormCreate(Sender: TObject);
var
szWinDir : array[0..99] of Char;
begin
FillChar(szWinDir, SizeOf(szWinDir), #0);
GetWindowsDirectory(szWinDir, SizeOf(szWinDir));
OpenDialog1.InitialDir := szWinDir;
// Inhalt wird direkt im RTF-Format eingef�gt
RichEdit1.PlainText := True;
end;

{ Wurde eine DOC-Datei ausgew�hlt. Wenn ja, dann soll ein
OLE-Objekt in der TOleContainer-Instanz daraus erstellt
werden. }

procedure TForm1.ButtonOpenClick(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
OleContainer1.CreateObjectFromFile(FileName, False);
ButtonSave.Enabled := True;
StatusBar1.SimpleText := Format('Datei �%s� ist im OleContainer',
[OpenDialog1.Filename]);
end;

{ F�r den Fall, da� ein eingebettetes OLE-Objekt nicht im speziellen
Format des OleContainers gespeichert werden soll, sondern im
urspr�nglichen Dateiformat, mu� das universelle IDataObject-Interface
bem�ht werden.
In diesem Fall mu� das gesuchte Format �ber seine Bezeichnung als
Zeichenkette gesucht werden. }

procedure TForm1.ButtonSaveClick(Sender: TObject);
const
RTF_NAME = 'Rich Text Format';
RTF_NAME_MAX = 254;
var
aDataObject : IDataObject;
aEnumFmt : IEnumFORMATETC;
aFormatEtc : TFormatEtc;
aMedium : TStgMedium;
pFmtName : PChar;
bFmtFound : Boolean;
pRTFData : PChar;
begin
// Zieldateiname definiert ?
if not SaveDialog1.Execute then
Abort;
bFmtFound := False;
OleContainer1.DoVerb(1);
OleContainer1.OLEObjectInterface.QueryInterface(ID ataObject, aDataObject);
// IDataObject der Quelle ok ?
if aDataObject = nil then
Abort;
// cfFormat-Wert f�r den RTF-Inhalt des Word-Dokuments ermitteln
OleCheck(aDataObject.EnumFormatEtc(DATADIR_GET, aEnumFmt));
while (not bFmtFound) and
(aEnumFmt.Next(1, aFormatEtc, nil) = S_OK) do
begin
pFmtName := AllocMem(RTF_NAME_MAX + 1);
GetClipBoardFormatName(aFormatEtc.cfFormat, pFmtName, RTF_NAME_MAX);
if (String(pFmtName) = RTF_NAME) then
bFmtFound := True;
FreeMem(pFmtName);
end;
if not bFmtFound then
Abort;
OleCheck(aDataObject.GetData(aFormatEtc, aMedium));
// RTF-Format wird �ber einen globalen Puffer �bergeben
pRTFData := GlobalLock(aMedium.hglobal);
try
RichEdit1.Text := pRTFData;
finally
GlobalUnlock(aMedium.hglobal);
end;
OleContainer1.Close;
RichEdit1.Lines.SaveToFile(SaveDialog1.Filename);
ButtonLoad.Enabled := True;
end;

{ Zur Kontrolle kann das gerade angelegte RTF-Dokument erneut
�ber die Datei in die TRichEdit-Instanz geladen werden. }

procedure TForm1.ButtonLoadClick(Sender: TObject);
begin
with RichEdit1 do
begin
Lines.Clear;
PlainText := False;
Lines.LoadFromFile(SaveDialog1.Filename);
end;
end;

end.

</pre&gt

**Andreas Kosch** · 02.10.2003, 06:24

Hallo,

die Funktion Drop �bergibt einen Interface-Zeiger f�r IDataObject. �ber diesen Weg muss der als CF_TEXT formatierte Inhalt abgerufen werden (siehe TFORMATETC-Feld cfFormat). Die Suche nach der Zeichenkette IDataObject liefert hier im FORUM einige Beispiele zur�ck

Announcement

Wie bekomme ich Drag and Drop in RichEdit als AsText?

Wie bekomme ich Drag and Drop in RichEdit als AsText?

Comment

Comment

Comment

Comment