MessageServer: "push" messages from server to client (long polling)

[Oliver Morsch]

Hi!

I have developped a message server, so you can send "push" messages at any time from the server to the web client (using long polling). You can also send messages from a client to another client (with message server in the middle).

The message server is a standalone app. You must run MsgSrv.exe and MsgCli.Exe (second is a uniGui project).

I was using Delphi XE3 (with generics, class vars, ...), so i have included the .exe, because the message server does not compile in old delphi versions.

For details see the commented screenshot.

Regards
Oliver
 

MsgSrv.zip

 

[AlbertoVesx]

Very interesting. I am going to try it.

[asapltda]

Hello with delphi x2 professional also works

[RobYost]

I just found this thread.  When I tried to compile the client with XE6:

 

 

procedure TfrmMsgCliCtrl.btnSelectTargetClick(Sender: TObject);
begin
  frmSelectTargetSession.ShowModal( procedure (Res: Integer)
    begin
      if Res = mrOK then begin
        edtTargetSess.Text := frmSelectTargetSession.lbSessions.Text;
      end;
    end
    );
end;

[dcc32 Error] UfrmMsgCliCtrl.pas(105): E2250 There is no overloaded version of 'ShowModal' that can be called with these arguments

 

Does someone know how to fix the syntax for XE6, or am I doing something wrong?

 

Thanks.

[Oliver Morsch]

procedure TfrmMsgCliCtrl.btnSelectTargetClick(Sender: TObject);
begin
  frmSelectTargetSession.ShowModal( procedure (Sender: TComponent; Res: Integer)  // <---
    begin
      if Res = mrOK then begin
        edtTargetSess.Text := frmSelectTargetSession.lbSessions.Text;
      end;
    end
    );
end;

It has nothing to do with XE6, it's a change in UniGUI.

[Oliver Morsch]

Here is a new version using UTF-8 encoding (-> no problem with special characters):

 

 

!MsgSrvV2.zip

[Ario.Paxaz]

Hi

 

I use SSL protocol in my project.

I change the code

procedure TfrmMsgCliCtrl.UniFormCreate(Sender: TObject);
var
  S: String;
begin
  // init edits and script:
{  S := 'https://' + StringReplace(UniSession.Host,
    IntToStr(UniServerModule.Port), '8070', []);}

  S:='https://my valid IP:8070';
end;

Now in this line the error ocurred

procedure TfrmSelectTargetSession.UniFormShow(Sender: TObject);
var
  S: String;
begin
  S := edtBaseURL.Text + 'sessions';
  S := httpGetSess.Get(S);
end;

I add below code 

  httpGetSess.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(httpGetSess);
  httpGetSess.HandleRedirects := True;

But don't fixed.

 

Best Regards.

[Oliver Morsch]

What is in "edtBaseURL.Text", ends it with a "/"?

[Ario.Paxaz]

 

What is in "edtBaseURL.Text", ends it with a "/"?

 

 

 

I create it.

I replace "http://127.0.0.1:8070/"with 'https://My Ip :8070' and then check it.

The edtBaseURL.Text value is (https://MyIp :8070/sessions) 

But I have problem yet.

 

Best Regards.

[Oliver Morsch]

Show me the procedure TfrmMsgCliCtrl.UniFormCreate

 

In the code above there is a / missing at the end

 

Should be https://MyIp:8070/

[Ario.Paxaz]

procedure TfrmMsgCliCtrl.UniFormCreate(Sender: TObject);

var

  S: String;

begin

  // init edits and script:

{  S := 'http://' + StringReplace(UniSession.Host, IntToStr(UniServerModule.Port), '8070', []); //alternative?: S := StringReplace(UniSession.URL, IntToStr(UniServerModule.Port), '8070', []);

  if Copy(S, Length(S), 1) <> '/' then

    S := S + '/';}

  S := 'https://x.x.x.155:8070/' ;

  Script.Text := StringReplace(Script.Text, '$baseUrl$', S, []);

  edtBaseURL.Text := S;



  edtSessionID.Text := UniSession.SessionID;

  // create objects and init:

  FSL := TStringList.Create;

  FSL.Add('sid=' + edtSessionID.Text);

  FSL.Add('msg=');

end;

 

[Oliver Morsch]

OK there is the "/".

 

Have you changed MsgServer to SSL too?

[Ario.Paxaz]

I replace in one procedure 

http://localhost  with (https://My IP).

 

 

But now set all of them and send result for you.

 

 

Best Regards.

[Oliver Morsch]

Did you add SSL component to MsgServer? And use cert?

[Ario.Paxaz]

I change all of them,and run on server.

 

Then run client program on the client.

 

But don't fixed.

[Ario.Paxaz]

 

 

Did you add SSL component to MsgServer? And use cert? 

 

 

No.

How to I do it?

[Oliver Morsch]

You need a TIdServerIOHandlerSSLOpenSSL, must assign the certs and then assign it to the HttpServer.

 

But I have never made this.

[Ario.Paxaz]

HI

 

I could send message from MsgSrv to all client.

procedure TfrmMsgSrvCtrl.FormCreate(Sender: TObject);
var
  LIOHandleSSL: TIdServerIOHandlerSSLOpenSSL;
begin
  FServer := TIdHTTPWebBrokerBridge.Create(Self);
  LIOHandleSSL := TIdServerIOHandlerSSLOpenSSL.Create(FServer);
  LIOHandleSSL.SSLOptions.CertFile := 'cert.cer';
  LIOHandleSSL.SSLOptions.RootCertFile := 'root.crt';
  LIOHandleSSL.SSLOptions.KeyFile := 'key.pem';
  LIOHandleSSL.OnGetPassword := OnGetSSLPassword;
  FServer.IOHandler := LIOHandleSSL;
  FCounter := 1000;
end;

procedure TfrmMsgSrvCtrl.OnGetSSLPassword(var APassword: String);
begin
  APassword := 'The Pass';
end;

Of course  must change  all URL  to URL := Format('https://X.X.X.X:%s/........

 

 

 And now I try to  solve send message from MsgCli to all session.

 

 

Best Regards.

[Ario.Paxaz]

Hi

 

Now I have an problem.

 

After  send Message from MsgSrv ,The browser  SSL sign go to red color.

 

 

Best Regards.

[Oliver Morsch]

Which browser(s)?

 

What will be shown by clicking on the "not secure"?

[Ario.Paxaz]

 

 

Which browser(s)?

 

In Chrome,Because in Firefox I can't recive any message and  ufrMsgSrv  show :(You'r connection is not secure).

 

 

What will be shown by clicking on the "not secure"?

I showed it by picture that attached.

[Ario.Paxaz]

Firefox showed this Error:

 

Error code: SSL_ERROR_BAD_CERT_DOMAIN

 

But Chrome don't show any error.

 

Best Regards.

[Ario.Paxaz]

 

This Pic is from Chrome.

 

The  ufrMsgSrv  shows :(I am OK!).

 

 

Best Regards.

[Oliver Morsch]

Do you use a self signed certificate or a trusted?

[Oliver Morsch]

Now I have tested SSL and it works. But Chrome and Firefox show "(certificate) not secure" because of self signed certificate. IE and Edge have no problem after adding the root certificate.