Затерялся где-то в моих дебрях любимый фильм. Не беда — скачал его известным способом. Но он оказался в формате MOV 5.2Гб Ни одна флешка, несмотря что есть место, не хочет его принимать. Решил конвертнуть (subj). Просмотренный с десяток онлайн-конвертеров посылает меня тоже на ограничение в размере исходного в 2 Гб.
Что можете посоветовать?
Ещё появилась идея разрезать, перекачать по кускам и там сплиттить. Но, видимо, тоже не прокатит.
(читать всё…)

Сколько видел программ на Free Pascal’е — везде объекты уничтожаются вручную, через Free или FreeAndNil. А ведь можно сделать чтобы это происходило автоматически. Для этого надо с объектами работать через интерфейсы и классы делать производными от TInterfacedObject. Переменная типа interface является интеллектуальным указателем, который контролирует использование объекта. Если пытаться использовать переменную типа interface без инициализации, то компилятор выдаст предупреждение. Когда уже никто не использует объект, переменная-интерфейс уничтожит его автоматически.

(читать всё…)

Необходимо найти среднее значение по датам в одной ячейке, перечисленным через запятую. Справочник дат со значениями лист ВЫРУЧКА.

(читать всё…)

есть программно формируемая таблица в ней колонка частично (с пропусками) заполненная числами (они могут повторяться).
надо с помощью ФОРМУЛ(ы) подсчитать число РАЗЛИЧНЫХ чисел в данной колонке.
для облегчения допустимо создание каких-либо дополнительных колонок.

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

(читать всё…)

Подскажите, как убить системный процесс? Раньше на XP было так:
А теперь на windows 10 64 bit как?

function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot
  (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
  FProcessEntry32);
  while integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
    UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
    UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(OpenProcess(
      PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

(читать всё…)

Видел ли кто-то конвертеры heic в jpg с открытым кодом? Или может, процедуры для Delphi
Чтобы добавить его в свою программу.

Варианты которые меня бы устроили в порядке приоритета
1. Процедура для Delphi, которая выполнит конвертацию
2. Сторонняя dll с описанием процедуры
3. Сторонний exe-движок. То есть, не программа с оболочной, а движок которому в параметры записать имя исходного heic-файла и имя нового jpg-файла

(читать всё…)

Задача заключается в следующем : надо данные из memo считать только, в Шестнадцатеричном формате и записать.
Если данные в hex формате, то проблем записи нет, а вот ,если данные в memo имеют русские буквы, или не содержат формата [‘0’..’9′, ‘A’..’F’, ‘a’..’f’]), то ошибка …

Как реализовать проверку перед записью из memo, чтоб , если данные не соответствуют Шестнадцатеричному формату, то выскакивает окно об ошибке showMessage(‘error’); и запись не производится.
p.s
Запрет на ввод кроме как латинице, не подходит. Так как в memo загружаются имена файлов, которые должны загружаться как в hex, так и русские буквы, а вот запись, только для имён в hex.

(читать всё…)

может так?:

<?php
   echo file_get_contents( "myfile.zip" );
?>

(читать всё…)

Прочитать значение бита для конкретного индекса и модифицировать значение индекса.

Я так сделал но оно не работает. Нужна ваша помощь.

int operator[](int value, int bitIndex)
{
    return (value >> bitIndex) & 1;
}

(читать всё…)

Написал программу передвижения человека по экрану, периодически меняя картинку, создавая эффект движения. Для всех трех картинок использовал компонент TImage. При однократном нажатии на клавишу d человек передвигается по экрану отлично т.е. все три картинки меняются в нужной последовательности! Но если её удерживать, появляются только две картинки из трех.

Man.zip (3.09 Мб)

(читать всё…)