如何与ＩＥ进行交互？？？？(200分)

0

001china

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #1

我想在软件中实现这样一个功能：就是可以接收从ＩＥ浏览器中拖拽过来的图像文件链接，
然后调用ＩＥ的“另存为”的功能，把这个图像保存到我指定的目录下，但是不会出现
“另存为”功能的对话框，我也不想调用下载函数从网上重新下载这个图像。
简单的说是就是在不出现“另存为”对话框的情况下，由我来完成ＩＥ的“另存为”功能。
还请各位高手多多帮忙，也请对此问题感兴趣的朋友帮忙提前本问题。

 

D

dhl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #2

搜索internet临时文件夹，
找到同名的文件就行了

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #3

使用ie中的com对象应该可以的.

 

0

001china

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #4

to:hbezwwl,能说的具体一些吗？？
我感觉也是要用com！！

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-07

• #5

其实可以用一个简单的方法绕过去的
首先New 一个 Application
在Form上放一个TWebBrowser
在BeforeNavigate2写下面的代码：
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
ShowMessage(URL);
Cancel := True;
end;
然后从IE拖动你要的链接到WebBrowser1上面释放
知道我的意思了？
其实那些图片已经在你的临时目录里了， 直接拷贝应该就可以了
我只是试了一下， 不知是不是对所有对象都有效的。 你可以试验一下。
别忘了把结果贴出来就行了。 ：）

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-07

• #6

又试了一下，基本上来说是没什么问题
但有一个不好的时，如果图片代表的是一个URL，那从IE里拖出来的是那个URL而不是图片本身
即
<a href="ZZQ01.jpg" target="_blank"><img border="0" src="thumb/ZZQ01.jpg" width="100" height="150"></a>
这种情况，拖出来的URL是zzq01.jpg的URL，而不是那个缩略图。

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-07

• #7

对了， 单元末要加上下面的语句：
initialization
OleInitialize(nil);
finalization
try
OleUninitialize;
except end;

 

0

001china

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-09

• #8

接受答案了.