151

(89 replies, posted in Russian)

RZ-007 wrote:

Доброго времени суток!!! 
Ребята подскажите....в МВД возможно ????
- подключаем свой мобильный телефон к ПК.
-Поступает звонок на мобильный телефон и мы номер сохраняем в своей программе МВД ???

А что конкретно требуется? Какая глобальная задача?

152

(21 replies, posted in General)

Отдельный раздел необязательно. Есть плагины для WP, которые позволяют писать мультиязычные посты "в одном месте". В дальнейшем плагин определяет браузер и выдает на языке пользователя (/ru/, /en/, /fr/, ...)

153

(8 replies, posted in Russian)

Вообще и делфи и лазарус подтверждают, что ',' - это "правильное" число с п.т.. Видимо так задумано...
А где надо float ловить?

Дело даже не в разнице... Просто свойства и методы TAForm и TForm прикручены выборочно и через жопу.
Например приведение экземпляра TForm к TAForm в проверке валидности кода происходит по тихому и без ошибок, но в рантайме форма после приведения остается классом TForm. Несмотря на это она так же без ошибок принимает свойства MinimizeToTray и ShowOnTaskbar, но фактически ничего не происходит. А OnDropFiles у "виртуального" (и даже стокового) TAForm вообще отсутствует...

Сахар, мед, говно и пчелы... Из возможных вариантов - попробовать послать окну сообщение "тем что есть" из виндовых объявленный функций.

k245 wrote:

Есть дополнительные свойства (служебные smile ), но, что гораздо важнее, есть поддержка обработки событий.

А какие именно?

А у TAForm вообще есть принципиальные отличия от TForm? Свойства, методы?

Насколько я понимаю, TAForm - это главное окно приложения (типа TMainForm) и может быть только в одном экземпляре.

158

(16 replies, posted in Russian)

k245 wrote:

NickB, вы шокируете своим проектом. Премия за ковид-19 - это бухгалтерия Цитадели Зла? )))

Это ещё ничего... Был давеча один усер с проектом "Учёт в морге". Так там: "рука женская - 1 штука, нога женская - 1 штука, штука женская - 1 штука". И ФИО забыл обезличить.

Можно немного стилизовать код в кастомном CSS шаблона:

pre {
background-color: #f7f7f7;
padding: 13px;
box-shadow: 0px 0px 11px #bdbdbd;
word-wrap: break-word;
border-radius: 5px;
}

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

160

(8 replies, posted in Talks about all)

А вопрос задать нормально..?

161

(7 replies, posted in Script)

k245 wrote:

Интересное решение - это писать вопросы на русском языке в англоязычной ветке форума, толком даже не разобравшись в сути топика и тематике форума wink

Это говнобот же...  smile В анкете так и написано.

k245 wrote:

Elementor хорош, но только платный )) Красиво получается, но сложно настраивать.

Он бесплатный. Платные только плюшки...
Но это инструмент для ленивых (или тех, кто не хочет учить тонкости оформления и верстки). Вариант для страниц типа "настроил и забыл", но для блога - не лучший выбор, ибо своей юзабельностью он обязан тонне говна в коде страниц.
Лучше не мудрить а заюзать классический tinymce-редактор.

Наверное, быстрее чем придумывать импорт/экспорт, будет использовать банальную копипасть с последующей доработкой напильником...

.. где лучше размещать статьи на эту тему?

Лучше на своем сайте...

Платно: на любом российском хостинге. Движок - любой, например wordpress.

Бесплатно:
Домен: https://www.freenom.com/ru/freeandpaiddomains.html
Хостинг: https://hostiman.ru/free-hosting
Движок: https://mobirise.com/ru/

не загружаются все изображения

Возможно - сменить хостинг картинок...

165

(8 replies, posted in General)

А прогрессбар в режиме bpVertical, не..?
https://i.imgur.com/1XmXc05.png

166

(7 replies, posted in Russian)

Ну, конечно же. Все ясно.

167

(7 replies, posted in Russian)

А, ну тогда понятно...

168

(7 replies, posted in Russian)

Ctrl+A, Ctrl+С, Ctrl+V...
Не?

В "SMSPhone" не должно быть ничего кроме цифр без пробелов. Внимательно смотрим скриншот ошибки, сравниваем с примером выше...

