说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

这是delphi接受IE的url拖放的例子,谁用BCB写出来,送45分,只有这么多了 :(

编辑:说三道四文库 发布时间:2017-08-22 03:57
HTML文档下载 WORD文档下载 PDF文档下载
让自己的程序
可以接受OLE拖放。这需要申明一个COM对象,并支持IDropTarget接口。
下面DragDrop.pas不是我写的:
unit DragDrop;

interface

uses
  Windows, ActiveX, ComObj,Dialogs,Sysutils;

type
  TDropEvent = procedure(Sender:TObject;Msg:Pchar)of object;
  TTMyDrop = class(TComObject, IDropTarget)
  private
    FOnDroped: TDropEvent;
    procedure SetOnDroped(const Value: TDropEvent);
  protected
    {Declare IDropTarget methods here}
    function DragEnter(const dataObj: IDataObject; grfKeyState: Longint;
      pt: TPoint; var dwEffect: Longint): HResult; stdcall;
    function DragOver(grfKeyState: Longint; pt: TPoint;
      var dwEffect: Longint): HResult; stdcall;
    function DragLeave: HResult; stdcall;
    function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint;
      var dwEffect: Longint): HResult; stdcall;
  public
    property OnDroped:TDropEvent read FOnDroped write SetOnDroped;
  end;

const
  Class_TMyDrop: TGUID = '{846C94F8-7649-11D2-9836-0000E82EA1B1}';

implementation

uses ComServ,unit1;

{ TTMyDrop }

function TTMyDrop.DragEnter(const dataObj: IDataObject;
  grfKeyState: Integer; pt: TPoint; var dwEffect: Integer): HResult;
var
  enumFormatEtc: IEnumFormatEtc;
  f:TFORMATETC;
  count:Integer;
  Found:boolean;
begin
  dataObj.EnumFormatEtc(DATADIR_GET,enumFormatEtc);
  Found:=false;
  while (enumFormatEtc.Next(1,f,@count)=S_OK)and (count>0) do
  begin
    if (f.cfFormat=CF_TEXT) then
    begin
      Found:=true;
      Break;
    end;
  end;
  if Found then
    Result:=S_OK
  else
  begin
    result:=E_INVALIDARG;
    dwEffect:=DROPEFFECT_NONE;
  end;
end;

function TTMyDrop.DragLeave: HResult;
begin
   result := S_OK;
end;

function TTMyDrop.DragOver(grfKeyState: Integer; pt: TPoint;
  var dwEffect: Integer): HResult;
begin
   result := S_OK;
end;

function TTMyDrop.Drop(const dataObj: IDataObject; grfKeyState: Integer;
  pt: TPoint; var dwEffect: Integer): HResult;
var
  enumFormatEtc: IEnumFormatEtc;
  f:TFORMATETC;
  count:Integer;
  Found:boolean;
  medium: TStgMedium;
begin
  dataObj.EnumFormatEtc(DATADIR_GET,enumFormatEtc);
  Found:=false;
  while (enumFormatEtc.Next(1,f,@count)=S_OK)and (count>0) do
  begin
    if (f.cfFormat=CF_TEXT) then
    begin
      Found:=true;
      Break;
    end;
  end;
  if not Found then
  begin
    result:=E_INVALIDARG;
    dwEffect:=DROPEFFECT_NONE;
    Exit;
  end;
  dataObj.GetData(f,medium);
  if medium.tymed =1 then
  begin
    if Assigned(fOnDroped) then
    begin
      fOnDroped(Self,PChar(GlobalLock(medium.hglobal)));
      GlobalUnLock(medium.hglobal);
    end;
    result := S_OK;
  end;

end;

procedure TTMyDrop.SetOnDroped(const Value: TDropEvent);
begin
  FOnDroped := Value;
end;

initialization
  TComObjectFactory.Create(ComServer, TTMyDrop, Class_TMyDrop,
    'TMyDrop', '', ciMultiInstance{, tmApartment});
end.

在自己的程序中,在FormCreate的时候,加入:

  OleInitialize(NIL);
  dd := TTMyDrop.Create;
  dd.OnDroped:=DoDroped;
  res1 := CoLockObjectExternal(dd, true, false);
  res := RegisterDragDrop(Handle, IDropTarget(dd));

