TAstaServerSocket.OnCodedMessage

Applies to
TAstaServerSocket

type

TAstaServerSendCodedMessage=Procedure (Sender: TObject;Clientsocket:TCustomWinSocket;Msgid, MsgToken:Integer) of object;

Declaration
property OnCodedMessage: TAstaServerSendcodedMessageEvent

Description
The OnCodedMessage event handler allows you to take customized application action according your own custom messages that have been sent via an AstaClientSocket's SendCodedMessage method.

The following code shows how the server might respond upon receiving certain messages.

procedure TForm1.AstaServerSocket1CodedMessage(Sender: TObject;
  ClientSocket: TCustomWinSocket; MsgID: Integer; Msg: string) of object;

var

  MS: TMemoryStream;

begin

  case MsgID of

    1700: AstaServerSocket1.SendCodedMessage(ClientSocket, MsgID,
            UpperCase(Msg));

    1750: AstaServerSocket1.SendCodedMessage(ClientSocket, MsgID,
            LowerCase(Msg));

    2000: begin

            MS := TMemoryStream.Create;

            mSelectSend.Lines.SaveToStream(MS);

            AstaServerSocket1.SendCodedStream(ClientSocket, 2000, MS);

            MS.Free;

          end;

  end;

end;