function GetInetFile

[mitiay]

Пользуюсь функцией function GetInetFile

function GetInetFile(const fileURL, FileName: string): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName: string;
begin
  Result := False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen);
      until
        BufferLen = 0;
      CloseFile(f);
      Result := True;
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

Проблема в том что антивирус орет что это троян!Читал про добавление бпесполезных команд чтоб антивирус молчал.Или может у кого есть примеры скачки файла без такой проблемы.

[Stilet]

А просто в исключение антивиря добавить?

[Человек_Борща]

Проблема в том что антивирус орет что это троян!

Скажите спасибо таким же хомячкам-программистам, тянужим готовый код с сети. Вот итог:
99 чел. использовали код для написания зловредов.
1 человек от этого пострадал от действия остальных 99.

вывод: пишите свой собственный код.

[FaTaL]

Как вариант, используйте INDY.

[саша40]

Жаль эту функцию. Хорошая была. Всегда работала.
Спасибо можно сказать хакерам за то, что они писали зловредов с использованием этого кода.

[Stilet]

Хорошая была. Всегда работала.

Боюсь что как раз WinINET работал "как повезет"
Мне из пяти компов с разными виндами (билдами) только два из них не дали отлуп с использованием фунок из этой библиотеки.
Библиотека это может и хорошая, но что-то от билда к билду с ней нехорошее делали то-ли хакеры то-ли МСовцы.

P.S. Одна из причин, заставивших меня усесться на winsock.

[mitiay]

В общем можно забыть про эту функцию?

[Stilet]

Почему сразу забыть?
Выше я сказал что нужно для начала сделать. Если билд винды у тебя не кривой работать она будет как по маслу.

[mitiay]

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

Почему сразу забыть?
Выше я сказал что нужно для начала сделать. Если билд винды у тебя не кривой работать она будет как по маслу.

Она работает как по маслу!Проблема в том что ее палит антивирус как троян!можно ее какнибудь исправить(добавить песполензные действия) чтою не палил?

[Человек_Борща]

Перепиши её по своёму, и не публикуй в сети.