这个组件的功能:在当前的一个网页中,在某个frame中有一个按钮,当按下这个按钮时(这个按钮调用com),这个frame内的内容自动复制到当前打开的word文件的当前光标后
这个是小弟的工作任务,请大家帮忙,谢谢.
我的msn:[email protected]
这个是小弟的工作任务,请大家帮忙,谢谢.
我的msn:[email protected]
解决方案 »
- 请问TfcShapeBtn控件有什么好处,我通过另一程序发按键消息到该按钮,没有响应?应该怎么处理?
- VISTA下的ADSL控制
- 动态连接库调用很奇怪的问题
- 请求高手指点delphi7中软件开发问题
- (帮个忙)controlbar上放了个toolbar如何不用拖动,编程让其离开controlbar变成浮动的!
- 如何用delphi中的ADO访问mysql数据库?
- 修改記錄后POST出錯信息:Insufficient key column Information for updating or refreshing
- Bpl包的调用问题,盼望解答!
- API of Dialog
- delphi编译的exe文件大小有什麽决定,如果有很多TTable,TQuery控件会影响程序的什麽,速度?内存资源?
- 从流中提取jpg文件
- 谁有标准的3des加解密的代码或者控件??急求
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,MSHTML, ActiveX, StdCtrls, OleCtrls, SHDocVw;type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}function GetHTMLCode(WB: IWebbrowser2; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
s: string;
ss: TStringStream;
sa: IStream;
begin
ps := WB.document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa:= TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, Bool(True)));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
ShellWindow: IShellWindows;
WB: IWebbrowser2;
spDisp: IDispatch;
IDoc1: IHTMLDocument2;
k: Integer;
begin
ShellWindow := CoShellWindows.Create;
// get the running instance of Internet Explorer
for k := 0 to ShellWindow.Count do
begin
spDisp := ShellWindow.Item(k);
if spDisp = nil then Continue;
// QueryInterface determines if an interface can be used with an object
spDisp.QueryInterface(iWebBrowser2, WB);
if WB <> nil then
begin
WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
if iDoc1 <> nil then
begin
WB := ShellWindow.Item(k) as IWebbrowser2;
begin
// Add HTML Code to Memo
Memo1.Lines.Add('****************************************');
Memo1.Lines.Add(WB.LocationURL);
Memo1.Lines.Add('****************************************');
GetHTMLCode(WB, Memo1.Lines);
end;
end;
end;
end;
end;
end.