其中,DoDroped在拖放发生时被调用:
procedure TForm1.DoDroped(Sender: TObject; Msg: Pchar);
begin
  ...//此处最好不要有太耗时的工作,因为被拖出的程序(比如说是浏览器)
     //要等待此事件结束
end;

在FormDestroy时:
  RevokeDragDrop(Handle);
  OleUninitialize;





一定要用COM对象吗?
用OLE2 接口就行了吧!
TTMyDrop = class(TInterfacedObject, IDropTarget)
这样用的资源更少,也不用包含与com有关的unit了,只用
包含activex就行了。
也不用产生TComObjectFactory。
没人做过吗?


你最多只能给49分,分数增加后超过了。, ?????????????什么意思?
强烈关注
我也是这样啊!
我想一次给别人一百分,,
但不能害得我分成几次给。。
看来这个问题没人能答

还有几位朋友都想送分,可惜没人能要。

flashGet 和 一拖即存 ,还有聊天宝宝, 网络收藏家都有这功能啊,为什么这就没人会呢?

我是不是该到delphi那边去问? :(
你想要吗?我刚刚写好了一个。呆会给你贴出来。
//////////////////////////////////////////////
//头文件

//---------------------------------------------------------------------------

#ifndef MyDropTargetH
#define MyDropTargetH
//---------------------------------------------------------------------------
#include "oleidl.h"
//---------------------------------------------------------------------------
class TDropBlasketMainForm;
class TMyDropTarget : public IDropTarget
{
public:
    TMyDropTarget(TDropBlasketMainForm* pForm);
    ~TMyDropTarget();
public:
    HRESULT STDMETHODCALLTYPE QueryInterface(REFIID iid, void ** ppv);
    ULONG STDMETHODCALLTYPE AddRef(void);
    ULONG STDMETHODCALLTYPE Release(void);

    HRESULT STDMETHODCALLTYPE DragEnter(IDataObject __RPC_FAR *pDataObj, DWORD grfKeyState, POINTL pt, DWORD __RPC_FAR *pdwEffect);
    HRESULT STDMETHODCALLTYPE DragOver(DWORD grfKeyState, POINTL pt, DWORD __RPC_FAR *pdwEffect);
    HRESULT STDMETHODCALLTYPE DragLeave( void);
    HRESULT STDMETHODCALLTYPE Drop(IDataObject __RPC_FAR *pDataObj, DWORD grfKeyState, POINTL pt,DWORD __RPC_FAR *pdwEffect);
private:
    int m_nRef;
    IDataObject* m_pDataObj;
    TDropBlasketMainForm* m_pForm;

    BOOL IsDataAvailable(IDataObject __RPC_FAR *pDataObj, CLIPFORMAT cfFormat);
};
#endif

/////////////////////////////////////////////////
//实现文件
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "frmDropBlasketMain.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

TMyDropTarget::TMyDropTarget(TDropBlasketMainForm* pForm)
{
    m_nRef = 0;
    m_pDataObj = NULL;
    m_pForm = pForm;
}
TMyDropTarget::~TMyDropTarget()
{
}

HRESULT STDMETHODCALLTYPE TMyDropTarget::QueryInterface(REFIID iid, void ** ppv)
{
    if (iid == IID_IUnknown)
    {
        *ppv = (IUnknown *)this;
        AddRef();
    }
    else if (iid == IID_IDropTarget)
    {
        *ppv = this;
        AddRef();
    }
    else
    {
        *ppv = NULL;
        return E_NOINTERFACE;
    }
    return S_OK;
}
ULONG STDMETHODCALLTYPE TMyDropTarget::AddRef(void)
{
    m_nRef++;
    return (ULONG)m_nRef;
}
ULONG STDMETHODCALLTYPE TMyDropTarget::Release(void)
{
    m_nRef--;
    if (m_nRef == 0)
    {
        delete this;
        return 0;
    }
    return (ULONG)m_nRef;
}

BOOL TMyDropTarget::IsDataAvailable(IDataObject __RPC_FAR *pDataObj, CLIPFORMAT cfFormat)
{
FORMATETC formatEtc = {cfFormat, 0, DVASPECT_CONTENT, -1, DWORD(-1)};

BOOL bRet = (pDataObj->QueryGetData(&formatEtc) == S_OK);
    return bRet;
}

HRESULT STDMETHODCALLTYPE TMyDropTarget::DragEnter(IDataObject __RPC_FAR *pDataObj, DWORD grfKeyState, POINTL pt, DWORD __RPC_FAR *pdwEffect)
{
    m_pDataObj = pDataObj;

if (!IsDataAvailable(m_pDataObj, CF_TEXT))
*pdwEffect = DROPEFFECT_NONE;
    else
        *pdwEffect = DROPEFFECT_LINK;
    return S_OK;
}
HRESULT STDMETHODCALLTYPE TMyDropTarget::DragOver(DWORD grfKeyState, POINTL pt, DWORD __RPC_FAR *pdwEffect)
{
if (!IsDataAvailable(m_pDataObj, CF_TEXT))
*pdwEffect = DROPEFFECT_NONE;
    else
        *pdwEffect = DROPEFFECT_LINK;
    return S_OK;
}

HRESULT STDMETHODCALLTYPE TMyDropTarget::DragLeave( void)
{
    return S_OK;
}
HRESULT STDMETHODCALLTYPE TMyDropTarget::Drop(IDataObject __RPC_FAR *pDataObj, DWORD grfKeyState, POINTL pt,DWORD __RPC_FAR *pdwEffect)
{
    HGLOBAL  hGlobal;
    LPCSTR   pData;

if (IsDataAvailable(pDataObj, CF_TEXT))
{
STGMEDIUM Stg;
     FORMATETC formatEtc = {CF_TEXT, 0, DVASPECT_CONTENT, -1, DWORD(-1)};
BOOL bValue = (pDataObj->GetData(&formatEtc, &Stg) == S_OK);
        if (bValue)
        {
     TCHAR *strText = (TCHAR*)GlobalLock(Stg.hGlobal);

     AnsiString strUrl = strText;

            m_pForm->AddURL(strUrl);

     GlobalUnlock(Stg.hGlobal);
    GlobalFree(Stg.hGlobal);
        }
}

    return S_OK;
}

//////////////////////////////////////////////
//使用:

在Form1:OnCreate里面:

    m_pDropTarget = NULL;
    m_pDropTarget = new TMyDropTarget(this);
    m_RegisterDragDrop(Handle, pDropTarget);

现在,就可以接受拖放了
首先声明,这部分代码,并不是从delphi那里搬过来的,而是看了mfc的部分代码,自己写成的,里面可能有不少的bug,不过,至少从ie里面,接受url拖放,是可行的了。

我的主业上面,有一个例子。
http://www.shijun.com/iel/cn/download.html
OK, 我测试完后就送分

叶老大, 学了一手,也要给人家送点分哦,不能白拿
试一试,
*.h
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
        void __fastcall FormCreate(TObject *Sender);
protected:
    BEGIN_MESSAGE_MAP
        VCL_MESSAGE_HANDLER(WM_DROPFILES, TMessage, trydo)
    END_MESSAGE_MAP(TForm)
    void _fastcall trydo(TMessage &Msg);
private:
            bool drawing;
            int xx,yy;
            // User declarations
public:

        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
*.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)
{
}
//---------------------------------------------------------------------------
void _fastcall TForm1::trydo(TMessage &Msg)
{
char buffer[128];
int i,sum;
sum=DragQueryFile(HDROP(Msg.WParam),0xFFFFFFFF,NULL,0);//获得文件个数
ShowMessage(sum) ;
for(i=0;i<sum;i++)
{
DragQueryFile(HDROP(Msg.WParam),i,buffer,128);
ShowMessage(buffer);//取得文件名
}
DragFinish(HDROP(Msg.WParam));
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
DragAcceptFiles(Handle,true);        
}
//---------------------------------------------------------------------------
to easypaper() :

   兄台, 您提供的例子我用了一下, 总是有点问题 可以打个包给我吗?
   cool_calf@163.net   QQ:28551
   你的 BatchAdd 做得很不错。 按钮不错。 弹出菜单的兰色条不错。
   可惜在我的机子上运行时出错。

