201

(2 replies, posted in Russian)

var Sb:TScrollBox;

begin
    Sb := TScrollBox.Create(Form1);
    Sb.Parent :=  Form1;
    Sb.Align := alClient;
    Form2.Parent := Sb;
    Form2.Show;
end.

Да, возможно, если написать соответствующий код...

203

(10 replies, posted in Russian)

Походу русские символы в путях. Замени модуль:

204

(10 replies, posted in Russian)

На вот, готовое:

205

(25 replies, posted in General)

manixs2013 wrote:

hello Guys

Any friends of DMITRY in this forum?   Please Confirm! We need a feedback, news about him.   Otherwise, we do not have a future on this software!

Manixs

Сюда не пробовал писать..?

206

(10 replies, posted in Russian)

sibprogsistem wrote:

пробовал

PlaySound('audio\music\Flowing Rocks.wav',0, SND_ASYNC or SND_LOOP);

Где пробовал..? В MVDb?

207

(10 replies, posted in Russian)

sibprogsistem wrote:

как повесить программу?

repeat .. until или while .. do.

Вопрос: для чего?

208

(3 replies, posted in General)

1. Это не совсем инверсия а искажение каналов...
2. Не наблюдается.

newusr wrote:

..Кстати там используется библиотека libvlc..

Я почему-то был в этом уверен...))

1. Можно конвертировать коды клавиш (независимо от раскладки).
2. Можно запретить ввод, если символ вне указанного диапазона.

А предложенный способ:

vit007 wrote:

.. ограничение на переключение языка пока находишся в пределах этого поля..

крайне не советую...

newusr wrote:

VLC .. это тот же костыль, но тяжёлый и капризный (то в трей свернётся, то зависнет)

Отнюдь... Не замечал такого (покрайней мере - последние 5 лет точно).

newusr wrote:

я в скрипте повторяю 2 раза строчки прикрепления окна, чтобы уж наверняка прикрепить к панели.

Я отрабатываю немного больше строчек для отработки ресайза родителя.

newusr wrote:

(кто-то на форуме утверждал, что работает, у меня - нет),

Ну rtsp и rtmp - это несколько разные протоколы...

newusr wrote:

встроенным плеером

"встроенный плеер" - не что иное как заимствованный из системы Windows Media Player. Строить запустить прогу на компе где он вырезан или криво стоит - получите сообщение "вызов недопустимого класса" или висяк с вылетом.

newusr wrote:

встроенным плеером.. ..вот это было бы "магаровым" решением.

Это будет возможно если:

1. Поймать [сторонним] кодером rtsp-стрим.
2. Преобразовать на лету во временные файлы или ретранслировать на какой-то http-сервер.
3. Воспроизвести получившееся [это] "встроеным плеером".
4. Жать ручками "play" каждый раз, когда поток прервется...
5. Тормозить своевременно сервер-декодер, когда он не нужен (чтобы переставал писать временные файлы и насиловать проц).

Бр-р-р-р... Жесть. Врагу даже не предложу такое г-но...


---
Короч, что у меня вышло:

1. Плеер полностью отвязан от системы (портабельный лаунчер выкинут, команды запуска прописаны непосредственно в скрипте) и без каких-либо проблем и танцев с бубном развернется там, где его запустишь.
2. Встраивается в окно (аналогично, парой виндовых функций + таскается за якорями).
3. Изучил http-api плеера и добавил функции для управления плеером из скрипта (плей, стоп, пауза, перемотка и т.п.).
4. Все настройки выставлены для "встраивания" (в том числе - убраны иконки в трее и панели задач).
5. Кущает все (ну, это ж VLC..). Отмечу: если разорвать и восстановить коннект - автоматом переподключается к текущему url-у.

Что не вышло (из-за того, что нет нужных виндовых функций в стоке mvdb и нет возможности их импорта из системных dll).:

1. Отключить контекстное меню (не критично в принципе).
2. Отключить хоткеи (тоже не критично, и даже в чем-то полезно).
3. Запретить нежелательный фулскрин - критично, но, можно его глушить костылем-таймером, проверяя размеры и меняя Parent исходя из условий.

Да, это vlc. Но саркастические кавычки - есть не сам плеер, а его связка с mvdb.

newusr wrote:

о каком магаре идёт речь?

т.н. "от души", учитывая то, что из спортивного интереса потратил где-то пару дней на поиск и реализацию способов привязки/управления. Т.к. в проге не очень широкие возможности - остались некоторые пробелы, но в целом решение получилось рабочее.

213

(12 replies, posted in General)

А кто-нибудь лицензионное соглашение читал? В частности - п.6.

214

(9 replies, posted in Russian)

procedure Form1_DateTimePicker1_OnChange (Sender: TObject);
begin
  Form1.DateTimePicker2.DateTime :=
  Form1.DateTimePicker1.DateTime + 1/24;
end;

Поделился один раз говнокодом, так его в манускрипты и записали как "отче наш"...
В WinHttpRequest есть встроенная функция ожидания:

...
        smsquestion:=createoleobject('WinHttp.WinHttpRequest.5.1');
        smsquestion.open('POST', url, true);
        smsquestion.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
        smsquestion.send('api_id='+SMSAPI_ID+'&json=1');
        smsquestion.WaitForResponse(5);  

try
    ShowMessage(smsquestion.ResponseText);
    // ...  
except
    ShowMessage('smsquestion error: ' + ExceptionMessage);
end;
... 

P.S. А вообще надо пытаться понять, что пишешь... Совершенствоваться как-то, курить гугл, зубрить маны...

Модные...

А зачем для этого "..многомерный ассоциативный массив.."?

Ну я ж и говорю - движок кастрирован...

k245 wrote:

нет такого в Pascal ))))

Ну, вообще-то есть... А нет - в MVDb.

Можно еще так:

TStrings.Objects[n]:=OtherTStrings;

Ну или JSON подтянуть для создания вложенности...

sibprogsistem wrote:

примеры из гугла пользовал

Какие?

Можно в принципе только зеленый использовать

d:=GetGValue(c);
buf.Canvas.Pixels[i,j] :=RGB(d,d,d);

222

(4 replies, posted in General)

https://i.imgur.com/NHhRlWI.png

223

(4 replies, posted in General)

https://i.imgur.com/PyoBJr4.png

newusr wrote:

.. не смог..

А магар за готовое работающее решение..? wink

sibprogsistem wrote:

короче с начало нужно Color преобразовать в  RGB
а в MVD нет ColorToRGB();

А выше я там бобров наверное пас...