var Sb:TScrollBox;
begin
Sb := TScrollBox.Create(Form1);
Sb.Parent := Form1;
Sb.Align := alClient;
Form2.Parent := Sb;
Form2.Show;
end.
201 2021-09-04 12:48:51
Re: скроллинг Form = bsNone (2 replies, posted in Russian)
202 2021-09-04 12:19:39
Re: Программа печати пдф файлов (32 replies, posted in Russian)
Да, возможно, если написать соответствующий код...
203 2021-09-04 09:27:52
Re: PlaySound (10 replies, posted in Russian)
Походу русские символы в путях. Замени модуль:
205 2021-09-04 08:15:24
Re: Dmitry Where Are You????? (25 replies, posted in General)
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 2021-09-04 08:03:24
Re: PlaySound (10 replies, posted in Russian)
пробовал
PlaySound('audio\music\Flowing Rocks.wav',0, SND_ASYNC or SND_LOOP);
Где пробовал..? В MVDb?
207 2021-09-04 07:44:40
Re: PlaySound (10 replies, posted in Russian)
как повесить программу?
repeat .. until или while .. do.
Вопрос: для чего?
208 2021-09-02 08:02:25
Re: DBImage инвертирует цвета (3 replies, posted in General)
1. Это не совсем инверсия а искажение каналов...
2. Не наблюдается.
209 2021-09-01 08:24:06
Re: стороннее приложение в форме (9 replies, posted in Russian)
..Кстати там используется библиотека libvlc..
Я почему-то был в этом уверен...))
210 2021-08-31 14:37:44
Re: Возможно ли запретить ввод на другом языке? (2 replies, posted in Russian)
1. Можно конвертировать коды клавиш (независимо от раскладки).
2. Можно запретить ввод, если символ вне указанного диапазона.
А предложенный способ:
.. ограничение на переключение языка пока находишся в пределах этого поля..
крайне не советую...
211 2021-08-31 14:27:22
Re: стороннее приложение в форме (9 replies, posted in Russian)
VLC .. это тот же костыль, но тяжёлый и капризный (то в трей свернётся, то зависнет)
Отнюдь... Не замечал такого (покрайней мере - последние 5 лет точно).
я в скрипте повторяю 2 раза строчки прикрепления окна, чтобы уж наверняка прикрепить к панели.
Я отрабатываю немного больше строчек для отработки ресайза родителя.
(кто-то на форуме утверждал, что работает, у меня - нет),
Ну rtsp и rtmp - это несколько разные протоколы...
встроенным плеером
"встроенный плеер" - не что иное как заимствованный из системы Windows Media Player. Строить запустить прогу на компе где он вырезан или криво стоит - получите сообщение "вызов недопустимого класса" или висяк с вылетом.
встроенным плеером.. ..вот это было бы "магаровым" решением.
Это будет возможно если:
1. Поймать [сторонним] кодером rtsp-стрим.
2. Преобразовать на лету во временные файлы или ретранслировать на какой-то http-сервер.
3. Воспроизвести получившееся [это] "встроеным плеером".
4. Жать ручками "play" каждый раз, когда поток прервется...
5. Тормозить своевременно сервер-декодер, когда он не нужен (чтобы переставал писать временные файлы и насиловать проц).
Бр-р-р-р... Жесть. Врагу даже не предложу такое г-но...
---
Короч, что у меня вышло:
1. Плеер полностью отвязан от системы (портабельный лаунчер выкинут, команды запуска прописаны непосредственно в скрипте) и без каких-либо проблем и танцев с бубном развернется там, где его запустишь.
2. Встраивается в окно (аналогично, парой виндовых функций + таскается за якорями).
3. Изучил http-api плеера и добавил функции для управления плеером из скрипта (плей, стоп, пауза, перемотка и т.п.).
4. Все настройки выставлены для "встраивания" (в том числе - убраны иконки в трее и панели задач).
5. Кущает все (ну, это ж VLC..). Отмечу: если разорвать и восстановить коннект - автоматом переподключается к текущему url-у.
Что не вышло (из-за того, что нет нужных виндовых функций в стоке mvdb и нет возможности их импорта из системных dll).:
1. Отключить контекстное меню (не критично в принципе).
2. Отключить хоткеи (тоже не критично, и даже в чем-то полезно).
3. Запретить нежелательный фулскрин - критично, но, можно его глушить костылем-таймером, проверяя размеры и меняя Parent исходя из условий.
212 2021-08-30 10:04:17
Re: стороннее приложение в форме (9 replies, posted in Russian)
Да, это vlc. Но саркастические кавычки - есть не сам плеер, а его связка с mvdb.
о каком магаре идёт речь?
т.н. "от души", учитывая то, что из спортивного интереса потратил где-то пару дней на поиск и реализацию способов привязки/управления. Т.к. в проге не очень широкие возможности - остались некоторые пробелы, но в целом решение получилось рабочее.
213 2021-08-30 06:42:33
Re: Where is dmitriy (12 replies, posted in General)
А кто-нибудь лицензионное соглашение читал? В частности - п.6.
214 2021-08-28 15:07:54
Re: Добавить 1 час (9 replies, posted in Russian)
procedure Form1_DateTimePicker1_OnChange (Sender: TObject);
begin
Form1.DateTimePicker2.DateTime :=
Form1.DateTimePicker1.DateTime + 1/24;
end;
215 2021-08-28 14:46:04
Re: Доработка скрипта отправки смс. (45 replies, posted in Russian)
Поделился один раз говнокодом, так его в манускрипты и записали как "отче наш"...
В 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. А вообще надо пытаться понять, что пишешь... Совершенствоваться как-то, курить гугл, зубрить маны...
217 2021-08-26 08:36:43
Re: многомерный ассоциативный массив (8 replies, posted in Russian)
А зачем для этого "..многомерный ассоциативный массив.."?
218 2021-08-26 07:52:44
Re: многомерный ассоциативный массив (8 replies, posted in Russian)
Ну я ж и говорю - движок кастрирован...
219 2021-08-26 06:45:23
Re: многомерный ассоциативный массив (8 replies, posted in Russian)
нет такого в Pascal ))))
Ну, вообще-то есть... А нет - в MVDb.
Можно еще так:
TStrings.Objects[n]:=OtherTStrings;
Ну или JSON подтянуть для создания вложенности...
220 2021-08-26 05:49:37
Re: многомерный ассоциативный массив (8 replies, posted in Russian)
примеры из гугла пользовал
Какие?
221 2021-08-23 14:19:30
Re: преобразовать цветное изображений в черно белое (21 replies, posted in Russian)
Можно в принципе только зеленый использовать
d:=GetGValue(c);
buf.Canvas.Pixels[i,j] :=RGB(d,d,d);
224 2021-08-20 10:56:52
Re: стороннее приложение в форме (9 replies, posted in Russian)
.. не смог..
А магар за готовое работающее решение..?
225 2021-08-19 11:38:53
Re: преобразовать цветное изображений в черно белое (21 replies, posted in Russian)
короче с начало нужно Color преобразовать в RGB
а в MVD нет ColorToRGB();
А выше я там бобров наверное пас...