mORMot Open Source

mOrmot is very grate product and I like it very much!

thease days, my server report "Out of memory" error.

my client code:

procedure TForm1.btnTestClick(Sender: TObject);
var
  Data, SQL: string;
  Data_ID: Integer;
begin
  Data_ID := 1;

  while not chkStop.Checked do
  begin
    Application.ProcessMessages;
    Caption := IntToStr(Data_ID);
    Data := widestringToUtf8('11123錦');
    SQL := Format('update t_data set Dat=:(''%s''):,PostTime1=now(),s1=2 where Data_ID=%d', [Data, Data_ID]);

    if not ExecuteSQL(sql, []) then
    begin
      ShowMessage('Fail to save data!');
      Break;
    end;
    Inc(Data_ID);
  end;
end;

when runing, I found the  memory usesed by mormotServer increasing。

hello,

    My program need TSQLHttpClient to execute server functions, and I

    use  TSQLDBSocketConnectionProperties to open query,

    could TSQLHttpClient and  TSQLDBSocketConnectionProperties
    use the same port?

    Model := TSQLModel.Create([], ROOT_NAME);
    ClientA := TSQLHttpClient.Create('127.0.0.1', '8192', Model);
    Client.ServerTimeStampSynchronize;

   with

    fClientB := TSQLDBSocketConnectionProperties.Create('127.0.0.1:8192', 'myserver', 'myusername', 'password');

hello,

    My Code (I use  zeosdbo ):

procedure TFrmMain.btnClick(Sender: TObject);
var
  val: string;
begin
   { --- this do not work,   
   fClient.ExecuteNoResult(formatutf8('update `t_data` set `imgname`=''%''',
    [AnsiToUtf8('錦錦.jpg')]), []);
   }

   // this work fine
    val := '錦錦.jpg';
    fClient.ExecuteNoResult('update `t_data` set `imgname`=?', [AnsiToUtf8(val)]);

  { ----- this will no work ----
    sql := 'update `tb_status` set `imgname`='  + AnsiToUtf8('錦錦.jpg');
    fClient.ExecuteNoResult(sql, []);
  }
end;