How do I read from Clipboard?

[dutch]

Dear all,

I need to copy to clipboard and use button to read from clipboard without pressing on keyboard.

I can use as below to copy to clipboard.
oGet:SelectAll()
oGet:Copy()

But I need to paste in another program (FWH) and I need to use button for paste from clipboard.

Thank you in advance for any idea.

[dutch]

Dear All,

I test by oGet:Paste() but it got an error;

Code: Select all  Expand view

  Error description: Error BASE/1111  Argument error: LEN
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => LEN( 0 )
   Called from: TGET.PRG => TGET:PASTE( 1867 )
   Called from: testget.prg => (b)MAIN( 25 )

Error this line in TGET.PRG

Code: Select all  Expand view

     nLen = Len( ::oGet:Buffer )

[Enrico Maria Giordano]

Try this:

Code: Select all  Expand view

oClp = TClipBoard():New( , oDlg )

oClp:Open()

cTxt = oClp:GetText()

oClp:Close()

EMG

[dutch]

Dear EMG,

Thanks a lot. I've got it.

Try this:

Code: Select all  Expand view

oClp = TClipBoard():New( , oDlg )

oClp:Open()

cTxt = oClp:GetText()

oClp:Close()

EMG