本文整理自网络,侵删。
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分别连接ms sqlserver、oracle和access数据库的连接字符串
更多相关阅读请进入《Delphi》频道 >>