Drag and Drop Outlook Contact

i Dmitry
In my profile I mention I program in Clarion programming language. I hope
you can translate. The code below works file if I drag and drop a text file
attachment but if I drop an outlook contact I get 80040068 invalid index
error on the following statement:
hr = pDataObject.RemoteGetData(ADDRESS(fmtetc), ADDRESS(stgmed))

If you can provide any kind of example I can translate to my tool...

here is my code:
bDropHandled = FALSE
pNewString &= NEW(STRING(SIZE(tagFORMATETC)))
fmtetc &= ADDRESS(pNewString)
IF ~fmtetc &= NULL
kcr_memset(ADDRESS(fmtetc),0,SIZE(tagFORMATETC))
fmtetc.cfFormat = SELF.m_cfFileContents
fmtetc.ptd = 0
fmtetc.dwAspect = DVASPECT_CONTENT
fmtetc.lindex = -1
fmtetc.tymed = TYMED_ISTREAM

IF pDataObject.QueryGetData(ADDRESS(fmtetc)) = S_OK
bDropHandled = TRUE
pNewString &= NEW(STRING(SIZE(STGMEDIUM)))
stgmed &= ADDRESS(pNewString)
IF ~stgmed &= NULL
kcr_memset(ADDRESS(stgmed),0,SIZE(STGMEDIUM))
hr = pDataObject.RemoteGetData(ADDRESS(fmtetc), ADDRESS(stgmed))
IF hr = S_OK
thisStream &= (stgmed.u.pstm)
hr = thisStream.Stat(ADDRESS(statstg), 0)
IF statstg.cbSize.highpart = 0
cb = CHOOSE(statstg.cbSize.lowpart <
SIZE(OleDataBuffer)-1,statstg.cbSize.lowpart,SIZE(OleDataBuffer)-1)
hr = thisStream.Read(ADDRESS(OleDataBuffer), cb, cbRead)
END
thisStream &= NULL
kcr_ReleaseStgMedium(stgmed)
DISPOSE(stgmed)
stgmed &= NULL
POST(SELF.m_OleDropEvent)
ELSE
kcr_itoa(hr,hr_hex,16)
MESSAGE('RemoteGetData(' & fmtetc.lindex & ') returned ' &
hr_hex)
END
END
END
DISPOSE(fmtetc)
fmtetc &= NULL
END
pNewString &= NULL
IF bDropHandled = TRUE
RETURN hr !<<<------Return before default code executes
END


--
Regards,
Randy


"Dmitry Streblechenko" wrote:

here did you get the definition of IDataObject from? It looks like the
MSHTML TL calls GetDataHere method (that's the original name) RemoteGetData.
What you need to use is GetData (the very frst method of the IDataObject
interface).

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Randy Rogers" < XXXX@XXXXX.COM > wrote in message
news: XXXX@XXXXX.COM ...

i Dmitry
yes, remotegetdata is the name given to the getdata method (not getdatahere
method) in my interface definition. As noted, this works fine with dropped
email attachment, but not dropped contact or task. Can you provide sample vb
or other code to show how to save a dropped msg type file to a local folder.
I am not ruling out something I have prototyped wrong, but it does seem a
bit strange that I can handle an email attachment but get error on
contactdrop.
Thanks for you help
--
Regards,
Randy


"Dmitry Streblechenko" wrote:

ou need to retrieve CF_FILEDESCRIPTOR first (it will give you the file
names and the count of files), then loop through all the files asking for
each file's CF_FILECONTENTS
You need to set PFormatETC.lIndex to 0 through count -1 on each step:

dfFile :
begin
pFE:=FindFormat(CF_FILEDESCRIPTOR, Formats);
pFC:=FindFormat(CF_FILECONTENTS, Formats);
if (pFE <> nil) and (pFC <> nil) then begin
//File descriptor
if S_OK = dataObj.GetData(pFE^,Medium) then begin
Stream:=MediumToStream(Medium);
if Stream <> nil then begin
GetMem(pFileDesc,Stream.Size);
Stream.Read(pFileDesc^,Stream.Size);
for i:=0 to pFileDesc^.cItems-1 do begin
FileName:=pFileDesc^.fgd[i].cFileName;
pFC^.lindex:=i;
res:=dataObj.GetData(pFC^,Medium2);
if S_OK = res then begin
Stream2:=MediumToStream(Medium2);
if Stream2 <> nil then begin
if ExtractFilePath(FileName) = '' then begin

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Randy Rogers" < XXXX@XXXXX.COM > wrote in message
news: XXXX@XXXXX.COM ...

i Dmitry
Here is what I did to get this to work. When calling GetData I request
TYMED_ISTREAM | TYMED_ISTORAGE and GetData responds with a *IStorage pointer.
I then use StgCreateStorageEx to create a local store and then ise
IStorage.CopyTo to save it to the local hard drive. Thanks for all of your
assistance.
Here is my Clarion code for those interested:

fmtetc.cfFormat = SELF.m_cfFileContents
fmtetc.ptd = 0
fmtetc.dwAspect = DVASPECT_CONTENT
fmtetc.lindex = -1
fmtetc.tymed = BOR(TYMED_ISTREAM,TYMED_ISTORAGE)
IF pDataObject.QueryGetData(ADDRESS(fmtetc)) = S_OK
bDropHandled = TRUE
pNewString &= NEW(STRING(SIZE(STGMEDIUM)))
stgmed &= ADDRESS(pNewString)
IF ~stgmed &= NULL
kcr_memset(ADDRESS(stgmed),0,SIZE(STGMEDIUM))
fmtetc.lindex = 0
hr = pDataObject.GetData(ADDRESS(fmtetc), ADDRESS(stgmed))
IF hr = S_OK
CASE stgmed.tymed
OF TYMED_ISTORAGE
thisStorage &= (stgmed.u.pstg)
cdFilename = 'c:\sample.msg'
IF wcdFilename.Init(cdFilename)
hr = StgCreateStorageEx(wcdFilename.GetWideStr(), |

BOR(BOR(BOR(STGM_DIRECT,STGM_CREATE),STGM_READWRITE),STGM_SHARE_EXCLUSIVE), |

STGFMT_STORAGE,0,0,0,ADDRESS(_ISTORAGE),pObjectOpen)
IF hr = S_OK
myStorage &= (pObjectOpen)
hr = thisStorage.CopyTo(0,0,0,myStorage)
myStorage.Release()
END
END
--
Regards,
Randy


"Dmitry Streblechenko" wrote: