mORMot Open Source

Is there a way (just implemented) to send a notify from server to client when there is a change on DB.
I'd like add the clients GUI when there is a change on DB. In this moment my clients update the DB when the user change windows status from minimized to normal or maximized, however thi update the GUI without reason in many case.
I like know if there is a way to optimize this procress so the client can update the GUI when needed and only the piece of GUI needed (for example if there change only on table Product the client will update only the GUI about this table).

Is this just implemented or I need do it?

I using WebSockets to change message (commands) between server and client.
Sometimes I get an error on client (see image).

can you help me to understand the problem?

On my application I use a WebSockets to send command from server to client.
When the administrator close database on server application, the server application send a message to client about it and then free all variables.
The client receive the message then hide the gui about the database and free all variables about it.

I get and error on client when TSQLHttpClientWebsockets is free: "SndLow 10053 (Connection aborted by the software of the host computer)".

What is the right way to store "pseudo" value inside the interface?

"Join" function on Project31ChatServer save the interface inside an array then "BlaBla" send a message to all clients.
The server cannot identify the single client, so on "Join" I want save "pseudo" inside interface so the server will send the message to single client by "pseudo".

I have add a property to IChatCallback:

  IChatCallback = interface(IInvokable)
    ['{EA7EFE51-3EBA-4047-A356-253374518D1D}']
    procedure BlaBla(const pseudo, msg: string);

    function GetPseudo : string;
    procedure SetPseudo(aValue: string);

    property Pseudo: string read GetPseudo write SetPseudo;
  end;

  ...

  TChatCallback = class(TInterfacedCallback,IChatCallback)
  protected
    fPseudo: string;
    procedure BlaBla(const pseudo, msg: string);
    function GetPseudo : string;
    procedure SetPseudo(aValue: string);
  public
    property Username: string read GetPseudo write SetPseudo;
  end;

  ...

  function TCommandsCallback.GetPseudo : string;
  begin
    Result := fPseudo
  end;

  procedure TCommandsCallback.SetPseudo(aValue: string);
  begin
    fPseudo:= aValue
  end;

then I have edit "Join":

  callback.Pseudo:= pseudo;
  InterfaceArrayAdd(fConnected,callback);

When I try to connect my client to server I get this error on server:
Exception class EInterfaceFactoryException with message 'TInterfacedObjectFakeServer.FakeCall(ICommandsCallback.SetPseudo) failed: 'TSQLHttpServer.NotifyCallback(3) returned status=404''. Process Project31ChatClient.exe (2248)

TLongWorkService? How do I decide the client? Sorry but the structure interface structure I just hard to understand.

Is it possible add an example to show how use more clients and send a message from server to single client?

After some test I have a new. In my case the problem is the second DrawText call.
For any page of my PDF only the first DrawText is draw without problem, the second is draw but I cannot see the text, only if select it and copy into blocknote I can see it.

Any idea?

Thanks

I don't have idea about I do it. Can you indicate the page of documentation where I can found information about it?

Thanks

The "double quote" is a error. I'm not copy the code but rewrite it on post and then I have put a double quote.

Thank you fot this and for your great job.

You are right.

I think you should add a black record retrieve the id then update it with real data. It's not a good way but I think the only way.

I think I have found a possible problem: I don't have add this code to my unit:

initialization
  Gdip.RegisterPictures;

I'm remeber taht with this code in the pas my code works however on recent Delphi version (XE3 and XE6) if I add these line I get an error.
On Delphi XE6 I get
"Exception class EFilerError with message 'A class named TJpegImage already exists'" line 1081 of SynGdiPlus.pas

How can I fix it.

OK I make some test with my DB.

1. I have use GetString to retrive text value of fields:
135131870949
135128992597
135115886182

2. I have only change GetString to GetAsDateTime and I get these:
135131870949 -> 30/12/1899
135128992597 -> 30/12/1899
135115886182 -> 30/12/1899

the fields have different value but the datatime is the same.

I will make some test.
I'm working on my old project and only today I have update it with last version of framework after many time. I hope is not change something on framework from my last software compile.

I have try this:

TimeLogToDateTime(GetInt64(Table.Get(x, y)));

but with last versions of framework I get an error: "Invalid argument to time encode".

The some code in the past it's ok.

Any idea?

This can hep too me.

The same code works very well on TPaintBox canvas.

  PaintBox1.Canvas.Pen.Width := 2;
  PaintBox1.Canvas.Pen.Color := clGray;
  PaintBox1.Canvas.Brush.Style := Vcl.Graphics.bsClear;
  PaintBox1.Canvas.Brush.Color := clRed;
  rt := Rect(100, 100, 200, 100 +20);
  PaintBox1.Canvas.FillRect(rt);
  PaintBox1.Canvas.MoveTo(100, 100);
  PaintBox1.Canvas.LineTo(100, 100+20);
  PaintBox1.Canvas.MoveTo(100, 100+20);
  PaintBox1.Canvas.LineTo(200, 100+20);

Do you have any idea?