Читай последнее положение (X Y) курсора, сравнивай в ..Leave с координатами рисунка.

171

(25 replies, posted in Russian)

k245 wrote:
vovka3003 wrote:

сотка...

информация с сайта https://theins.ru/ ?  )))

Из лс в vk.

m128mx wrote:

Учитывая объем работы проделанный скорее всего в одиночку, и копеечную стоимость продукта...

а также то, что даже с учетом этой копеечной стоимости большинству ее еще нужно крякнуть...

172

(25 replies, posted in Russian)

сотка...

173

(25 replies, posted in Russian)

Второе...

vit007 wrote:

sibprogsistem, json из примера Sms...

..if Pos('232',JSONString.Value) then ShowMessage('Превышен лимит одинаковых..

Люди добрые, не надо друг другу по топикам этот 3,14здец перекидывать...

А если "..вы выиграли 232 ляма..!"?



Вот это:

   if Pos('232',JSONString.Value) then ShowMessage('Превышен лимит одинаковых сообщений на этот номер в день');
             if Pos('-1',JSONString.Value) then ShowMessage('Сообщение не найдено');
             if Pos('107',JSONString.Value) then ShowMessage('Не может быть доставлено: неизвестная причина');
             if Pos('108',JSONString.Value) then ShowMessage('Не может быть доставлено: отклонено');
             if Pos('200',JSONString.Value) then
             begin
                ShowMessage('Неправильный API');
                MessageBeep(1); //Звуковой сигнал
                frmWord.Memo1.Text := '';
                frmWord.Memo1.SetFocus;
             end;
             if Pos('201',JSONString.Value) then ShowMessage('Не хватает средств на лицевом счету');
             if Pos('202',JSONString.Value) then ShowMessage('Неправильно указан номер телефона получателя, либо на него нет маршрута');
             if Pos('203',JSONString.Value) then ShowMessage('Нет текста сообщения ');
             if Pos('204',JSONString.Value) then ShowMessage('Имя отправителя не согласовано с администрацией');
             if Pos('209',JSONString.Value) then ShowMessage('Вы добавили этот номер (или один из номеров) в стоп-лист');
             if Pos('220',JSONString.Value) then ShowMessage('Сервис временно недоступен, попробуйте чуть позже');
             if Pos('230',JSONString.Value) then ShowMessage('Превышен общий лимит количества сообщений на этот номер в день');
             if Pos('231',JSONString.Value) then ShowMessage('Превышен лимит одинаковых сообщений на этот номер в минуту');
             if Pos('233',JSONString.Value) then ShowMessage('Превышен лимит отправки повторных сообщений с кодом на этот номер за короткий промежуток времени ("защита от мошенников"), можно отключить в разделе "Настройки")');
             if Pos('301',JSONString.Value) then ShowMessage('Неправильный api_id, либо логин/пароль');
             if Pos('205',JSONString.Value) then ShowMessage('Сообщение слишком длинное (превышает 8 СМС)');
             if Pos('206',JSONString.Value) then ShowMessage('Будет превышен или уже превышен дневной лимит на отправку сообщений ');
             if Pos('207',JSONString.Value) then ShowMessage('На этот номер нет маршрута для доставки сообщений');
             if Pos('302',JSONString.Value) then ShowMessage('Пользователь авторизован, но аккаунт не подтвержден (пользователь не ввел код, присланный в регистрационной смс)');
             if Pos('500',JSONString.Value) then ShowMessage('Ошибка на сервере. Повторите запрос');

равно вот этому:

if JSON(j,'["status"]') <> 'OK' then

ShowMessage(
    'Ошибка отправки!' +#13#10+
    'Код: ' + IntToStr(JSON(j,'["status_code"]')) +#13#10+
    'Текст ошибки: ' + JSON(j,'["status_text"]'))
) ;
vit007 wrote:

vovka3003. понимаю, что надо полученное сообщение загонять в константу и оттуда извлекать необходимое?

константу я привел в пример, чтобы было понятнее, но пуля не достигла цели...

У вас это может выглядеть так:

..
var j:string;
  begin
    j:= smsquestion.ResponseText;
    ShowMessage(JSON(j,'["status"]'));
...

JSON = функция, которая парсит json-содержимое ответа.
j = сам ответ.
["..."], ["..."]["..."], ["..."]["..."]["..."] - способ достать значение из дерева json-объектов.