to czylj(夭夭) :
   你列出的程序是什么?


 
使用DragDrop 4.0 ,支持 BCB5.0
RegisterDragDrop之前用OleInitialize(NULL)初始化
接受拖放呀,
不好意思,看错了
coolcalf(牛犊初生):

你遇到的问题,可能就是bilyx所说的,

少了RegisterDragDrop之前用OleInitialize(NULL)初始化 

至于我的程序出错,是很正常的,因为这只是一个程序里面的部分内容,需要其他的程序支持(在我的叶上面有)。
to easypaper() 
咦,怎么http://www.shijun.com/iel/cn/download.html 上不了,说网站没创建的。
To wowboy(星仔):
==================
http://www.shijun.com/cn/iel/index.html
study
IBM Power走向Linux,是必然的! 美国国家安全局解密特工培训手册:如何利用谷歌等大众搜索工具搜集保密数据 微软IE10如何保护上网安全(大图) 谷歌无畏苹果的理由:强力的算法和基础设施架构 开发者热议异构统一内存访问技术(hUMA) 千万级并发实现的秘密:内核不是解决方案,而是问题所在! Apache RewriteRule重写规则语法入门 IDC:2013 Q1 Android和iOS出货量占92% WP首超黑莓 传雅虎欲10亿美元收购轻博客网站Tumblr A Beautiful Mess:如何赚男人女人的钱 CSS、JavaScript开发者必备的10款最佳工具 IBM推出API管理平台 抢占API经济市场份额 2013中国云计算榜单之一:15云平台,谁主沉浮? 移动周报:百万壁纸、85后程序媛,我为梦想代言! 电信天翼开放平台:为App开发者免费提供云存储和云主机服务 Google新的Web UI库:Ploymer 研发周报:让开发者高效编程的10个新框架 拯救行将就木的PHP:谷歌为GAE添加PHP支持 PPT集萃(一):10位业内高管分享云计算技术理念与行业趋势 得益于苹果谷歌,未来可穿戴技术市场规模可达500亿美元 雅虎11亿美元押注Tumblr三大因素:用户、社交、内容 Perceptual:英特尔感知计算挑战赛 正式启动 吴义坚:创业去!我用深度神经网络,处理语音识别 浅谈用户体验的“反面模式 可穿戴设备又一站:增强现实眼镜CastAR 数字医疗投资将破纪录 投资人看好这些细分领域 Mayer又下一城:雅虎收购Tumblr推进移动化? 前端开发利器:代码预处理工具Prepros 一个轻量级的JavaScript库:Reactor.js [探讨] 用户体验设计师现在面临怎样的机遇和挑战? PPT集萃(二):淘宝、CloudStack等分享的架构经验与最佳实践 有谁知道大富翁论坛离线资料的下载地址,就是那个chm格式的200多M的? 如何将字符串转换成ASCII码 假如我将扩展分区设成活动分区,然后在其中的一个驱动器安装98。问题:98能启动吗?主分区C盘有东西吗? 如何捕获,comboBOx 选中下拉项中其中一项的事件? c#中前面定义的变量,后面用到的时候也要和前面一样的大小写么?? 奇怪的问题,看谁能解答,高分给决不失言!! 如何在程序中获得鼠标的位置? VB生成的.EXE文件怎么取外面传过来的参数? 下面的代码有什么问题吗? 想继续考scjd.大家有什么好建议? 如何使表格出现纵向和横向滚动条,并第一行,第一列,最后一列固定不动? 访问网站正常,可是不能下载。流量一大网关就出错。马上揭帖。 我想请教一下 java中调用dll! 定时重发问题? 这个错误怎么解决,急!!! VB生成的.EXE文件怎么取外面传过来的参数? 请问如何才能得到程序窗口的句柄? 谁有KYLIX3的注册码 请各位大虾帮帮忙呀~~客户机配置问题??在线送分... 项目的设计和实现,请大家帮我一下 如何让datagrid在数据不足5行的时候显示5行? 各位帮帮忙,一个问题总是想不到解决的方法,急啊!!! 谁哪里有好的打包软件 EPSON LQ-1600K3在九城单证中打印预览时,最后几行没有!!! 呜呼哀哉,我无法可想! 关于get与set Win XP登录域特别慢是怎么回事 如果我手头没有相应的硬件资源,如 语音卡,那我怎么学开发编程呢? Linux下如何进行画图方面的编程? ClientToScreen API函数怎么用? 救命啊~~~ 请问怎样使“Form”在屏幕上显示在需要的位置上? 还是关于串口通讯的问题??? 初学者 一个Warning请帮忙解决一下,谢谢! database中的servername 的动态更改 用VB操作SQL SERVER数据库,怎么把以image格式存储起来的数据读出来啊?谢谢 我的PAINTER没有EXE文件 救命啊~~~ 请大家讨论或投票-目前那一个WEB开发框架比较好! 自动返回上一页代码怎么写? 头疼的问题,请指教关于linux网络服务的问题! 自绘标题栏的问题,详细描述请进来看(如果能解决晚上结贴) 如果我手头没有相应的硬件资源,如 语音卡,那我怎么学开发编程呢? 请教sql中的时间函数的使用。 救命啊~~ 一个很基础的问题,各位大虾请帮忙,在下多谢多谢。 自动返回上一页代码怎么写? 怎么遍历整个硬盘,或者是一个分区,找出其下所有的*.bmp,*.jpg 急!!!300分求救!!!! “椭圆中,焦点到椭圆上最短距离为3”具体指哪一段 I can't be anything.I just want to treasure you.This time maybe I should let it go.Give all things up.这是啥意思 阻波器起到什么作用 怎样看待网络传播与舆论监督? 请帮忙分析下这句话的语法是否有问题 Maybe!I really should go to see a psychologist.这句话的语法总觉得别扭.是不有chinglish之嫌. 电力机械阻波器有什么作用? 英语翻译 b受体阻制剂的作用分子机制是怎么样的? 求问阻波器和耦合电容器的作用是什么? 悬牛首卖马肉的翻译 塬 茆 怎么读 写出下列各题中y关于x的函数表达式并判断:y是否为x的一次函数?是否为正比例函数?1、长方形的面积为20,长方形的长y关于宽x的函数表达式2、西瓜刚上市时的价格为3.6元每千克,卖西瓜的总 犹悬牛首宇门,而卖马肉于内也.怎么翻译 “茆”,这个字怎么念呢? 一次函数y=k,x-4与正比例函数y=k=x的图像经过点(2,-1),分别求出这两个函数的表达式 这个振荡器怎么是这个频率?这个电容三端式振荡电路,我算的理论频率是26.39MHz,有的人说频率是...(我忘了,但是可以被广播收到).我实际测得的频率是84.8MHz左右,那个人是对的.我现在就是不 "茆玥"念什么? 旧时茅店社林边,路转溪桥忽见 . 锁相环调频时,外加载波信号频率与压控振荡器的中心频率,哪个频率稳定度要求较高?第二个问题,锁相环调频与锁相环鉴频均有低通滤波器,他们的特性有何不同? 谁知道周慧敏有关的那个叫茆茆的博客? 旧时茅店社林边,路转溪桥忽见诗句的意思 已知正三棱柱内接于一个半径为2的球,则正三棱柱的侧面积取得最大值时,描述:其底面边长为多少 关于冷锋暖锋 低压 高压和天气的关系不用跟我说它们是哪门形成的 我只是想知道冷锋和暖锋下的天气是不是强调一个变化性,低压和高压下的天气是比较单一的? 单片机I/O接排阻的作用 用尼龙坐定滑轮和用铁做定滑轮哪个好那种能使钢丝绳的使用寿命更长 为什么高压连着暖锋,低压连着冷锋 排阻的作用是什么啊如题 甲乙两质点饶统一圆心作匀速圆周运动,甲转动的半径是乙的3/4 当甲转60周时,乙转转45周,两质点的向心加速度之比是多少? 图中气压状况是由热力作用引起,读图回答下列问题若该区域位于北半球,B点吹________风. 排阻在电路中有什么作用 甲乙两质点饶统一圆心作匀速圆周运动,甲转动的半径是乙的3/4 当甲转60周时,乙转45周,甲乙两质点的线速度之比是多少? 四处气压中心,由于热力原因形成的是() 哈勃望远镜全集?哈勃望远镜高清?哈勃望远镜在线观看地址?或者要下载最快的,而且我是下到MP5里的.最好是高清 皈罇獧矣 立体几何 正三棱柱正三棱柱ABCD-A1B1C1D1所有棱长均为2,P是侧棱AA1上任意一点.当BC1垂直于B1P时,求AP的长 正弦波振荡器的振荡条件是:模电填空题, 茆胤这俩是什么字 高一立体几何:正三棱柱外接球的直径是哪条线如题 构成正弦波振荡器必须具备的三个条件是什么? 请问 .茆 字怎么发音,在下孤陋寡闻 我想用一个两相电机,加一个蜗轮减速机,加两个滑轮,通过钢丝绳起吊重量为1吨,求电机功率与控制线路. 反馈型正弦波振荡器的平衡条件是(). 茆可以组什么词? 再有摩擦的情况下,动量定理适用吗?如图所示,小球A系在细线的一端,线的另一端固定在O点,O点到水平面的距离为h.物块B质量是小球的5倍,至于粗糙的水平面上且位于O点正下方,物块与水平面间 正弦波振荡器只要满足起振条件,就可以产生震荡.答案是错的,为什么? 帮我查查KA 0380-5559 5 42这个邮政包裹到哪了? 到两定点距离之和为常数的点轨迹是椭圆 正弦波振荡器电路,利用正反馈维持振荡的条件是什么 过氧化氢制取氧气的试验中过氧化氢的质量有所改变吗加入一定量的过氧化氢试验,试验结束后,过氧化氢的质量有改变吗? 几岁成年 [旧时茅店社林边,路转溪桥忽见]意思 分子与分子之间,是以什么做为界限的? 丝绸之路的具体路线是什么? 旧时茅店社林边,路转溪桥忽见的意思 相对分子质量是指分子中所含 的 之和 建筑中什么是等轴侧和正交视图视图?什么叫做等轴侧视图? "旧时茅店社林边,路转溪桥忽见"的意思 羚羊木雕伤疤的含义 有没有可能除了准线,还有其他直线,椭圆上一点到焦点与到他距离之比为常数? maybe I should just quit and go back to making noodles 功夫熊猫的台词 此句中的 to making 是什么结构,to后面不是要加 动词原形? 阻波器的作用和原理? 叙利亚当局表明愿无条件参加叙问题国际留祥路本月起改叫石祥西路 路牌错了破男硕士年薪5万月花400 穿旧衣相亲男子为救假装落水儿童瘫痪 28年后获美国六大互联网巨头致信国会要求改革监自称21岁大学生 40岁男子男扮女装中央第八巡视组组长:着力发现选人用人杭州13岁姑娘失踪5天 在社会上结识快递哥邱师傅倒在送货路上 同行前去凭绍兴印染温州电镀两个“污染大户”转型温州双岙村遭垃圾围堵 焚烧垃圾引消防爱心的哥贵师傅往返江山衢州送尿毒症患思鑫坊曾是杭城近代建筑代表 如今成无空气污染致癌 波兰向碳排放开刀法缩短我公民办理赴法旅游签证时间“美丽中国”大型图片展在莫斯科举行解决伊核问题需要信任和耐心智利沿海发生6.6级地震 圣地亚哥房尼日尔移民车沙漠抛锚 致90人脱水而人民币设计者:女拖拉机手不是“人民币武警战士吐槽办证难:户口20多年没办据说,情人节好男人会送给喜欢的女人…解放军模拟攻台总统府 看看对岸怎么说美国一民宅发生枪击事件致4人死亡 含那个一事无成的人量产在即!解放军这次4架歼20同时试好公司与坏公司三菱董事称盼与二战中国劳工和解:会有从火焰与海水看动力煤价格走向王思聪出任万达电商CEO、雷军董明珠继续领跑!小米Note顶配版全网通即真正的团队,必须要拍死这6大负能量!国企改革顶层设计方案进入倒计时 六股管理做什么,必须由经营来决定!央企改革概念继续大涨 长春一东六涨停快讯:金融股强势拉升 沪指涨近1%中国铁建向墨西哥索赔 天目药业陷股权正是孤独让你变得出众苏军在东北以胜利者自居 青楼吃霸王餐马云团队被指欺诈中美律所群攻 如何解别样仙侠世界《天空之城》PVE玩法大官方否认电信业重组舆论存疑|舆情观察
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