Есть IP Камера Кено, которая кроме RTSP ничего не умеет, т.е. ни каких тебе http запросов для получение скрина (web интерфейс есть, но он в моем случае не нужен, так как нужно из сторонней программы получить снимок).

Вот так с vlc плейера можно смотреть поток:

rtps://192.168.0.180:554/ch0.264

Подскажите как из delphi можно подключится к этому потоку и получить из него всего 1 снимок.

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

Использую sqlite3.pas для работы с БД sqlite.
Возник вопрос, как корректно обрабатывать случаи, когда в таблице не содержится требуемых данных?

Если в базе нет логина test1, то при попытке выполнения запроса получаю ошибку «table is at end of file». Как такую ошибку обработать? Не выполнять же в начале запрос на подсчет количества записей с таким логином, и если > 0 то выполнить запрос …

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

Пользователь должен указать период (квартал — 1,2,3,4) через Inputbox. Не получатся сделать проверку введенного пользователем значения KW (квартал) — допустимые значения только 1,2,3,4.

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

Подсчитать количество частиц «не», пишущихся раздельно в предложении.

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

Дано расписание движения автобусов. Всего 18 пригородных автобусов отправляются со станции. Определить количество автобусов, отправляющихся со станции в период времени с 17.00 до 20.30. (Время отправления задается одномерным массивом.)
Сформировать пользовательский тип данных, перечислимый, в котором указаны все возможные значения времени отправления: 00.00, 00.30, 01.00, 01.30…23.00, 23.30.

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

Как распечатать текст из Memo?

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

Как записать данное выражение в Delphi?
S=(-1)^n* ((x^2n+1)/(2n+1))

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

Я посылаю запросы php скрипту в таком виде:

LoginInfo:TStringList;

LoginInfo:=TStringList.Create;
LoginInfo.Add('login='+St_login);
LoginInfo.Add('passw='+St_pass);
str:=idhtp1.Post(server+'yyy.php',LoginInfo);

Если сервер не доступен вылетает ошибка.
Как правильно выловить ошибку?
Т.е. если ошибка есть то сделать то то, нету другое и не останавливало программу.

Знаю про IdHTTP1.ResponseCode но как его применить не знаю.

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

Последовательность чисел задаётся следующими формулами:
A1 = 3; A2 = 5; An = 2*Fn-1 + Fn-2
Найдите наименьшее целое n, при котором An будет больше одного миллиона.

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

Какая кодировка текста у редактора кода среды Borland Delphi 7?
И, если я установлю такую же кодировку в notepad++, то при вставке в него скопированного текста из редактора кода будут ли правильно отображаться русские символы ?

Если я открываю *.pas файл в notepad++, то русские символы распознаются правильно, но иногда бывает нужно прямое копирование из IDE в текстовый редактор; открытие *.pas в notepad++ — это уже обходной путь.

Можно ли как то обойтись без обходного пути ?

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