Hello, RBNUBE.

> That's great.  This is too abstract for me.  How to you get the path?

With this code from below (add to extendedclipboard class), data
contains values of clipboard fields:

  if i=5 then
 
bs.Write(ConvertEncoding(DefineEncoding(data,Encodings.UTF16),Encodings.UTF8
))
   end if



> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of AdaSoft
> Sent: Monday, May 22, 2006 4:50 AM
> To: Getting Started
> Subject: Re: Copy/paste folderItems instead Drag'n'Drop


> Hello, RBNUBE.

>> I've looked into this before and have done a lot of surfing trying to
>> find out how to reference pasted "files" in RB.  There doesn't seem to
>> be any obvious way of dealing with this situation.  I have found posts
>> were people have gotten the name of the file dropped, but apparently
>> no other useful information.  The rest has just been speculated on.

>> I also found something that extends the RB clipboard.  From the 
>> example included, I can't understand how to extract any useful 
>> information from it.

>> If you can, please share.  Follow the URL below.

>> http://www.ljug.com/sw/rbextra.html

> Thanks!

> I get a full path to copied file (i=5 for Windows) but this code is not
> processed multiple files yet.

>   fi=GetFolderItem("clpbrd")
>   bs=fi.CreateBinaryFile("text")
>   cb = new extendedClipboard
>   f = cb.numberOfFlavors-1
>   s = s + "There are "+str(f+1)+" types on the clip"+endOfLine + endOfLine
>   for i = 0 to f
>     data = cb.flavorAtIndex(i)
>     'data = format(lenb(cb.macdata(data)),"-#")
>     data = cb.macdata(data) 
>     s = s + cb.flavorAtIndex(i) + " (" + format(lenb(data), "#")+ "
> bytes)"+endofLine
>    if i=5 then
 
> bs.Write(ConvertEncoding(DefineEncoding(data,Encodings.UTF16),Encodings.UTF8
> ))
>    end if

>   next
>   bs.Close()
>   'mb.long(0) = 49628
>   //s= s + endOfLine+cb.macData(mb.stringValue(0, 4))
>   clipText.text = s





-- 
  Nikolay Kuznetsov

RB2006r2 Pro,Win XPSP2 Pro
MacOSX10.3/PearPC+iBookG3, UbuntuLinux/VMWare



_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to