Delphi WebBrowser载入自定义HTML内容并显示

本文整理自网络，侵删。

 

use  
  Winapi.ActiveX;   //调用IPersistStreamInit类
 
procedure TForm1.Button2Click(Sender: TObject);  
var  
  PostList: TStringList;  
  Response, StrStream: TStringStream;  
  ResultString: string;  
begin  
  // 注册  
  PostList := TStringList.Create;  
  Response := TStringStream.Create('', TEncoding.UTF8);  
  try  
    IdHTTP1.HandleRedirects := True;  
  
    PostList.Add('forward=');  
    PostList.Add('jumpurl=http://www.hualongxiang.com/index.php');  
    PostList.Add('step=2');  
    PostList.Add('pwuser=' + Trim(Edit1.Text));  
    PostList.Add('lgt=0');  
    PostList.Add('pwpwd=' + Trim(Edit2.Text));  
    PostList.Add('cktime=31536000');  
  
    ResultString := IdHTTP1.Post('http://jia.hualongxiang.com/register.php', PostList);  
  
    if Pos('200 OK', IdHTTP1.ResponseText) > 0 then  
    begin  
      Memo1.Lines.Add(ResultString);  
   // 以下代码为WebBrowser显示自定义HTML内容  
        WebBrowser1.Navigate('about:blank'); // 必要  
        StrStream := TStringStream.Create(ResultString);  
        try  
          StrStream.Position:=0;  
          (WebBrowser1.Document as IPersistStreamInit).Load(TStreamadapter.Create(StrStream)); // 关键语句  
        finally  
          StrStream.Free;  
        end;  
    // 至此结束  
    end;  
  
  finally  
    PostList.Free;  
    Response.Free;  
  end;  
end;

https://blog.csdn.net/rshhs/article/details/8905859
 

相关阅读 >>

使用串口模拟工具进行串口程序开发调试

了解Delphi过程类型/过程类型学习

Delphi 计算加班时间工时的函数

用Delphi内嵌汇编实现�载任意进程的某个dll

Delphi实现双击左ctrl键调用记事本

Delphi 工程判断内存溢出reportmemoryleaksonshutdown := true;

Delphi三种弹窗

Delphi 内存管理[2]

Delphi 使用tnethttprequest / tnethttpclient访问web服务器

Delphi的枚举类型

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi WebBrowser载入自定义HTML内容并显示