СПК1хх & Сокеты

[ВладОвен]

Супер! Теперь осталось понять, почему она хреново работает.

Я складываю свою строку из многих компонентов.
Вот код:

sDataSend := '{"calibr_unit":10,"data":{"cmd":"add_launch","algoritm":"';          // уникальный номер стенда
sDataTEMP := 'Test';                                                                                        // уникальное имя алгоритма
STU.StrConcatA(ADR(sDataTEMP), ADR(sDataSend), 10000);                             // сначала кусок для прибавления, потом то, к чему нужно прибавить.

Получаю нормальную склейку:
Безымянный121212.png

А далее:

sDataTEMP := '2022-12-05 12:00:00';                                                              // дата/время
STU.StrConcatA(ADR(sDataTEMP), ADR(sDataSend), 10000);

Что тут:
Безымянный44444.png

Почему так?

[Евгений Кислов]

Выложите простейший проект (без сервера, CASE и т.д.), в котором я смогу повторить проблему.

[ВладОвен]

Проблема создать простейший проект.
Удалил визуализацию и получил кучу ошибок. Мол, нету визуализации.
Ну неужели нельзя сделать проект для СПК без использования визуализации?

Буду делать еще раз.

[ВладОвен]

Готово: DropMeFiles – бесплатный файлообменник без регистрации

Проблема проявляется и в этом проекте.

[Евгений Кислов]

Вы указываете функции, что у вас размер буфера - 10000 байт, но в реальности под указатель подкладываете переменную типа STRING, которая занимает 81 байт
(по умолчанию - если макс. размер строки не указан - выделяется память под 80 символов + терминирующий ноль).
Поэтому у вас переполнение буфера происходит.

Сделайте так:

...
sDataSend : STRING(10000);
...

[ВладОвен]

Да. Действительно заработало. Кто бы мог подумать про гребанную строку длинной в 10к символов?!

Теперь другая проблема: у меня не открывается клиент.
Но тут, наверное, мне нужно более фундаментально подойти к проблеме.
Мне кажется, что я вообще не догоняю как строить эти программы.

[ВладОвен]

Вот можно открыть сокет так:

CASE bState OF
    05: // Формируем строку для отправки
          // Тут мы уже разобрались, оказывается надо строку делать с длинной в 10к символов.
        bState := 10;
    10: // создаем TCP-клиента
        fbTcpClient(xEnable:=TRUE, udiTimeOut:=1000, ipAddr:=stIpServer, uiPort:=uiPortServer);
        IF fbTcpClient.xActive THEN
            bState := 20;
        ELSIF bTries > 10 OR fbTcpClient.xError THEN
            bError := 10; // код шага, где произошла ошибка
            xError := TRUE; // флаг ошибки
            bState := 50; // Выход из автомата шагов
        END_IF
    20: ... // Другие шаги, через неделю до них дойдем.

[Евгений Кислов]

Да, можно.

[ВладОвен]

Вот такой вопрос.
Я открываю сокет и даю время на его открытие 10 секунд.
Но программа сразу же мне выдает ошибку TIME_OUT.
Что я делаю не так?
Безымянный777777.png

Получается, что ФБ TcpClient подымает флаг xError и причина этого флага лежит в eError? Их надо контролировать?

[Евгений Кислов]

Я открываю сокет и даю время на его открытие 10 секунд.

Вы ошибаетесь. Таймаут задается в микросекундах.