请问怎么使用 TWebBrowser,能给具体的例子吗?找不到资料 请问怎么使用 TWebBrowser,能给具体的例子吗?找不到资料 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TWebBrowser控件直接显示网页源代码 unit MA; interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,OleCtrls, SHDocVw, StdCtrls, Psock, ComObj;typeTForm1 = class(TForm)WB1: TWebBrowser;b1: TButton;urltext: TEdit;listurl: TEdit;Memo1: TMemo;procedure b1Click(Sender: TObject);procedure WB1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);private{ Private declarations }public{ Public declarations }end;{ IPersistStream interface }{$EXTERNALSYM IPersistStream}IPersistStream = interface(IPersist)['{00000109-0000-0000-C000-000000000046}']function IsDirty: HResult; stdcall;function Load(const stm: IStream): HResult; stdcall;// 从流中载入function Save(const stm: IStream;fClearDirty: BOOL): HResult; stdcall;// 保存到流function GetSizeMax(out cbSize: Largeint):HResult; stdcall; // 取得保存所需空间大小end;{ IPersistStreamInit interface }{$EXTERNALSYM IPersistStreamInit}IPersistStreamInit = interface(IPersistStream)['{7FD52380-4E07-101B-AE2D-08002B2EC713}']function InitNew: HResult; stdcall; // 初始化end; varForm1: TForm1; implementation{$R *.DFM} function GetHtml(const WebBrowser:TWebBrowser): string;constBufSize = $10000;varSize: Int64;Stream: IStream;hHTMLText: HGLOBAL;psi: IPersistStreamInit;beginif not Assigned(WebBrowser.Document) then Exit;OleCheck(WebBrowser.Document.QueryInterface(IPersistStreamInit, psi));try//OleCheck(psi.GetSizeMax(Size));hHTMLText := GlobalAlloc(GPTR, BufSize);if 0 = hHTMLText then RaiseLastWin32Error;OleCheck(CreateStreamOnHGlobal(hHTMLText,True, Stream));tryOleCheck(psi.Save(Stream, False));Size := StrLen(PChar(hHTMLText));SetLength(Result, Size);CopyMemory(PChar(Result), Pointer(hHTMLText),Size);finallyStream := nil;end;finallypsi := nil;end;end; procedure TForm1.b1Click(Sender: TObject);beginWB1.Navigate(urltext.text);end; procedure TForm1.WB1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);varp:Ansistring;beginp:=WB1.LocationURL;listurl.text:=p;Memo1.text:=GetHtml(Wb1);end; end. 我不想显示HTML源码,我想在WEBBROWSER中执行 HTML并传回参数 你想说的是TWEBBROWSER的使用方法?不是很明白,如果是基本的使用的话,下面这个网址或许会对你有用http://awin.y365.com/prg/prg51.html,如果我误解了,那就不好意思了 你到yahoo,里面有一个专门讲twebbrowser的论坛。相信可以给你帮助的。 Delphi技术交流三群招人,顶者有分,QQ群:55792798 Delphi的exe代码如何转换为DLL????? 怎么定义公共变量 使各个模块都可以调用阿? rxrichedit 中如何改片图片的大小? 用query从table查询出来的结果可以修改吗?如何修改 用DELPHI做报表。能不能让用户动态的修改报表啊? Delphi中ADO中的一个Bug,D7与D6都有,不知怎么解决?进来讨论者都有分。 有人老在贴子里发“论坛助手”的广告,这种行为真讨厌,大家齐来声讨! 关于WebSnap的一个问题?? 希望交流 如何获得Jpeg、Bmp文件的对比度和亮度? 数据库怪问题
unit MA;
interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,OleCtrls, SHDocVw, StdCtrls, Psock, ComObj;typeTForm1 = class(TForm)WB1: TWebBrowser;b1: TButton;urltext: TEdit;listurl: TEdit;Memo1: TMemo;procedure b1Click(Sender: TObject);procedure WB1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);private{ Private declarations }public{ Public declarations }end;{ IPersistStream interface }{$EXTERNALSYM IPersistStream}IPersistStream = interface(IPersist)['{00000109-0000-0000-C000-000000000046}']function IsDirty: HResult; stdcall;function Load(const stm: IStream): HResult; stdcall;// 从流中载入function Save(const stm: IStream;fClearDirty: BOOL): HResult; stdcall;// 保存到流function GetSizeMax(out cbSize: Largeint):HResult; stdcall; // 取得保存所需空间大小end;{ IPersistStreamInit interface }{$EXTERNALSYM IPersistStreamInit}IPersistStreamInit = interface(IPersistStream)['{7FD52380-4E07-101B-AE2D-08002B2EC713}']function InitNew: HResult; stdcall; // 初始化end; varForm1: TForm1; implementation{$R *.DFM} function GetHtml(const WebBrowser:TWebBrowser): string;constBufSize = $10000;varSize: Int64;Stream: IStream;hHTMLText: HGLOBAL;psi: IPersistStreamInit;beginif not Assigned(WebBrowser.Document) then Exit;OleCheck(WebBrowser.Document.QueryInterface(IPersistStreamInit, psi));try//OleCheck(psi.GetSizeMax(Size));hHTMLText := GlobalAlloc(GPTR, BufSize);if 0 = hHTMLText then RaiseLastWin32Error;OleCheck(CreateStreamOnHGlobal(hHTMLText,True, Stream));tryOleCheck(psi.Save(Stream, False));Size := StrLen(PChar(hHTMLText));SetLength(Result, Size);CopyMemory(PChar(Result), Pointer(hHTMLText),Size);finallyStream := nil;end;finallypsi := nil;end;end; procedure TForm1.b1Click(Sender: TObject);beginWB1.Navigate(urltext.text);end; procedure TForm1.WB1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);varp:Ansistring;beginp:=WB1.LocationURL;listurl.text:=p;Memo1.text:=GetHtml(Wb1);end; end.
你到yahoo,里面有一个专门讲twebbrowser的论坛。相信可以给你帮助的。