[DragonUA]

пишу консольное приложение.
требуется загрузить файл
на это ругаются почти все антивирусы:

Код:

  if UrlDownloadToFile(nil, PChar(http), PChar(txt), 0, nil) = 0 then
...

есть ли альтернативная функция, на которую антивирусы не реагируют? именно для консоли.

[PhoeniX]

Использую функцию отсюда, антивирусы тихонечко молчат...

[DragonUA]

не работает что-то

взял файл из архива, в uses:
uInternetAccess in 'uInternetAccess.pas'
(+ и тупо использовал без доп файлов)

Код:

  siteurl:='delphisources.ru';
  url:=ReadURL(siteurl);
  Writeln(url);

...и по нулям. не выводит ничего.

и как потом, если всё-таки данные получу, записать всё красиво в файл и выбрать отдельно взятую строчку (ну например под номером 29)?

[NumLock]

будет ругаться? а то у меня нет антивирусника.

Код:

uses
  SimpleWinInet,

procedure URLDownloadToFileCB(TotalBytes: DWORD; ReadedBytes: DWORD);
begin
  Form1.Memo1.Lines.Add(IntToStr(TotalBytes)+' '+IntToStr(ReadedBytes));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(URLDownloadToFile('http://ya.ru/', 'd:\Downloads\delphisources.htm', @URLDownloadToFileCB)));
end;

http://data.cod.ru/119601

[DragonUA]

NumLock, вирус тотал находил 4 вируса, теперь один (McAfee-GW-Edition 2010.1D 2011.08.15 - Heuristic.BehavesLike.Win32.Keylogger.J).
+ у знакомого нод палил, теперь на палит.
Спасибо, что-то сдвинулось

[NumLock]

сорри за оффтоп. кто-то на форуме уже писал и про такой вирус:

Код:

program Project1;

uses
  Windows;

begin
end.

http://www.virustotal.com/ выдает Result: 13/ 43 (30.2%)

[DragonUA]

Сообщение от NumLock

сорри за оффтоп. кто-то на форуме уже писал и про такой вирус:

Код:

program Project1;

uses
  Windows;

begin
end.

http://www.virustotal.com/ выдает Result: 13/ 43 (30.2%)

Это ж в самом Делфи был вирус, при компиляции добавлялся

[NumLock]

нет, это не про Induc"а