Ismet Sonmez

I talked to Kim, new release is about to come out

I am sending the server codes I use in the running system. You can change it according to yourself.

procedure TModuleMain.StartServer;
var
filelogmgr:IkbmMWLocalFileLogManager;
begin
filelogmgr:=TkbmMWLocalFileLogManager.Create(‘.log.txt’,’.audit.txt’);
filelogmgr.FlushInterval:=0;
Log.LogManager:=filelogmgr;
//Log.TimeStart(‘Total’);
//Log.TimeEnd(‘Total’,’Total time’);

mwIndyStd.Bindings.Items[0].Port :=…[Read more]

unit MainSvc;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.SvcMgr, Vcl.Dialogs,
System.Win.Registry;

const
STR_VERSION_MAIN = ‘1.0’;
STR_NAME_COMPANY = ‘Bolergo’;
STR_NAME_APPLICATION_SHORT = ‘BLTicketSvc’;
STR_NAME_APPLICATION…[Read more]

Oppps, my fault

it is double, when remove turkish its work

tempstr := ‘{“statusCode”: 3,”description”: “çğöşü ÇĞÖŞÜ”}’;

version 5.15.10 Enterprise

test code;

procedure TFormMain.Button1Click(Sender: TObject);
var
o:TSimpleObjectResult;
s:TSimpleObjectResult;
str:string;
begin
s := GetSimpleObjectResultBySql(‘SELECT * FROM SYSFIRM’);

str := ObjectMarshal(S,1,True);
showmessage(str);

o:=TSimpleObjectResult(ObjectUnMarshal(TSimpleObjectResult,str,1,True));
showmessage(o.Data.Desc);
end;

I fresh installed in Delhi 10.4.2, no problem

TkbmMWCustomSQLMetaData.FormatString(const AString:string):string;

line 638 “if FStringQuote=#0 then”  FStringQuote =”

not seeing  #39 in interbase metadata

as it creates  custommetadata itself
I gave up

I’ve tried different combinations, different problems have arisen,

I keep debugging

object kbmMWFireDACConnectionPool1: TkbmMWFireDACConnectionPool
MetaData = mwMeta
Rewriter = kbmMWInterbaseSQLRewriter1
Database = fdCon
Left = 336
Top = 64
end
object kbmMWInterbaseSQLRewriter1: TkbmMWInterbaseSQLRewriter
MetaData = mwMeta
Left = 424
Top =…[Read more]