如何把剪粘板的内容导出,导入(我不知道剪粘板里存储的数据类型)
解决方案 »
- 请教delphi2010中idhttp控件的问题
- 这个时间段查询语句怎么有问题?
- 动态类应该如何生成?
- 各位高手,怎样编写一个后台监视程序,判断一个文件是否正在被使用,若被使用弹出一个信息告诉用户说该文件正在被使用,否则一直监视。这
- 商议C\B构架解决方案
- 怎样才能使pagecontrol不在form上凸出来?
- 为什么ADOTABLE没有EMPTYTABLE方法?
- 各位大哥!帮帮小弟!万分感谢!listview的问题(分已不多了,谢谢!)
- 屏幕分辨率的问题
- 兄弟们﹐我想把Delphi放一放了﹐全心搞自考! (本科计算机专业),文凭太重要了﹐我在广东,能提点信息或建议吗,大家元旦快乐喽,没有什幺礼物﹐只能送点分啦!
- 三层结构与C/S结构相比,优势是什么?
- 关于udpsocket严重报错的问题
标题:剪贴板的流存储
说明:如果你想借用剪贴板,有这套函数就方便了
设计:Zswang
日期:2003-11-14
支持:[email protected]
//*)///////Begin Source
uses Clipbrd;type
TDataIdnet = array[0..2] of Char; TClipboardFileHead = packed record
rIdent: TDataIdnet;
rCount: Word;
end; TClipboardFileItem = packed record
rFormat: Word;
rSize: Longword;
rData: Pointer;
end;const
rDataIdnet: TDataIdnet = 'cbf';function ClipboardSaveToStream(mStream: TStream): Boolean;
var
vClipboardFileHead: TClipboardFileHead;
vClipboardFileItem: TClipboardFileItem;
I: Integer; vData: THandle;
begin
Result := False;
if not Assigned(mStream) then Exit;
vClipboardFileHead.rIdent := rDataIdnet;
vClipboardFileHead.rCount := Clipboard.FormatCount;
mStream.Write(vClipboardFileHead, SizeOf(vClipboardFileHead));
try
Clipboard.Open;
for I := 0 to Clipboard.FormatCount - 1 do begin
vData := GetClipboardData(Clipboard.Formats[I]); vClipboardFileItem.rFormat := Clipboard.Formats[I];
vClipboardFileItem.rSize := GlobalSize(vData); vClipboardFileItem.rData := GlobalLock(vData);
try
mStream.Write(vClipboardFileItem, SizeOf(vClipboardFileItem) -
SizeOf(vClipboardFileItem.rData));
mStream.Write(vClipboardFileItem.rData^, vClipboardFileItem.rSize);
finally
GlobalUnlock(vData);
end;
end;
finally
Clipboard.Close;
end;
Result := True;
end; { ClipboardSaveToStream }function ClipboardLoadFromStream(mStream: TStream): Boolean;
var
vClipboardFileHead: TClipboardFileHead;
vClipboardFileItem: TClipboardFileItem; I: Integer;
vData: THandle;
begin
Result := False;
if not Assigned(mStream) then Exit;
if mStream.Size <= SizeOf(vClipboardFileHead) then Exit;
mStream.Read(vClipboardFileHead, SizeOf(vClipboardFileHead));
if vClipboardFileHead.rIdent <> rDataIdnet then Exit;
Clipboard.Clear;
Clipboard.Open;
try
for I := 0 to vClipboardFileHead.rCount - 1 do begin
mStream.Read(vClipboardFileItem, SizeOf(vClipboardFileItem) -
SizeOf(vClipboardFileItem.rData));
vData := GlobalAlloc(GMEM_MOVEABLE + GMEM_DDESHARE,
vClipboardFileItem.rSize);
try
vClipboardFileItem.rData := GlobalLock(vData);
try
mStream.Read(vClipboardFileItem.rData^, vClipboardFileItem.rSize);
SetClipboardData(vClipboardFileItem.rFormat, vData);
finally
GlobalUnlock(vData);
end;
finally
GlobalFree(vData);
end;
end;
finally
Clipboard.Close;
end;
Result := True;
end; { ClipboardLoadFromStream }
///////End Source///////Begin Demo
procedure TFormClipboard.ButtonSaveClick(Sender: TObject);
var
vMemoryStream: TMemoryStream;
begin
if not SaveDialog1.Execute then Exit;
if FileExists(SaveDialog1.FileName) and
(MessageDlg(Format('是否覆盖文件 "%s"?', [SaveDialog1.FileName]),
mtWarning, [mbYes, mbNo], 0) <> mrYes) then Exit;
vMemoryStream := TMemoryStream.Create;
try
ClipboardSaveToStream(vMemoryStream);
vMemoryStream.SaveToFile(SaveDialog1.FileName);
finally
vMemoryStream.Free;
end;
end;procedure TFormClipboard.ButtonLoadClick(Sender: TObject);
var
vMemoryStream: TMemoryStream;
begin
if not OpenDialog1.Execute then Exit;
if not FileExists(OpenDialog1.FileName) then Exit;
vMemoryStream := TMemoryStream.Create;
try
vMemoryStream.LoadFromFile(OpenDialog1.FileName);
ClipboardLoadFromStream(vMemoryStream);
finally
vMemoryStream.Free;
end;
end;
///////End Demo