FreePascal.ru

Создать набор из ответов типа: "Ты это уже скачивал", "Ничего не изменилось", "Все еще тоже самое" и т.д. и выдавать рандомно при запросе одной страницы чаще чем раз в 20-30 сек с одного ip.

ev писал(а):правда тогда боюсь больше ругани от браузеров будет

Тогда всю её можно будет адресовать минцифры

Снег Север писал(а):Флешка распознаётся и читается без проблем на стареньком ноуте с линухом

Тогда появляется два решения. Припаять разъем от ноута к компу или поставить на комп Линукс.

Долго копать не нужно, чтобы понять что свежее
На сайте откуда я качал лазарус картинка немного другая
https://i.ibb.co/4n38nndz/01.jpg
...но я тоже подумал что lazarus 4.0 это релиз а значит он свежее.
Вы смотрите на бинарники. А я вам показал дату в исходниках. Если не устраивает эта дата ...

Alex2013 писал(а):во первых что свежее просто lazarus 4.0 или lazarus 4.0 RC3 ?

Долго копать не нужно, чтобы понять что свежее

Как и для второго вопроса
https://wiki.lazarus.freepascal.org/Laz ... ease_notes

Пишу программу на нескольких разных компах. Исходники на внешнем диске. Работал на всех компах на версии Лазаря 3.6. На одном перешёл на версию 4.0. Программа собралась и работала, работал отладка. Изменил в модуле главной формы одну строку и получил ошибку "несовместимый PPU" для модуля LCLType ...

А разве Copy не по байту берет?
Вот именно. В Copy придется указывать индекс в байтах от начала строки, а UTF8Copy примет его в символах.

Как вариант вы можете задать константу явного типа при использовании =
procedure TForm1.FormShow(Sender: TObject);
const
SRC1: UTF8String = 'РАБОТА';
COMP ...

https://learn.microsoft.com/en-us/windo ... ionprocess

Вообще она в ntdll. Если не хватает модулей с импортированными функциями, тогда можете просто добавить строку с её импортом у себя в программе.

Ну а дальше у вас будет ProcessId. Открываете по нему процесс через OpenProcess и получаете PROCESS_BASIC_INFORMATION через NtQueryInformationProcess
В PEB ищите указатель на PRTL_USER_PROCESS_PARAMETERS и уже из нее вычитываете CommandLine через ReadProcessMemory.

Кстати это мысль ! Можно просто грузить одинаковые блоки причем даже если файл меньшего или большого размера
(Просто процедура чтения должна "склеивать" блоки читая их из разных файлов)
Только там не просто один объем, а одинаковое время загрузки. Согласитесь, что прочитать 1 Мб c FDD, CD, DVD ...

Но начет утечки верно перед "повторным использованием" нужно например не забыть делать FList.Clear
Даже если вы высвободите данные, которых и так нет, то структуры класса, которые создаются и заполняются при Create, это тоже блок динамической памяти. При повторном Create без Free у вас будет ...

constructor TLoadableFileThread.Create(
fnGetNextFileName: PLoadableFunc);
begin
inherited Create(True);
FreeOnTerminate := False;
FFile := EmptyStr;
FNext := fnGetNextFileName;
FName := '';
FList := TList.Create; // Этот конструктор будет выполняться в создающей нити.
{ Я не люблю создавать ...

Вместо TStringList.pop() можно использовать индекс, который должен достигнуть TStringList.Count, чтобы все это завершило работу. Так не придется удалять строки из списка и, возможно, можно будет отказаться от долгой синхронизации.

var
aFileNames: TStringList;
iFileNames: LongInt = 0; // Не ...

program FileLoader;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
{$IFDEF HASAMIGA}
athreads,
{$ENDIF}
Classes, SysUtils;

const
iThreadWaitTimeout = 1000;

type
PLoadableFunc = function (ASender: TObject; out AFileName: String): Boolean;
PLoadableFileRecord ...

RRYTY писал(а):"Единственная копия данных" - это само по себе страшно. Кроме ФС может выйти из строя накопитель, поломаться канал связи, неправильные действия пользователя тоже в наличии.

Еще и тараканы могут завестись между контактами