// FTimingHash:=TkbmMWLockFreeHashArray32.Create(100)
FTimingHash:=TkbmMWLockFreeHashArray32.Create(4096)

It seems working
The server has been running for 3 days without any freezes.

We are seeing a server hang in kbmMW 5.15.10 and the current strongest suspicion is not our service code anymore, but the kbmMW lock-free infrastructure, specifically TkbmMWDynamicLockFreeHashArray / TkbmMWLockFreeHashArray.Contains, apparently related to FOngoingRequests.

Our local source tree shows:

kbmMW 5.15.10 Mar 29 2021:…[Read more]

destructor TkbmMWCustomTCPIPIndyClientTransport.Destroy;
begin…[Read more]

/myserver/api = /myserver/api

I didn’t change your server description

[kbmMW_Rest(‘path:/myserver’)]
…
[kbmMW_Rest(‘method:get, path: “api”, responseMimeType:”application/x-yaml”‘)]
function OpenAPI:string;

The OpenAPI function is not called and Server…[Read more]

I tried run this thing on DemoSimpleInvocationServer
I removed the “strict” directive but url http://127.0.0.1:888/myserver/api/index.html?url=/myserver/api doesn’t call OpenApi function and Swagger shows defaule api (Pet Store)
How can I fix it?

Thanks

Error with parsing float values with exp values (like  1.2E+7 or 1.2E-8)

I think this function needs to be changed

function TkbmMWJSONStreamer.ExpectNumber(var AIsInteger:boolean):double;
var
sb:TkbmMWStringBuilder;
bDot:boolean;
bExp:boolean;
begin
bDot:=false;
bExp:=false;
sb:=TkbmMWStringBuilder.Create;
try
while…[Read more]

The Remote Desktop Demo doesn’t work if it is compiled in kbmMW 5_14, 5_15 and it works if it is compiled in 5_13_10. There seems to be a problem with FScreenLock.BeginWrite.

Did someone is able to collect this project?

Thanks
Vadim Mescheryakov

I am trying to use Remote Desktop on computer with UAC.  I use the server with the service but this isn’t resolve a problems.

The First problem: The client shows white screen when Windows shows the UAC dialog. ( BitBlt generates the error 6 (Wrong Handle))
This can be fixed with this…[Read more]

The operator runs the program (a client for version control). This program checks new files on the version control system (main application exe, the FastReport templates), downloads them on the client’s computer and runs the main application. I need to refresh files on…[Read more]

When I’ve changed the version to  5.15.0 I’ve got the problem with kbmMemTable savetoxml + loadfromxml. If the Integer field has zero value in the source dataset when the target dataset’s field will contain the null value after the record was loaded from xml.  It was a tricky p…[Read more]

When I’ve changed the version to  5.15.0 I’ve got the problem with kbmMemTable savetoxml + loadfromxml. If the Integer field has zero value in the source dataset when the target dataset’s field will contain the null value after the record was loaded from xml.  It was a tricky p…[Read more]

I think this exception needs to be commented out. If the handle was deleted let it creates new one. You’ve put a right comment before this line

function TkbmMWFilePool.Access
…….
if AHandle=INVALID_HANDLE_VALUE then
// No matching handle found. Complain. It must have been garbage collected or a wrong token given.
//…[Read more]

If I add this block the service freezes during sending files

The problem hides in another place.  I can see the same error inside the function CreateNewFileHandle.  AReferences.Items deleted in some parallel thread and this code show error

if AToken<0 then
begin
// Generate unique random token number.
// Its randomized to m…[Read more]

the second call CreateNewFileHandle doesn’t contain ” lst:=FFileReferences.BeginWrite + FFileReferences.EndWrite”

// No token provided, add access…[Read more]

kbmMW 5.15.10

I created a version control system based on TkbmMWFileService. I run the test for simultaneously working for kbmMWFileService and  I have a few problems

The First

AV in function TkbmMWFileReferences.FindReference(const AID:cardinal; const APath:string):TkbmMWFileReference. I thing items are deleted while this cycle…[Read more]

I want see only errors in debug file. I set kbmMWDebugLevel := mwdlError. But the dubug file contains all events and data, because all comparsion are like this

