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;
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;
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