从当前的浏览器取得当前URL

丶念芳

丶念芳

2016-02-19 13:04

清醒时做事,糊涂时读书,大怒时睡觉,无聊时关注图老师为大家准备的精彩内容。下面为大家推荐从当前的浏览器取得当前URL,无聊中的都看过来。
我在www.playicq.com看了一篇同名的文章,是用Delphi写的。试了以后效果还行,主要是利用了TDdeClientConv,于是改成CB版的贴出来。蓝色字符为手动添加的。
  
  Unit1.Cpp
  //---------------------------------------------------------------------------
  
  #include vcl.h
  #pragma hdrstop
  
  #include "Unit1.h"
  //---------------------------------------------------------------------------
  #pragma package(smart_init)
  #pragma resource "*.dfm"
  TForm1 *Form1;
  //---------------------------------------------------------------------------
  __fastcall TForm1::TForm1(Tcomponent* Owner)
  : Tform(Owner)
  {
  }
  //---------------------------------------------------------------------------
  String TForm1::Get_URL(AnsiString Servicio)
  {
  TDdeClientConv *Cliente_DDE=new TDdeClientConv(NULL);
  char *temp;
  Cliente_DDE-SetLink(Servicio,"WWW_GetWindowInfo");
  temp=Cliente_DDE-RequestData("0xFFFFFFFF");
  Cliente_DDE-CloseLink();
  delete Cliente_DDE;
  return String(temp);
  }
  //---------------------------------------------------------------------------
  void __fastcall TForm1::Button1Click(Tobject *Sender)
  {
  ShowMessage(Get_URL("IeXPlore"));
  }
  //---------------------------------------------------------------------------
  
  Unit1.H
  //---------------------------------------------------------------------------
  
  #ifndef Unit1H
  #define Unit1H
  //---------------------------------------------------------------------------
  #include Classes.hpp
  #include Controls.hpp
  #include StdCtrls.hpp
  #include Forms.hpp
  #include "ddeman.hpp"
  //---------------------------------------------------------------------------
  class TForm1 : public Tform
  {
    __published: // IDE-managed Components
        Tbutton *Button1;
        void __fastcall Button1Click(Tobject *Sender);
    private: // User declarations
        String TForm1::Get_URL(AnsiString Servicio);
    public: // User declarations
        __fastcall TForm1(Tcomponent* Owner);
  };
  //---------------------------------------------------------------------------
  extern PACKAGE TForm1 *Form1;
  //---------------------------------------------------------------------------
  #endifright">(出处:清风软件下载学院)
展开更多 50%)
分享

猜你喜欢

从当前的浏览器取得当前URL

编程语言 网络编程
从当前的浏览器取得当前URL

获取当前url

Web开发
获取当前url

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

获得当前页面URL地址的三个JS代码

Web开发
获得当前页面URL地址的三个JS代码

IE浏览器快速打开当前Firefox中的网页链接

浏览器
IE浏览器快速打开当前Firefox中的网页链接

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

傲游浏览器关闭当前标签的快捷键是什么

浏览器
傲游浏览器关闭当前标签的快捷键是什么

搜狗高速浏览器如何保存当前页面完整截图

浏览器
搜狗高速浏览器如何保存当前页面完整截图

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Java学习从入门到精通[书籍]

Java学习从入门到精通[书籍]

jQuery 练习[一] 学习jquery的准备工作

jQuery 练习[一] 学习jquery的准备工作
下拉加载更多内容 ↓