|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.08.2020, 13:18 | #1 |
Новичок
Джуниор
Регистрация: 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... Как написать чтоб это избежать....? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разработка ПО для облачного хранилища | 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 19:40 |
На Украине реально беспредел творится? | Hallo | Свободное общение | 126 | 25.12.2008 10:37 |