Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу здесь за 20 тыс руб в месяц! alarforum@yandex.ru


Ответ
 
Опции темы
Старый 23.08.2020, 13:18   #1
Gudvin79
Новичок
Джуниор
 
Регистрация: 02.06.2018
Сообщений: 1
По умолчанию Беспредел облачного сервиса Касперского

Проблема такая решил считать данные с файла типа JSON и так же перезаписать этот файл с сохранением новых данных....

Проблема такого характера....

Когда всё это писал доступ в Интернета не было...то есть нет активных сетевых подключений.... Откомпилировал... всё работает....
Потом надо было залезть на форум.. и тут началось что то странное.... у меня касперский free... Через буквально секунд 5... блокирует мне только что скомпилированный проект и удаляет.... написал перед этим что это типо страшный троян.... начал разбираться че было то.... отключил интернет.... открываю проект снова компилирую.. и проверяю касперским в ручную...- тишина.... пишет всё хорошо чистый..... снова включаю соединение.. и снова ккасперский его удаляет....
Долго не думая снова отключил интернет.. открываю проект и смотрю на код.. решил методом тыка найти то чего непонимаю.. нашел... решил закоментировать всё то что программа делает при закрытии а точнее происходит запись новых данных в этот файл Json... а при создании считывание из файла оставил...откомпилировал... включаю интернет тишина ккаспер молчит... Так как понял облачному сервису касперского не понравилось то действие что делается при записи в файл....

Структура файла Json
{
"Forms" : {
"Title" : "Проверка загрузки данных",
"Position" : {
"X" : 258,
"Y" : 176
},
"Size" : {
"W" : 400,
"H" : 300
}
}
}

Модуль..
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, FileUtil, Fpjson,
jsonparser;

type

{ TForm1 }

TForm1 = class(TForm)
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
private

public

end;

var
Form1: TForm1;
JRoot: TJSONData;
JDocument: TJSONObject;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
var
jObjForms: TJSONObject;
jObjpos: TJSONObject;
jObjSize: TJSONObject;
strList: TStringList;
begin
JDocument:=TJSONObject.Create;

jObjpos:=TJSONObject.Create;
jObjpos.Add('X', Left);
jObjpos.Add('Y', Top);

jObjSize:=TJSONObject.Create;
jObjSize.Add('W', Width);
jObjSize.Add('H', Height);

jObjForms:=TJSONObject.Create;
jObjForms.Add('Title',UTF8Decode('П роверка загрузки данных'));
jObjForms.Add('Position', jObjpos);
jObjForms.Add('Size', jObjSize);

JDocument.Add('Forms', jObjForms);

strList:=TStringList.Create;
strList.Text:=JDocument.FormatJSON( );
strList.SaveToFile('Conf.json');
strList.Free;

JDocument.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
str: String;
JForms, jpos, jsize: TJSONData;
begin
JRoot:=GetJSON(ReadFileToString('Co nf.json'));
JForms:=JRoot.FindPath('Forms');
str:=JForms.FindPath('Title').AsStr ing;
jpos:=JForms.FindPath('Position');
jsize:=JForms.FindPath('Size');
Caption:=str;
Left:=jpos.FindPath('X').AsInteger;
Top:=jpos.FindPath('Y').AsInteger;
Width:=jsize.FindPath('W').AsIntege r;
Height:=jsize.FindPath('H').AsInteg er;


end;

end.

Вопрос.1..... Что это было... ?
Вопрос 2... Как написать чтоб это избежать....?
Gudvin79 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разработка ПО для облачного хранилища diloxolo Свободное общение 8 10.06.2017 19:35
Стартап веб сервиса ->схему сервиса прилагаю Bikalexander Фриланс 7 12.10.2015 15:43
Бот для облачного сервиса Битрикс24 rummolprod Фриланс 2 01.09.2015 16:52
Беспредел с передачей строк Sam Gold Общие вопросы C/C++ 0 28.04.2010 18:40
На Украине реально беспредел творится? Hallo Свободное общение 126 25.12.2008 10:37


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840