ab.com コミュニティ

[quote="イグトランス"]SetClipborardDataしたものはGlobalFreeをする必要がない，というよりしてはなりません。[/quote]

このへんがかなり気になったので調べてみました。

[url=http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpipc/html/_win32_setclipboarddata.asp]SetClipboardData （日本語）[/url]
[quote]アプリケーションはデータを読み取れますが、CloseClipboard 関数を呼び出すまでは、そのハンドルを解放することや、ロックし続けることを避けなければなりません。[/quote]
日本語版では「CloseClipboard() するまではメモリを解放してはいけない」となっていて、見方を変えると「CloseClipboard() したらメモリを解放してもよい（すべき？）」てな感じに受け取れます。

[url=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/dataexchange/clipboard/clipboardreference/clipboardfunctions/setclipboarddata.asp]SetClipboardData Function （英語）[/url]
[quote]The application may not write to or free the data once ownership has been transferred to the system, but it can lock and read from the data until the CloseClipboard function is called.[/quote]
あれ？なんか言ってること全然違うような・・・

どちらの情報が正しいのかはこれだけでは判断できないのでサンプルプログラムもあさってみたのですが、困ったことに MS 公式の文書でも、事後に GlobalFree() しているサンプルもあればしていないサンプルもあったり・・・。
結局どちらが正しいのか判断できませんでした。すみません。

実践コードモジュールにクリップボード操作用のクラスがあったはずなので、それを使えば簡単だと思うのですが。。。

SetClipborardDataしたものはGlobalFreeをする必要がない，というよりしてはなりません。

失礼します。

クリップボードに取り付けする作業を２回やりたいのですが、

Open "２.txt" For Input As 1
Input #1,data
Close 1

hText=GlobalAlloc(GMEM_DDESHARE Or GMEM_MOVEABLE,Len(data)+1)
lpText=GlobalLock(hText)
lstrcpy(lpText,StrPtr(data))
GlobalUnlock(hText)

OpenClipboard(0)
EmptyClipboard()
SetClipboardData(CF_TEXT,hText)
CloseClipboard()

GlobalFree(hText)

とkonisiさんのコードに付け加えても、２回目がうまく取り付けできません。
どこがいけないのですか。

うまくできました。ありがとうございます。

Dim data As String
Dim lpText As BytePtr,hText As HGLOBAL

Open "1.txt" For Input As 1
Input #1,data
Close 1

hText=GlobalAlloc(GMEM_DDESHARE Or GMEM_MOVEABLE,Len(data)+1)
lpText=GlobalLock(hText)
lstrcpy(lpText,StrPtr(data))
GlobalUnlock(hText)

OpenClipboard(0)
EmptyClipboard()
SetClipboardData(CF_TEXT,hText)
CloseClipboard()

GlobalFree(hText)

適当にググったら(Cですが)コードが出てきた。
ABに移植するとこんな感じ

[code]Dim data As String
Dim lpText As BytePtr,hText As HGLOBAL

Open "1.txt" For Input As 1
Input #1,data
Close 1

hText=GlobalAlloc(GMEM_DDESHARE Or GMEM_MOVEABLE,Len(data)+1)
lpText=GlobalLock(hText)
lstrcpy(lpText,StrPtr(data))
GlobalUnlock(hText)

OpenClipboard(0)
EmptyClipboard()
SetClipboardData(CF_TEXT,hText)
CloseClipboard()

GlobalFree(hText)[/code]

http://nienie.com/~masapico/api_SetClipboardData.html

StrPtr関数をうまく使えました、ありがとうございます。
しかし、ｔｘｔから読み込めてもクリップボードにセットできません。

Declare Function EmptyClipboard Lib "user32" ( ) As Long
は、
EmptyClipboard()　と変更すれば良いのですか？

そうすると空にできますが、セットができません。
どこがいけないのでしょうか、教えてください。

ファイル系Input文を使う時は、String型にしないといけなかった気がします。
String型→BytePtr型の変換にはStrPtr関数が使えます。

date:日付
data:データ、資料

ところで、EmptyClipboard関数が、定義されてるだけで使われていないように見えるんですが・・・？

Open "1.txt" For Input As 1
Input #1,date
Close 1

OpenClipboard(0)
Declare Function EmptyClipboard Lib "user32" ( ) As Long
SetClipboardData(CF_DSPTEXT,date)
CloseClipboard()

で、クリップボードにtxtの文字列をコピーしたいのですが、
Dim date As BytePtr　としても失敗してしまいます。
dateはどのような変数定義にすればいいのですか。