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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

我有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
      GotoBook(pointer(suiDBGrid5.SelectedRows.Items[i]));
      UrlList[i]:= FieldByName('下载地址').AsString;
    end;
  end;
  IFlashget.AddUrlList(UrlList);
end;

Answer 5

IFlashget应该最好为全局变量。

Answer 6

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

Answer 7

呵呵，这个问题用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;