FreePascal.ru

runewalsh писал(а):Да, наверное, это баг, ща зарепорчу.

Спасибо.
А в fpwebsocketclient.pp еще и баг с потоком TMessageDriverThread у TWSThreadMessagePump. При освобождении формуляра все время падает.

Class(TWSThreadMessagePump.TMessageDriverThread )
Ну это я попробовал самым первым образом, даже
Class(TMyWSMsgPump_descendant.TMessageDriverThread )

Verbose: Free Pascal Compiler version 3.3.1 [2023/04/13] for x86_64
Verbose: Copyright (c) 1993-2022 by Florian Klaempfl and others
Verbose ...

Добрый день,
вопрос простой. Попробую на примере.
Евть в $FPCDIR/fcl-web/src/websocket/fpwebsocketclient.pp вот такой вот класс
TWSThreadMessagePump = Class(TWSMessagePump)
Private
FThread : TThread;
Procedure ThreadTerminated(Sender : TObject);
Protected
Type
TMessageDriverThread = Class ...

Чтобы не клепать потомков, можно использовать хелперы.
Идея интересная, но есть нюансы. К сожалению, хелперы не могут решить задачу. Нельзя перекрыть конструктор, а нужно в конструкторе TJSONRPCHandler инициализовать ParamDefs коллекци. Там в fpjsonrpc.pp особый механизм, сначала при регистрации ...

Добрый день,
я играюсь с fpjsonrpc и сделал простой сервер, отвечающий на запросы в json-rcp протоколе. Старт был быстрый и даже заработало. Но вот поднабралость много команд и пытаюсь выкрутиться.

В Lazarus есть возможность визуально накидать TJSONRPCHandler прямо в DataModule. Таким образом при ...