从当前的浏览器取得当前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偷钱流符文搭配推荐

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

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

Javascript教程:获取当前地址栏url

Web开发
Javascript教程:获取当前地址栏url

lolAD刺客新符文搭配推荐

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

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

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

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

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