Аваст блокирует мою програмку

[Illusiony]

Сделал простенькую програмку отправки файла на сервер по примеру.
Аваст ругается.
Что с этим делать?
Удалить аваст не выход.
Программа будет использоваться у других людей у которых возможен этот анивирус.

procedure TForm1.btn1Click(Sender: TObject);
var
  {определяем переменные для выполнения поставленной задачи}
  FileName: string; //имя файла :)
  response: string; //переменная для возращения HTML кода страницы
  formData: TIdMultiPartFormDataStream; //для передачи информации
begin
  FileName := 'D:\file_for_server.txt';
  formData := TIdMultiPartFormDataStream.Create;
  {Передаем файл}
  formData.AddFile('File',fileName,'application/octet-stream');
  {Передаем информацию}
  formData.AddFormField('param1', 'value1');

  {
   Далее отсылаем все в php скрипт.
   переменной response, результат выполнения скрипта (проще говоря
   HTML код сгенерированной скриптом страницы).
  }

  response := idhtp1.Post('http://hspick.ru/showthread.php',formData);
  mmo1.lines.text := idhtp1.Post('http://hspick.ru/showthread.php',formData);
 {
  Ну а дальше пишешь обработчик который выясняет отправлена
  информация или нет.
 }
end;

[Stilet]

Написать в readme что требуется попускать средства защиты.

[Illusiony]

других вариантов нету?
Я не докажу людям что файл безвредный.

неужели все программы что посылают файлы на сервер антивирусы блочат?

[Stilet]

Я не докажу людям что файл безвредный.

Тогда забудь )

неужели все программы что посылают файлы на сервер антивирусы блочат?

Нет. Не все )
Просто тебе не повезло. Антивирус углядел в ней потенциально опасное ПО. Всего-то.

[Illusiony]

Неужели все программы на delphi 7 что посылают файлы на сервер аваст блочит?

Может как то по другому можно отсылать что бы он не ругался?

А нельзя в на delphi 7 картинку преобразовать в строку и послать на сервер таким образом, а на сервере на php обратное преобразование сделать?

Мне нужно пересылать 3 картинки, размер средний каждой картинки около 17кбайт.

Или упрется в какоето ограничение размера post запроса?

Если на сервере установить большой размер post запроса, браузеры ругаться не будут?

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

Сделал простенькую програмку отправки файла на сервер по примеру.
Аваст ругается.
Что с этим делать?

Не копипастить код из интернета, не перепечатывать код из интернета и т.д. и т.п. писать код самостотельно, меняя его под себя. Антивирусы очень и очень не любят массовое дублерство.

[Illusiony]

Сделал так и перестал ругаться:

procedure TForm1.btn1Click(Sender: TObject);
var
  {определяем переменные для выполнения поставленной задачи}
  FileName: string; //имя файла :)
  response: string; //переменная для возращения HTML кода страницы
  formData: TIdMultiPartFormDataStream; //для передачи информации
begin
  FileName := 'file_for_server.txt';
  formData := TIdMultiPartFormDataStream.Create;
  {Передаем файл}
  formData.AddFile('File',fileName,'application/octet-stream');
  {Передаем информацию}
  formData.AddFormField('param1', 'value1');

  {
   Далее отсылаем все в php скрипт.
   переменной response, результат выполнения скрипта (проще говоря
   HTML код сгенерированной скриптом страницы).
  }

  response := idhtp1.Post('http://test1.ru/file.php',formData);
  //mmo1.lines.text := idhtp1.Post('http://hspick.ru/showthread.php',formData);
 {
  Ну а дальше пишешь обработчик который выясняет отправлена
  информация или нет.
 }
 lbl1.Caption:=response;
end;

На сервере denwer скрипт

<?php
$uploaddir = '';
//if (move_uploaded_file($_FILES['userfile']['tmp_name'], $uploaddir . $_FILES['userfile']['name'])) {
if (move_uploaded_file($_FILES['userfile']['tmp_name'], $uploaddir . $_FILES['userfile']['name'])) {
    print "File is valid, and was successfully uploaded.";
} else {
    print "There some errors!";
}
?>

Выдает ошибку, файл не сохраняется

настройки:
file_uploads
upload_max_filesize
post_max_size
upload_tmp_dir

все есть нужные.
в чем может быть проблема?

Наверное в

move_uploaded_file($_FILES['userfile']['tmp_name'], $uploaddir . $_FILES['userfile']['name'])

Как должно быть я не знаю

[Stilet]

Выдает ошибку

Ну и как всегда текст ошибки вырезали проклятые Фапси? Может пора уже их танками бомбить?

[Illusiony]

В смысле ответ был :

There some errors!

что скрипт выводит если файл не закачался

[Stilet]

В смысле ответ был

Напиши хотя бы так:

<?php
$uploaddir = '';
if !is_uploaded_file($_FILES['userfile']['tmp_name']){
  print "Файл '".$_FILES['userfile']['tmp_name']."' не залился. "; die;
}
if (move_uploaded_file($_FILES['userfile']['tmp_name'], $uploaddir . $_FILES['userfile']['name'])) {
    print "File is valid, and was successfully uploaded.";
} else {
    print "Не могу залить файл '".$_FILES['userfile']['tmp_name']."' в '".$uploaddir . $_FILES['userfile']['name']."'"; die;
}
?>

Чтоб было понятно по каким путям идет заливка и идет ли вообще.