怎样实现Android剪贴板功能？Lazarus的剪贴板到Android里没作用？

ppaa · 发表于 2012-4-22 17:58:33

ppaa · 发表于 2012-4-22 18:55:49

Clipboard.AsText:=edit1.Text;
不管用

ppaa · 发表于 2012-4-22 21:08:09

这是我查官方的方法，哪一个？高手指教
Clipboard
Clipboard support is implemented in lclintf by implementing Windows API routines. The routines are:
function ClipboardFormatToMimeType(FormatID: TClipboardFormat): string; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function ClipboardGetData(ClipboardType: TClipboardType;
  FormatID: TClipboardFormat; Stream: TStream): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
// ! ClipboardGetFormats: List will be created. You must free it yourself with FreeMem(List) !
function ClipboardGetFormats(ClipboardType: TClipboardType;
  var Count: integer; var List: PClipboardFormat): boolean;  {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function ClipboardGetOwnerShip(ClipboardType: TClipboardType;
  OnRequestProc: TClipboardRequestEvent;  FormatCount: integer;
  Formats: PClipboardFormat): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function ClipboardRegisterFormat(const AMimeType: string): TClipboardFormat; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}

ppaa · 发表于 2012-4-23 08:38:07

ppaa · 发表于 2012-4-23 12:29:38

Clipboard.AsText

ppaa · 发表于 2012-4-23 15:12:46

官方felipemdc回复：
It is not currently implemented. I will try to implement it this week. It would be good if you make a bug report so that this won't be forgotten.

ppaa · 发表于 2012-5-9 15:52:46

官方新版将解决实现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（发送数据）

		自动登录	找回密码
密码			立即注册（注册审核可向QQ群索取）