怎样调用netants or flashget的程序接口

[sdany]

我想用在程序写提取连接后交给netants or flashget来下载
用delphi写的
thanksyou

[sdany]

对啊，所以我想要一个delphi的例子，
vb,vc 没用过啊

[reallike]

一样啊。

[pankun]

晕.还不是一样的,就语法有点点差别.

[sdany]

哦，
我试试,
:)

[sdany]

var
AntObj :AntAPIObj;
begin
AntObj.AddUrl('http://www.netants.com/netants.exe', 'NetAnts 1.0', 'http://www.netants.com');
If AntObj.IsUrlExist('http://www.netants.com/netants.exe') Then
showmessage('Url Exist!')
Else
showmessage('Url not Exist!');
end;
不行啊
erro:
procject procject1.exe raised exception class eacessviolation with message
access violation at address 00457064 in module 'project1.exe',read of address '0000

[sdany]

我是通过代理上的，是不是与代理有关？

[pankun]

http://www.netants.com/gb/techinfo.html
只有用VB,VC来控制的例子,不过用DELPHI一样的~

[soaringsouth]

我有flashget的，测试通过了。主要如下：
首先，Import typr libary 导入flashget目录下的Dll库。

procedure TMainFrm.FlashGet1Click(Sender: TObject);
var
Url:WideString ;
Info:WideString ;
refer:WideString ;
saveto:WideString;
IFlashGet:JetCarNetscape;
begin
Url:='http://www.amazesoft.com/fc057b.exe';
refer:=Url;
saveto:= 'D:\0722\delphi\ctrl' ;
info:='测试';
// IFlashGet.Open(Url);
IFlashget.AddUrl(Url,info,refer);
end;

procedure TMainFrm.FlashGet2Click(Sender: TObject);
var
UrlList:Olevariant;
n,i:Integer ;
begin
n:=suiDBGrid5.SelectedRows.Count;
UrlList:=VarArrayCreate([0,n],varOlestr) ;
with suiDBGrid5.DataSource.DataSet do
begin
for i:=0 to n do
begin
GotoBookmark(pointer(suiDBGrid5.SelectedRows.Items[i]));
UrlList[i]:= FieldByName('下载地址').AsString;
end;
end;
IFlashget.AddUrlList(UrlList);
end;

[soaringsouth]

IFlashget应该最好为全局变量。

[sdany]

thanks!!!!

[sdany]

我按你说的做可还不行，可否把你的程序发经我看一下，
[e-mail]
thanks 行了就结帖

[naughtyboy]

呵呵，这个问题用com比较麻烦
试试下面的方法，用dde来实现的
uses
ddeman;

var
dde: TDdeClientConv;
begin
dde := TDdeClientConv.Create(nil);
with dde do
begin
ServiceApplication := 'C:\Program Files\FlashGet\flashget';
SetLink('flashget','WWW_ACTIVATE');
RequestData('0xFFFFFFFF');
SetLink('flashget','WWW_OPENURL');
RequestData('http://www.amazesoft.com/fgf087.zip,,0xFFFFFFFF,0x3,,,');
CloseLink;
end;
dde.Free;

end;

[gk0205]

mark