小编meg*_*r0n的帖子

使用Tidhttp与Twebbrowser

我正在使用tidhttp控件来加速Twebbrowser中的网页加载.导航到网址很慢,这就是为什么我不使用它(WebBrowser1.Navigate('some_url_here')).我是这样做的:

procedure TForm1.Button2Click(Sender: TObject);
  procedure LoadHtmlIntoBrowser(var WB: TweBbrowser; const HTMLString: string);
  var
    v: OleVariant;
    HTMLDocument: IHTMLDocument2;
  begin
    WB.Navigate('about:blank');
    while WB.ReadyState < READYSTATE_INTERACTIVE do
      forms.Application.ProcessMessages;

    if Assigned(WB.Document) then
    begin
      HTMLDocument := WB.Document as IHTMLDocument2;
      v := VarArrayCreate([0, 0], varVariant);
      v[0] := HTMLString;
      HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
      HTMLDocument.Close;
    end;
    forms.Application.ProcessMessages;
  end;

var
  str:string;
begin
  str:=idhttp1.Get('http://localhost/myhome.html');
  LoadHtmlIntoBrowser(WebBrowser1,str);
end;
Run Code Online (Sandbox Code Playgroud)

我使用它idHTTP来将html内容转换为字符串,然后将该字符串直接写入Webbrowser.我有一个本地Web服务器设置(XAMPP).我遇到的问题是,在将html内容写入浏览器并点击显示的链接之后,它没有任何地方,即它显示一个大多数空白页面,顶部有"twopage.html".当我右键单击并"查看源代码"时,我得到的"<html>twopage.html</html>"是奇怪的,而不是页面的实际html.

"myhome.html"文件包含

<html>
  <head></head>
  <body><h1>My home</h1><a href="twopage.html"></a></body>
</html>
Run Code Online (Sandbox Code Playgroud)

The other webpage, "twopage.html" contains

<html>
  <head></head>
  <body><h1>Another Webpage</h1></body>
</html>
Run Code Online (Sandbox Code Playgroud)

delphi internet-explorer activex indy twebbrowser

5
推荐指数
1
解决办法
2049
查看次数

检测系统启动事件

我想执行一个应该只在Windows系统启动时触发的过程,这里的启动并不意味着程序启动.我能做些什么来触发我的手术.如果可能的话,我想避免搞乱注册表.我正在使用delphi 2010.

windows delphi delphi-2010

3
推荐指数
1
解决办法
448
查看次数

完全在Flash中构建的网站是否仍然可以搜索引擎优化并且在搜索引擎中可见?

我的网站基本上都是卖服务; 如果我将Flash网站嵌入空白的html页面,我的SEO排名是否会受到影响?我正处于我准备上传网站的关键时刻,但我只是想到了与Flash开展业务的便利性.

html flash seo

1
推荐指数
1
解决办法
593
查看次数

有没有人在这里尝试过梨

嗨,我一直在阅读很多关于PEAR邮件包的文章,看来PEAR是我需要尝试的东西.

我有兴趣设置一个完整的邮件服务器,类似于传统的SMTP邮件服务; 它结合了邮件排队,重发与后端数据库等等.我的印象是PEAR可以做到这一点,但它的服务可以用于邮件客户端,比如outlook发送邮件,就像任何smtp服务器守护进程可以输入端口号的方式一样,服务器名称和/或安全协议?

谢谢

php mysql email pear smtp

0
推荐指数
1
解决办法
222
查看次数

如何将字符串或字符转换为其unicode表示并返回?

我正在学习更多有关Unicode的知识.有人可以演示如何将代码点值转换为字符串,反之亦然.

例如:如何转换U+0037为其字符或字符串表示形式7.

还请说明如何为ascii执行此操作.例如:转换&nbsp;为其字符或字符串表示形式,即空格.

delphi unicode delphi-xe

0
推荐指数
1
解决办法
1520
查看次数