Hello all,

I have found a problem with the Alaska DragDrop example program.
I wanted to see if it was possible to drop a file that is an 
attachement of an e-mail.

The result is:
-----------------------------------------------------------------------------
ERROR LOG of 
"C:\Alaska\XPP190_355\SOURCE\samples\basics\DRAGDROP\DROP.EXE" Date: 
03/04/2011 10:15:23

Xbase++ version     : Xbase++ (R) Version 1.90.355
Operating system    : Windows XP 05.01 Build 02600 Service Pack 3
------------------------------------------------------------------------------
oError:args         :
          -> VALTYPE: U VALUE: NIL
          -> VALTYPE: B VALUE: {|x| IIF(Upper(Right(x,4)) == ".LNK", 
x:=ShellLinkResolve(x),)}
          -> VALTYPE: U VALUE: NIL
          -> VALTYPE: U VALUE: NIL
          -> VALTYPE: L VALUE: .T.
oError:canDefault   : N
oError:canRetry     : N
oError:canSubstitute: Y
oError:cargo        : NIL
oError:description  : Parameter has a wrong data type
oError:filename     :
oError:genCode      :          2
oError:operation    : aEval
oError:osCode       :          0
oError:severity     :          2
oError:subCode      :          3
oError:subSystem    : BASE
oError:thread       :          1
oError:tries        :          0
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Called from MAINDIALOG:VALIDATEFORMAT(260)
Called from MAINDIALOG:HANDLEDRAGENTER(176)
Called from (B)MAINDIALOG:INIT(76)
Called from MAIN(576)

From my researches, it seems that the file is detected as:
oData:QueryGetFormat(XBPCLPBRD_FILELIST) == .T.

Does some one knows how to solve or work around this problem?

Thanks in advance,
Raymond

Amicalement,
Raymond

http://www.mouches.org
http://www.cpmn.be

hi,

> I have found a problem with the Alaska DragDrop example program.
> I wanted to see if it was possible to drop a file that is an attachement 
> of an e-mail.
>...

did you "unpack" Attachment to a Directory () ?

>          -> VALTYPE: U VALUE: NIL
>          -> VALTYPE: B VALUE: {|x| IIF(Upper(Right(x,4)) == ".LNK",

1st Parameter is NIL

> From my researches, it seems that the file is detected as:
> oData:QueryGetFormat(XBPCLPBRD_FILELIST) == .T.

there is no Filelist in Clipboard ... Clipboard is from your "last Action"

as i can say Alaska DragDrop example work only with
"direct" File Access and must be IF FILE(x) -> .T.

greetings by OHR
Jimmy

AUGE_OHR a écrit :
> hi,
>
>> I have found a problem with the Alaska DragDrop example program.
>> I wanted to see if it was possible to drop a file that is an attachement of 
>> an e-mail.
>>...
>
> did you "unpack" Attachment to a Directory () ?
>

The answer is NO.

>>          -> VALTYPE: U VALUE: NIL
>>          -> VALTYPE: B VALUE: {|x| IIF(Upper(Right(x,4)) == ".LNK",
>
> 1st Parameter is NIL
>
>> From my researches, it seems that the file is detected as:
>> oData:QueryGetFormat(XBPCLPBRD_FILELIST) == .T.
>
> there is no Filelist in Clipboard ... Clipboard is from your "last Action"
>

There was no other action before. I started the program and tried to 
drop an attachement from an e-mail.

> as i can say Alaska DragDrop example work only with
> "direct" File Access and must be IF FILE(x) -> .T.
>
> greetings by OHR
> Jimmy

Hello Jimmy,

There is a problem with Alaska's drag & drop solution.
I use Thunderbird. From a message I can drag an attachement and drop it 
in a folder. I thought that I could do the same with Xbase ++ but I got 
the error mentionned in my previous post.

I know that I can drop the attachement in a folder and then drag & drop 
the document into my Xbase++ program but this is not a elegant solution 
because instead of a single D&D i need to:
- force the user to define the temporary folder
- drop the attachement into that folder
- drag it from that folder and drop it into my program
- delete the file from the temp folder

I hope that there is a solution.

est regards,
Raymond

Amicalement,
Raymond

http://www.mouches.org
http://www.cpmn.be