实现Android剪贴板功能

ppaa

官方新版将解决实现Android剪贴板功能，当前解决中有点小的问题，希望有能力的朋友一起和官方反馈解决：

Thanks. Ok, so now I implemented it completely, but for a misterious reason it does not work. Maybe you can help me find what is wrong. Update to the latest subversion and check in this file:

http://svn.freepascal.org/cgi-bi ... mp;amp;root=lazarus

From line 155 there are the 2 routines relevant to the issue here: ClipboardGetData (gets data from the clipboard) and ClipboardSetOwnership (sends data)

Neither works (actually data sending is crashing right now in the final part).

上面的话翻译（我的e文不好）基本上是新的文件已经实现这个功能，但因为misterious的原因，它不起作用。也许你可以帮我找到什么是错的。更新到最新的覆盖，并检查这个文件：

http://svn.freepascal.org/cgi-bi ... mp;amp;root=lazarus

从行155有2例程相关的问题在这里：ClipboardGetData（从剪贴板获取数据）和ClipboardSetOwnership（发送数据）

ppaa

希望有能力的朋友一起和官方反馈解决

ppaa

运行出错

ppaa

felipemdc
Administrator
Hero Member


Posts: 3136
  

Re: How to achieve the Android clipboard functionality?
« Reply #10 on: Today at 10:40:06 am »
Quote
You probably only copied 1 file. You can't just copy a new version of 1 file from the LCL like that. You need to upgrade your entire Lazarus.

By the way, now (revision: 37226) I fixed the copy issue. The following code now works for me:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClipBoard.AsText:='Button1Clicked';
end;

And in other Android apps I can paste that =)

The opposite direction still doesn't work if the data comes from Android, it gets a #0 string. No idea why, but in your original post you asked for copy support anyway, not paste.

chenyuchih

上面的回覆是說只從LCL裡複製一個檔案是沒辦法起作用的，必須整個Lazarus更新。

felipemdc在釋出號37226中已經修正了先前的問題，他的範例已可用，但是似乎只限於從 Laz程式→android剪貼簿，而從android其他地方複製的內容到Laz程式時會得到空字串，目前原因不明，不過從你原本的文章來看，他覺得似乎你要的主要是複製功能而非貼上。

ppaa

chenyuchih:上面的回覆是說只從LCL裡複製一個檔案是沒辦法起作用的，必須整個Lazarus更新。

felipemdc在釋出號37226中已經修正了先前的問題，他的範例已可用，但是似乎只限於從 Laz程式→android剪貼簿，而從android其他地方複製的內容到Laz程式時會得到空字串，目前原因不明，不過從你原本 .. (2012-05-09 19:39)

非常感谢，目前提供的版本似乎只有37216，37226在哪下载？

lwcvod