Хочу написать программу, что бы пинговать компьютер и в окне видеть надпись » компьютер в сети».

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

Даже в Delphi 10.1 стандартный плеер поддерживает видео только HD качества.
Мне же нужно воспроизводить FullHD видео.
В связи с этим стандартный компонент не подходит!
Можете посоветовать видеоплеер с api через который я смогу из Делфи запускать нужные мне видосы…

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

Необходимо прочитать файл в память, заменить один байт в нем и сохранить на диск.
Например, имея файл из 4-х байт

Нужно например заменить второй байт на FF
Чтоб получилось так:

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

Подскажите, пожалуйста, как кодом определить длину (Len(Me.ListBox1.List(x))) самой длинной строки в списке ListBox1 на форме? (vba excel 2003).

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

Ставлю компонент Image, туда запихиваю файл gif, но когда запускаю проект, GIF отображается как картинка, а не анимация, почему так происходит, и встречался ли кто нибудь с подобным???

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

Формула деление на пустую ячейку или 0 выдает ошибку №ДЕЛ/О. Как сделать так что бы вместо ошибки стоял 0?

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

В файле 2 колонки. в первом столбце идет порядковый номер объекта в объеденной ячейке, которая равна кол-ву ячеек второго столбца. Во втором столбце идет построчно информация, которая соответствует объекту в ячейке первого столбца.
Необходимо объединить ячейки второго столбца, которые принадлежат объекту первого столбца. То есть, где то их 3 строки, где то 10, а где то и одна, которую нужно пропустить.

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

Скажите пожалуйста, как исправить код ниже (vba excel 2003), чтобы форма открывалась располагаясь сразу под кнопкой («Shapes(имя)»), щелкая по которой эта формы и вызывается?

Private Sub UserForm_Initialize()
With Me
 .StartUpPosition = 0
 .Top = ActiveSheet.Shapes(имя).Top
 .Left = ActiveSheet.Shapes(имя).Left
End With
End Sub

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

Подскажите пожалуйста как запретить следующее действие: при вводе значения в textbox1 (на форме) и последующего нажатия клавиши ESC происходит очищение textbox1?

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

Подскажите пожалуйста, есть конструкция типа:

function TagCat($tags, $itemid){
    foreach($tags as $tag){
        if($tag->itemID == $itemid AND $tag->type == '8'){
            $taglink = urldecode(
              JRoute::_(K2HelperRoute::getTagRoute(urlencode($tag->name)))
            );
            return '<a href="'.$taglink.'" class="category">'.$tag->name.'</a>';
        }
    }
}

Которая отвечает за вывод тега определенного типа объекта.

Вопрос: как изменить функцию чтобы она выводила не один тег данного типа, а всё множество тегов соответствующего типа?

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