Как, используя DirectShow, отзеркалить или перевернуть изображение? Есть ли для этого какой-нибудь интерфейс или фильтр?
Если делать это через SampleGrabberCallback, то видео тормозит.

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

Как создать видео ряд из картинок (640*480) средствами Delphi XE5 — XE7… Цель моей программы — периодическая съёмка (1 раз в 10 сек) объекта и сохранение снимка на диск, а при нажатии на кнопку — из этих снимков собрать видеофайл… Съемку по таймеру я уже сделал, даже прикрутил «датчик движения» (пока не знаю зачем)… А вот со сборкой видеоряда полная засада… ни когда не имел дело с видео, кроме плееров…

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

В программе виртуальный ListBox для отображения списка терминов, которые хранятся в обычном текстовом файле (структура файла «термин» табуляция «перевод», в листбоксе отображается только «термин»).
Когда словарь небольшой, скажем, несколько сотен терминов, — все гут.
Но когда терминов порядка сотни тысяч (переделал какой-то готовый толковый словарь, там термины от «А» до «Я») невозможно прокрутить ListBox до конца, где-то на середине (буква «О») слова начинают повторяться с «А».
Как бороться?

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

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

Загружаю тайлсет tileset.png, в котором есть прозрачность в PNGImage с именем Tileset. Далее рисую на канве компонента PNGImage с именем Surface этой процедурой:

procedure TForm1.DrawTile(const X, Y, Index: Integer);
begin
  Surface.Canvas.CopyRect(Bounds(X * TileSize, Y * TileSize, TileSize,
    TileSize), Tileset.Canvas, Bounds((Index mod TilesetWidth) * TileSize,
    (Index div TilesetWidth) * TileSize, TileSize, TileSize));
end;

…вот так:

procedure TForm1.FormPaint(Sender: TObject);
var
  X, Y: Integer;
begin
  for Y := 0 to MapHeight - 1 do
    for X := 0 to MapWidth - 1 do
    begin
      DrawTile(X, Y, Map[lrGround][X][Y]);
      DrawTile(X, Y, Map[lrObject][X][Y]);
    end;
  Canvas.Draw(0, 0, Surface);
end;

Ожидается правильная отрисовка с альфа-каналом, но не тут то было.

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

Хочу в программе при нажатии кнопки чтобы в проводнике открывал необходимую мне папку. Как это лучше сделать, есть ли такая команда (если да, то напишите пример использования)?

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

Миниатюры

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

Загружаю jpg в Jmage, пытаюсь по ней вывести текст — ругается при выполнении. А как же быть ? Картинка д.б. одна, а тексты разные. Впрочем, не в картинке дело — пытаюсь залить Jmage путем FillRect — ругается при выполнении все равно.
(читать всё…)

На борту 300 файлов в формате docx. Существует ли макрос, который умеет их пакетно конвертировать в doc? (у меня Word 2003 и он крайне медленно открывает docx’ы).

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

Alar

Проблема детей, в том числе тех кто смотрит видосики на ютубе, в том что вы хотите волшебную палочку, и уверены, что она есть, просто надо найти, вернее у вас их много, и вы никак не можете выбрать какую, в итоге не выбираете никакой, но терминами накачались.

А программист работает так. — берем delphi

нужно куда-то получить, ставим компонент — memo1

нужно получить страницу. ставим компонент http из библиотеки indy idhttp.get — получил.

нужно как-то поменять используем фунции delphi, например strreplace

нужно сохранить в файл из memo.savetofile(index.html) — savetofile

нужно как-то отобразить даём файлу расширение .html

нужно отобразить на сервере — берём хостинг и заливаем этот html файл с названием index.html

всё сайт сграблен, распарсен и залит на сервер.

Дальше. идёт оптимизация тех или иных этапов.

неудобно в memo1 менять — берем более визуальный компонент и т.д.

вот так работают программисты.
сайт распарсен результат получен.
хотите красиво отобразить подключаете стили через css.
знаете как работать с базами, подключаете базы данных, при больших объёмах это всегда оправдано.
умеете работать с экселем, используете его как базу данных, тоже неплохо для небольших проектов.

тема на форуме

Необходимо чтобы скрипт отправлял сообщение в телеграмм

$botToken = "9898989889989898";
$chat_id = "76867867876";
$message = "hello";
$bot_url    = "https://api.telegram.org/bot$botToken/";
$url = $bot_url."sendMessage?chat_id=".$chat_id."&text=".urlencode($message);
file_get_contents($url);

При выполнении скрипта выводит ошибку:

Warning:
file_get_contents(https://api.telegram.org/bot56765756765765/sendMessage?chat_id=765756756765&text=hello
[function.file-get-contents]: failed to open stream: HTTP request failed!
HTTP/1.1 404 Not Found in M:\home\test1.ru\www\test.php on line 7

Подскажите в чем может быть проблема?

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