...'SELECT id FROM si WHERE si.grsi='''+Form.Edit.Text+'''...
1 2023-12-07 03:21:17
Re: Help (8 replies, posted in Russian)
3 2023-11-20 21:49:51
Re: LAB INVOICE (4 replies, posted in General)
An old rich Corsican dies. The family has gathered, waiting to see who the old man will announce as heir. According to the good old Corsican tradition, the laziest should inherit everything. The dying man in a weak voice:
- Dominic, my son, come to me. Dominic approaches.
- Son, imagine that you are sitting and see how the wind blows a 500 franc bill. What will you do?
“I won’t budge, dad.” Why should I get tired again?
- Golden words, my boy. Go. Paolo, come here. Paolo approaches.
“Paolo, a naked, passionate beauty is reaching out to you.” What will you do?
- I won’t move. Why strain yourself once again?
- Excellent answer, son. Go. Antonio, come here.
- Come here yourself.
4 2023-11-18 21:51:42
Re: COM порт, ошибка в программе? (9 replies, posted in Russian)
Есть испытательный стенд. Испытавается устройство, где важен показатель до 10ых милиметра, поэтому такая частота. Вообще в идеале хотелось бы выбирать частоту сохранения данных.
Ну тогда получается, что и в интервале в 200 мс. может быть недопустимое колебание. Это значит, что нужно читать в непрерывном потоке, а запись делать только по факту отклонений...
5 2023-11-18 12:06:44
Re: COM порт, ошибка в программе? (9 replies, posted in Russian)
...задача сохранять данные с COM порта в отдельную таблицу каждые 200 милисекунд...
А что за данные, которые требуют записи так часто? (432 000, почти полмиллиона то бишь, в сутки)
6 2023-11-16 12:10:44
Re: Problem in Master Band (3 replies, posted in Reports)
"Битва экстрасенсов" на тему "что имел ввиду ТС"...
7 2023-11-10 14:30:25
Re: Progressbar Color (13 replies, posted in General)
The appearance of the TProgressBar component starting from Windows 7 is determined by the operating system settings
Его можно зарестайлить, но в MVDb не получится импортировать нужные виндовые функции...
8 2023-11-01 10:28:38
Re: Встроенная авторизация (33 replies, posted in Russian)
Не смог коммент оставить
"ваш email не будет опубликован"...
Ну, логично))
9 2023-10-30 08:20:08
Re: Видео и массовое добавление файлов. (7 replies, posted in Russian)
Чтобы "подсказать куда копать" - нужно брать и копать... Из того, что можно задействовать в стоке - таблица, формы, кнопки, база...
Касательно ftp - я бы не стал использовать этот протокол а заюзал бы что-то типа облачного диска с синхронизацией. Желательно такой, который умеет помимо помимо отдачи ссылки ещё и "поточить" (для быстрого старта просмотра).
Плеер - тоже бы использовал какой-нибудь внешний для большей мультиформатности.
10 2023-10-30 06:29:09
Re: Видео и массовое добавление файлов. (7 replies, posted in Russian)
Как такое возможно реализовать?
Писать код...
Как можно реализовать копирование файлов по FTP?
Писать код...)
11 2023-10-29 14:39:48
Re: Видео и массовое добавление файлов. (7 replies, posted in Russian)
Но вряд ли вы этим скриптом сможете напрямую объединить видеофайлы, разве что задействовать какую-то стороннюю утилиту конвертации видео.
Вроде как не стоял такой вопрос... Я так понял, ему нужен просто "плеер" (он же "плейлист", он же "файло-помойка").
15 2023-10-26 14:58:38
Re: потоковое видео (28 replies, posted in Russian)
Пиво "Афанасий Светлое 0.5L" - 2 шт.
function cam(n:integer):string;
begin
result :=
'ffmpeg -y -i "http://user:password@ip:port/ISAPI/Streaming/channels/'+IntToStr(n)+'01/picture?'+
'snapShotImageType=JPEG&videoResolutionWidth=1920&videoResolutionHeight=1080" -vframes 1 out.jpg';
end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var ws:variant;
begin
ws := CreateOleObject('WScript.Shell');
ws.Run( cam(1), 0, True);
Form1.DBImage1.Picture.LoadFromFile('out.jpg');
ws.Run( cam(2), 0, True);
Form1.DBImage2.Picture.LoadFromFile('out.jpg');
ws.Run( cam(3), 0, True);
Form1.DBImage3.Picture.LoadFromFile('out.jpg');
ws := 0;
end;
16 2023-10-26 13:18:22
Re: потоковое видео (28 replies, posted in Russian)
ISAPI - это интерфейс выдачи готового контента. Сама же ссылка обрабатывается HTTP-сервером. Авторизация - тоже на стороне HTTP-сервера с указанным типом аутентификации:
digest не пробовал, а basic как-то тестил. Но basic уже считается устаревшим и снижает безопасность.
А метод HTTPGetFile не может подгрузить
HTTPGetFile никогда не сможет забить заголовок авторизации.
17 2023-10-26 11:39:04
Re: потоковое видео (28 replies, posted in Russian)
Дело не в авторизации явно, в браузере и в twebbrowser скриншот камера отдает без проблем...
Нда...? А что в это время делают браузеры? Как парсят URL? Как обрабатывают заголовки? Что посылают в ответе?
Я вот например вижу:
Если бы все было так просто, как "видится" - уже давно хакеры весь интернет сломали бы... ))
18 2023-10-26 10:44:23
Re: потоковое видео (28 replies, posted in Russian)
Не получается, видимо что то с абсолютными/относительными ссылками у HTTPGetFile ...
Это с какими..?
А скриншот экрана можно сделать в MVDB?
Геморроя не меньше, а сам путь - неверный.
Надо либо менять тип авторизации на камере на "basic/digest", либо придумывать эту авторизацию на OLE->WinHttp...
19 2023-10-24 15:55:20
Re: цвет в место иконок в выподающем меню грида (30 replies, posted in Russian)
А эта настройка обязательно должна быть в меню "списка книг"..?
20 2023-10-24 11:40:58
Re: цвет в место иконок в выподающем меню грида (30 replies, posted in Russian)
А то не пойму че за тёрки.... Какие-то имейдж-листы, png-файлы, потоки...
На канве битмапа спокойно все рисуется:
21 2023-10-24 11:05:50
Re: цвет в место иконок в выподающем меню грида (30 replies, posted in Russian)
А не получается-то что..?
22 2023-10-24 08:22:02
Re: цвет в место иконок в выподающем меню грида (30 replies, posted in Russian)
23 2023-10-24 03:54:45
Re: цвет в место иконок в выподающем меню грида (30 replies, posted in Russian)
А что не получается-то..?
24 2023-10-23 19:33:18
Re: цвет в место иконок в выподающем меню грида (30 replies, posted in Russian)
Вообще "сигналом" прозрачности является левый нижний пиксель. Какого цвета он, тот цвет и будет прозрачным.
25 2023-10-20 12:40:44
Re: сторонее приложение в форме (21 replies, posted in Russian)
var
OT:TTimer;
procedure OnTimer(Sender: TObject);
var ts:TTabSheet;
begin
ts := TTabSheet(TWinControl(Sender).Owner);
if GetWindowLong(ts.tag,-16)=0 then
ts.Free;
end;
procedure Observe(ts:TTabSheet);
begin
OT := TTimer.Create(ts);
OT.Interval := 200;
OT.OnTimer := @OnTimer;
end;
///////////////////////////////
//..
Tab.Tag := h;
//..
SetParent(h, Tab.Handle);
//..
Observe(Tab);
//...
P.S. А вообще странно, что надо убивать сначала процесс а потом вкладку... Обычно бывает наоборот.