Size: a a a

2020 May 12

SB

Sergey Bodrov in Delphi & Lazarus
И получается, что класс модуля связи функционирует автономно. Сам создает опросы, сам выдерживает таймауты. Можно еще события прикрутить, чтобы при поступлении ключевых данных сообщал в основное приложение.
источник

SB

Sergey Bodrov in Delphi & Lazarus
PTyTb
ну я читаю ответ после паузы сразу для каждого модуля свои методы которые возвращают уже сформированные данные
Когда нужно посчитать время, сохраняешь текущее время, а потом в каждом тике опять получаешь время и сравниваешь, сколько времени прошло.
источник

SB

Sergey Bodrov in Delphi & Lazarus
Проще всего через Now(), но лучше через getTickCount64()
источник

AW

Alex Wow in Delphi & Lazarus
А эти встроенные компоненты ком порта ,нормальное работают ?
источник

P

PTyTb in Delphi & Lazarus
Alex Wow
А эти встроенные компоненты ком порта ,нормальное работают ?
TSdpoSerial не такой уж и встроенный
источник

AW

Alex Wow in Delphi & Lazarus
У нас свои исходы,написанные на винапи . Для ком порта ,допустим . Что-то не понравилось ,решили свою реализацию написать
источник

AK

Alexey Kulakov in Delphi & Lazarus
источник
2020 May 13

AS

Alexey Shumkin in Delphi & Lazarus
источник

AS

Alexey Shumkin in Delphi & Lazarus
Эмба жжёт :)
best release, endless features
источник

Y

Yura in Delphi & Lazarus
Добрый день! подскажите пожалуйста, как так получается что выдает что 1<>16 4<>11
image1.Picture := image16.Picture; image4.Picture := image11.Picture;  if image1.Picture = image16.Picture then showmessage('1 = 16') else showmessage('1 <> 16'); if image4.Picture = image11.Picture then showmessage('4 = 11') else showmessage('4 <> 11');
источник

D

Darlok(Artem) in Delphi & Lazarus
Yura
Добрый день! подскажите пожалуйста, как так получается что выдает что 1<>16 4<>11
image1.Picture := image16.Picture; image4.Picture := image11.Picture;  if image1.Picture = image16.Picture then showmessage('1 = 16') else showmessage('1 <> 16'); if image4.Picture = image11.Picture then showmessage('4 = 11') else showmessage('4 <> 11');
Скорее всего при присвоении объекта в TImage.Picture происходит вызов TImage.Picture.Bitmap.Assign(InputBitmap). Надо читать как работает Set* у TImage.Picture
источник

VA

Viktor Akselrod in Delphi & Lazarus
Darlok(Artem)
Скорее всего при присвоении объекта в TImage.Picture происходит вызов TImage.Picture.Bitmap.Assign(InputBitmap). Надо читать как работает Set* у TImage.Picture
+
источник

AS

Alexey Shumkin in Delphi & Lazarus
Yura
Добрый день! подскажите пожалуйста, как так получается что выдает что 1<>16 4<>11
image1.Picture := image16.Picture; image4.Picture := image11.Picture;  if image1.Picture = image16.Picture then showmessage('1 = 16') else showmessage('1 <> 16'); if image4.Picture = image11.Picture then showmessage('4 = 11') else showmessage('4 <> 11');
отформатируй, код, пожалуйста
источник

Y

Yura in Delphi & Lazarus
Alexey Shumkin
отформатируй, код, пожалуйста
Блин в телегу кидаю он весь так выкладывается, не знаю что делать
источник

AS

Alexey Shumkin in Delphi & Lazarus
Yura
Блин в телегу кидаю он весь так выкладывается, не знаю что делать
редактировать ручками
+ Ctrl+Shift+M
источник

D

Darlok(Artem) in Delphi & Lazarus
Покрывай код в начале и в конце тройными `
источник

AK

Alexey Kulakov in Delphi & Lazarus
или то ж самое через меню форматирования по правому клику
источник

А

А in Delphi & Lazarus
Подскажите, как в Lazarus получать код ошибки от функций из библиотеки (.so) в linux.
Пробую использовать libcapi20.so от КриптоПРО,  под Windows используется GetLastError и нет проблем...
под Linux - пробовал вызывать BaseUnix.fpgeterrno при неуспешном вызове функций из .so - но функция fpgeterrno возвращает 0 ...
источник

AS

Alexey Shumkin in Delphi & Lazarus
А
Подскажите, как в Lazarus получать код ошибки от функций из библиотеки (.so) в linux.
Пробую использовать libcapi20.so от КриптоПРО,  под Windows используется GetLastError и нет проблем...
под Linux - пробовал вызывать BaseUnix.fpgeterrno при неуспешном вызове функций из .so - но функция fpgeterrno возвращает 0 ...
fpgeterrno/GetLastError возвращает системный код ошибки
под виндой криптопро, очевидно, его ставит, а под линухом - похоже, что нет
источник

AS

Alexey Shumkin in Delphi & Lazarus
А
Подскажите, как в Lazarus получать код ошибки от функций из библиотеки (.so) в linux.
Пробую использовать libcapi20.so от КриптоПРО,  под Windows используется GetLastError и нет проблем...
под Linux - пробовал вызывать BaseUnix.fpgeterrno при неуспешном вызове функций из .so - но функция fpgeterrno возвращает 0 ...
какой прототип функции-то, которая, типа, завершается с ошибкой?
источник