• Don’t you like using Indy for transports, plug in another transport method Like ICS or other.
• Do you need to move datasets via email, ICQ, or any other way of Communication, write an extension and plug it in.
• kbmMW supports datasets the same way as Midas, except instead of using TClientDataset (which is a memory hog and quite slow), it uses kbmMemTable which is very lean in memory terms and quite fast too. With that come also the benefit of all the nice features of kbmMemTable.
• Do you need to work on other databases, write an extension and plug it in if its not already supported.
• Are the databases not really databases? Eg. you want to access mail folders, permissions, messages and more, write a database extension to access the mail system, and use it in the clients as if the mail system is nothing but a standard database.
• No runtime fees.
• Very reasonable commercial purchase fee!
• Full source included.
• Possibility for free licenses for noncommercial applications. This must be approved case by case.
• Build in server objects support. Do you want to publish your server objects via web services, write a transport extension, and it will be web service aware (this is a planned feature for a later release). Then the server object can be access simultaneously from several sources at the same time.
• Do you want connection pooling towards backend data sources like database and servers? Do you want client side and server side caching of request results for very speedy response and of loading of backend databases?
• Thousands of users which already knows how to use kbmMemTable, and thus perhaps can assist in dataset related questions.
• One of the better support services.... according to other people that is.

  var
   Lst : Tlist;
   i   : Integer;
  
  begin
   Lst := YourkbmServer.IdTCPServer.Threads.Locklist;
   try
    for i := 0 to Lst.Count-1 do 
    begin
     Edit1.Text := TidPeerThread(Lst[i]).Connection.Socket.Binding.PeerIP;
     Edit2.Text := IntToStr(TidPeerThread(Lst[i]).Connection.Socket.Binding.PeerPort);
    end; 
   finally
    Transport.IdTCPServer.Threads.UnlockList;
   end;

   procedure GetIPPort(var Host: string; var Port: integer);
   var
    P: PChar;
   begin
    P := @Host[1];
    while not (P^ in [':', #0]) do
       Inc(P);
    if P^ = #0 then
       raise Exception.Create('GetIPPort: Invalid format, must be: ''Host:Port''');
    Port := StrToInt(P + 1);
    P^   := #0;
   end;

var
   con:TkbmMWADOXConnection;
begin
   // Get connection from session manager.
   con:=ADOXConnectionPool.GetBestConnection;
   if con=nil then 
      raise exception.Create('No connection.');

   // Try to lock connection for our use.
   if not con.LockConnection(-1,-1) then
      raise exception.Create('Not able to lock connection.');
   try
      ADOQuery1.Connection:=con.Database;
      con.Database.StartTransaction;
      try
         ADOQuery1.SQL.Add('insert into tblcustomers( ....');
         ADOQuery1.ExecSQL;
         ADOQuery1.SQL.Add('insert into tblcustomers( ....');
         ADOQuery1.ExecSQL;
         con.Database.Commit;
      except
         con.Database.Rollback;
      end;
   finally
      con.UnlockConnection;
   end;
end;

function TMyService.ProcessRequest(const Func:string;const
ClientIdent:TkbmMWClientIdentity;const Args:array of Variant):variant;
var
  strFunc : string;
begin
  strFunc := Uppercase(Func);
  if strFunc = 'MYFUNCTION' then
    Result := myfunction
  else
    Result := inherited ProcessRequest(Func,ClientIdent,Args);
end;

       function TMyCustomService.PerformGetData
       (ClientIdent:TkbmMWClientIdentity; const Args:array of
        Variant):Variant;
       begin
       // Enter code here to perform function GetData

        kbmMemTable1.FieldDefs.Add('Name',ftString,30,false);
        kbmMemTable1.FieldDefs.Add('Seq', ftInteger,0, false);
        kbmMemTable1.createTable;
        kbmMemTable1.Open;

        kbmMemTable1.InsertRecord(['xyz', 1]);
        kbmMemTable1.InsertRecord(['abc', 2]);
        kbmMemTable1.AllDataFormat := kbmBinaryStreamFormat1;
        Result:= kbmMemTable1.allData;
       end;

      var
       v : Variant ;
      begin
       v := dmConnection.Client1.SendRequest('MyCustomService','1.00.00','PERFORMGETDATA', []) ;
       mt.AllDataFormat := Binary;
       mt.AllData := v;
      end

Args:=VarArrayOf([kbmMT1.AllData, kbmMT2.AllData,...])

Result:=VarArrayOf([kbmMTa.AllData, kbmMTb.AllData,...])

kbmMTx.AllData:=Result[1]
kbmMTy.AllData:=Result[2]

interface

...

  TkbmMWInventoryService = class(TkbmMWCustomService)
  private
    { Private declarations }

  protected
    { Protected declarations }
    function ProcessRequest(const Func:string; const
ClientIdent:TkbmMWClientIdentity; const Args:array of Variant):Variant;
override;

  public
    { Public declarations }
    class function GetPrefServiceName:string; override;
    class function GetAuthor:string; override;
    class function GetSyntaxAbstract:string; override;
    class function GetSyntaxDetails:string; override;
    class function GetVersion:string; override;
  end;

implementation
{$R *.DFM}

class function TkbmMWInventoryService.GetPrefServiceName:string;
begin
     Result:='KBMMW_INVENTORY';
end;

class function TkbmMWInventoryService.GetAuthor:string;
begin
     Result:='Kim Bo Madsen (kbm@components4developers.com)';
end;

class function TkbmMWInventoryService.GetSyntaxAbstract:string;
begin
     Result:='KBMMW_INVENTORY - Return service inventory information';
end;

class function TkbmMWInventoryService.GetSyntaxDetails:string;
begin
     Result:='"LIST                           - Return list of services available",'+
              '"GET VERSION <servname>         - Return version of service",'+
              '"GET AUTHOR <servname>          - Return author of service",'+
              '"GET ASSISTANCE <servname>      - Return assistance info of service",'+
              '"GET SYNTAX ABSTRACT <servname> - Return general syntax for service",'+
              '"GET SYNTAX DETAILS <servname>  - Return syntax details for service"';
end;

class function TkbmMWInventoryService.GetVersion:string;
begin
     Result:='kbmMW_1.0';
end;

function TkbmMWInventoryService.ProcessRequest(const Func:string; const
ClientIdent:TkbmMWClientIdentity; const Args:array of Variant):Variant;
begin
     // Check function.
     fname:=UpperCase(Func);
     if (fname='') or (fname='LIST') then
     begin
            .. List services available.
          Result:='This is the result.'
          exit;
     end;

     // Look at function.
     if fname='GET AUTHOR' then
        Result:='Some author.'
     else if fname='GET VERSION' then
        Result:='Some version.'
     else if fname='GET SYNTAX DETAILS' then
        Result:='Some syntax details.'
     else if (fname='GET SYNTAX ABSTRACT') 
          or (fname='GET SYNTAX') then
        Result:='Some syntax abstract.'
     else if fname='GET ASSISTANCE' then
        Result:='Some assistance :).'
     else
         kbmMWRaiseUnknownFunc(fname);
end;

procedure RegisterService(AServiceClass:TkbmMWCustomServiceClass;
Enabled:boolean; Stats:boolean; MaxCount:integer);
procedure RegisterServiceByName(AServiceName:string;
AServiceClass:TkbmMWCustomServiceClass; Enabled:boolean; Stats:boolean;
MaxCount:integer);