procedure kbmMWDebugDumpStream(ALevel:TkbmMWDebugLevel; AType:TkbmMWDebugType; AWhere:TkbmMWDebugDump; AOrigin:string; AMessage:string; AStream:TStream);
{$IFNDEF…[Read more]

Try…[Read more]

kbmMW is version 5.15.10

procedure TkbmMWJSONStreamer.SaveToStringBuilder builds wrong JSON if DontStreamNullProperties = True and the last element os null

The error is in next code:

for i:=0 to n do
begin
co:=TkbmMWONCustomObject(o.PropertyValue[i]);
if (co is TkbmMWONNative) and (FDontStreamNullProperties) and…[Read more]

procedure TkbmMWDOMXMLNode.SetData(AValue:string);
begin
Exclude(FFlags,mwxnoDataModified);
Exclude(FFlags,mwxnoDataProvided);
Exclude(FFlags,mwxnoIsNil);
// Vad
//FDataLength:=0;

FDataLength:=Length(AValue);

//

if AValue=” then
exit;

{$IFDEF…[Read more]

I run tests for 100 000 records. I know it’s a ridiculous amount of records, but my laptop very fast and I need to see how it affects my client’s workplaces.

The pair  TKbmMemtable + TVirtualQuery works very slowly, very.
The pairs of TKbmMemtable + TkbmMemSQL  and  TVirtualTable  + TVirtualQuery  work…[Read more]

1. TKbmMemSQL (only for creating a table)   +  TKbmMemtable + TVirtualQuery (from DevArt UNIDAC)  works properly.
2. Changing ‘Create table’ from SQL Statement to AddField + TVirtualTable  + TVirtualQuery also works properly and faster than the first solution

I can use: One knmMemTable + Few KbmMemSQL with only modify SQL Statements

I have a table with documents rows in my application (TTable).  User changes these rows by using an interface (it is my code in application)  and my customers have a huge quantity of different external scripts (Fast Script Interpreter) that can c…[Read more]

kbmMemTable1.LoadFromDataSet(FSQL, [mtcpoStructure, mtcpoProperties]);

kbmMemTable1.AppendRecord([1, ‘Name 1’]);
kbmMemTable1.AppendRecord([2, ‘Name 2’]);

FSQL.Tables.Clear;

FSQL.Tables.Add(‘t1’,…[Read more]

2.  Demo.dpr contains few SQL create table (table9) but no one example  how I can connect to this created table.

When I wrote “The…[Read more]

• Creating few tables and connecting to these tables from few TkbmMemSQL for concurrent requests
• Storeing a local copy for emergency situation (in case power off) as it does the method TTable.FlushBuffers

Where can I…[Read more]

I created new TkbmMWClientQuery,TkbmMWClientConnectionPool,TkbmClient, TkbmMWPooledSession objects, I obtaned a new token for a new client object and now it works. Is it right solution?

Thanks
Vadim Mescheryakov

I have application with TkbmMWClientQuery,TkbmMWClientConnectionPool,TkbmClient on datamodule. I create thread with TkbmMWClientQuery with properties ConnectionPool and StreamFormat  linked to components on datamodule. After this I catch error on main thread in TkbmMWCustomPooledDataSet.SetActive(Value:boolean). I run Server in Delphi…[Read more]

[kbmMW_Rest(‘method:post, path:getdocrow’)]
[kbmMW_Method]
function GetDocRow: string;

function TMTRESTService.GetDocRow: String;
var jsonIn, jsonOut: TkbmMWJSONObject;

…..
Result := jsonstreamer.SaveToUTF16String(jsonOut);

end;

The client and the server works, but kbmMWDebug writes ?????

Result:…[Read more]

How can I set “default” procedure for all GET  requests for TkbmMWCustomSmartService for the purpose returning index.html ?

[kbmMW_Service(‘name:MOWAITER_RESTSERVICE, version:1.0, flags:[listed]’)]
[kbmMW_Rest(‘path:/’)]

…….

[kbmMW_Rest(‘method:post, path:mobilewaiter/*’)]
[kbmMW_Method]
function PosFunction:…[Read more]

Thanks
Vadim Mescheryakov

kbmMW 5.14.0. ORM with UNIDAC and Firebird

All ORM queries don’t return object and list of object if I call function without transaction in parameters.

I see in DbMonitor this problem: Default transaction is started, query is executed  and  default transaction is committed before object was created from dataset, may be before dataset w…[Read more]

Thanks

>I will see if I can make it an easy built in support.

I didn’t figure out how compress result. Did you make support for compress in current version kbmMW?

Thanks
Vadim Mescheryakov

This code works:
orm.UpgradeTable(TArray<TClass>.Create(TMRDOC,TMRDOCROW));

Thanks

Vadim Mescheryakov

I fixed your code for changing metadata in Firebird  tables (SQLDialect 1). I  changed some sql and data type definitions.

Can I send changed units to you?

>DDL operations are usually not handled under transactional control in SQL.

Procedure  orm.CreateOrUpgradeTable(TMROWNER) doesn’t finish a creating table in Firebird 2.5 and Firebird 3.  The table does not exists in database.
In Firebird Database “CREATE TABLE”, “ALTER TABLE”  definitely need a Commit. I can send test project with Fi…[Read more]

Thanks!