{"id":1127,"date":"2010-12-01T07:00:55","date_gmt":"2010-11-30T23:00:55","guid":{"rendered":"http:\/\/www.andreanolanusse.com\/pt\/?p=1127"},"modified":"2018-06-16T01:34:04","modified_gmt":"2018-06-16T08:34:04","slug":"registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi","status":"publish","type":"post","link":"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/","title":{"rendered":"Registrando DataSnap Server Class em tempo de execu\u00e7\u00e3o no Delphi"},"content":{"rendered":"<p>Sempre que estamos construindo uma aplica\u00e7\u00e3o DataSnap temos que registrar as classes que ser\u00e3o disponbilizadas para o lado cliente, o natural \u00e9 utilizar o componente DSServerClass pra isso, muitas vezes queremos fazer isso em tempo de execu\u00e7\u00e3o, abaixo segue um c\u00f3digo exemplo de como efetuar o registro destas classes em tempo de execu\u00e7\u00e3o.<\/p>\n<p>No c\u00f3digo abaixo a classe TSimpleServerClass herda de TDSServerClass e estende o m\u00e9todo Create onde passamos a classe a ser registrada, seu respectivo DataSnap Server e o LifeCycle.<\/p>\n<pre class=\"brush: delphi\">\r\ntype\r\n\r\n   TSimpleServerClass = class(TDSServerClass)\r\n   private\r\n     FPersistentClass: TPersistentClass;\r\n   protected\r\n     function GetDSClass: TDSClass; override;\r\n   public\r\n     constructor Create(AOwner: TComponent; AServer: TDSCustomServer; AClass: TPersistentClass; ALifeCycle: String); reintroduce; overload;\r\n   end;\r\n\r\n   procedure RegisterServerClasses(AOwner: TComponent; AServer: TDSServer);\r\n\r\nimplementation\r\n\r\nconstructor TSimpleServerClass.Create(AOwner: TComponent; AServer: TDSCustomServer; AClass: TPersistentClass; ALifeCycle: String);\r\nbegin\r\n  inherited Create(AOwner);\r\n  FPersistentClass := AClass;\r\n  Self.Server := AServer;\r\n  Self.LifeCycle := ALifeCycle;\r\nend;\r\n\r\nfunction TSimpleServerClass.GetDSClass: TDSClass;\r\nbegin\r\n  Result := TDSClass.Create(FPersistentClass, False);\r\nend;<\/pre>\n<p>Agora \u00e9 criar uma inst\u00e2ncia de TSimpleServerClass para cada classe que cont\u00e9m os server methods.<\/p>\n<p>Abaixo um exemplo onde s\u00e3o registradas 3 classes no mesmo server, com LifeCycles distintos:<\/p>\n<pre class=\"brush: delphi\">procedure RegisterServerClasses(AOwner: TComponent; AServer: TDSServer);\r\nbegin\r\n  Assert(AServer.Started = false, 'N\u00e3o \u00e9 poss\u00edvel adicionar classes com o servidor ativo');\r\n  TSimpleServerClass.Create(AOwner, AServer, TGlobal, TDSLifeCycle.Server);\r\n  TSimpleServerClass.Create(AOwner, AServer, TCustomer, TDSLifeCycle.Session);\r\n  TSimpleServerClass.Create(AOwner, AServer, TObjectPool, TDSLifeCycle.Invocation);\r\nend;<\/pre>\n<p>Simples e muito pr\u00e1tico, at\u00e9 o pr\u00f3ximo artigo.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Sempre que estamos construindo uma aplica\u00e7\u00e3o DataSnap temos que registrar as classes que ser\u00e3o disponbilizadas para o lado cliente, o natural \u00e9 utilizar o componente DSServerClass pra isso, muitas vezes queremos fazer isso em tempo de execu\u00e7\u00e3o, abaixo segue um c\u00f3digo exemplo de como efetuar o registro destas classes em tempo de execu\u00e7\u00e3o. No c\u00f3digo [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":781,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_s2mail":"yes","footnotes":""},"categories":[102],"tags":[23,181],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v16.2 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>Registrando DataSnap Server Class em tempo de execu\u00e7\u00e3o no Delphi | Andreano Lanusse | Tecnologia e Desenvolvimento de Software<\/title>\n<meta name=\"description\" content=\"Sempre que estamos construindo uma aplica\u00e7\u00e3o DataSnap temos que registrar as classes que ser\u00e3o disponbilizadas para o lado cliente, o natural \u00e9 utilizar o\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/\" \/>\n<meta property=\"og:locale\" content=\"pt_BR\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Registrando DataSnap Server Class em tempo de execu\u00e7\u00e3o no Delphi | Andreano Lanusse | Tecnologia e Desenvolvimento de Software\" \/>\n<meta property=\"og:description\" content=\"Sempre que estamos construindo uma aplica\u00e7\u00e3o DataSnap temos que registrar as classes que ser\u00e3o disponbilizadas para o lado cliente, o natural \u00e9 utilizar o\" \/>\n<meta property=\"og:url\" content=\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/\" \/>\n<meta property=\"og:site_name\" content=\"Andreano Lanusse | Tecnologia e Desenvolvimento de Software\" \/>\n<meta property=\"article:published_time\" content=\"2010-11-30T23:00:55+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2018-06-16T08:34:04+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/www.andreanolanusse.com\/pt\/wp-content\/uploads\/2010\/03\/Icon_Delphi.png\" \/>\n\t<meta property=\"og:image:width\" content=\"175\" \/>\n\t<meta property=\"og:image:height\" content=\"175\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:creator\" content=\"@andreanolanusse\" \/>\n<meta name=\"twitter:site\" content=\"@andreanolanusse\" \/>\n<meta name=\"twitter:label1\" content=\"Est. tempo de leitura\">\n\t<meta name=\"twitter:data1\" content=\"1 minuto\">\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebSite\",\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/#website\",\"url\":\"http:\/\/www.andreanolanusse.com\/pt\/\",\"name\":\"Andreano Lanusse | Tecnologia e Desenvolvimento de Software\",\"description\":\"Andreano Lanusse blog - artigos, tutoriais e v&iacute;deos sobre tecnologia, desenvolvimento de software (Delphi XE4, C#, PHP, .NET) e t&eacute;cnicas de programa&ccedil;&atilde;o\",\"publisher\":{\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/#\/schema\/person\/620bd05e81598c3aba4781796cbe8903\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":\"http:\/\/www.andreanolanusse.com\/pt\/?s={search_term_string}\",\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"pt-BR\"},{\"@type\":\"ImageObject\",\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/#primaryimage\",\"inLanguage\":\"pt-BR\",\"url\":\"http:\/\/www.andreanolanusse.com\/pt\/wp-content\/uploads\/2010\/03\/Icon_Delphi.png\",\"contentUrl\":\"http:\/\/www.andreanolanusse.com\/pt\/wp-content\/uploads\/2010\/03\/Icon_Delphi.png\",\"width\":175,\"height\":175},{\"@type\":\"WebPage\",\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/#webpage\",\"url\":\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/\",\"name\":\"Registrando DataSnap Server Class em tempo de execu\\u00e7\\u00e3o no Delphi | Andreano Lanusse | Tecnologia e Desenvolvimento de Software\",\"isPartOf\":{\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/#website\"},\"primaryImageOfPage\":{\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/#primaryimage\"},\"datePublished\":\"2010-11-30T23:00:55+00:00\",\"dateModified\":\"2018-06-16T08:34:04+00:00\",\"description\":\"Sempre que estamos construindo uma aplica\\u00e7\\u00e3o DataSnap temos que registrar as classes que ser\\u00e3o disponbilizadas para o lado cliente, o natural \\u00e9 utilizar o\",\"breadcrumb\":{\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/#breadcrumb\"},\"inLanguage\":\"pt-BR\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"item\":{\"@type\":\"WebPage\",\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/\",\"url\":\"http:\/\/www.andreanolanusse.com\/pt\/\",\"name\":\"In\\u00edcio\"}},{\"@type\":\"ListItem\",\"position\":2,\"item\":{\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/#webpage\"}}]},{\"@type\":\"Article\",\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/#article\",\"isPartOf\":{\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/#webpage\"},\"author\":{\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/#\/schema\/person\/620bd05e81598c3aba4781796cbe8903\"},\"headline\":\"Registrando DataSnap Server Class em tempo de execu\\u00e7\\u00e3o no Delphi\",\"datePublished\":\"2010-11-30T23:00:55+00:00\",\"dateModified\":\"2018-06-16T08:34:04+00:00\",\"mainEntityOfPage\":{\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/#webpage\"},\"commentCount\":24,\"publisher\":{\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/#\/schema\/person\/620bd05e81598c3aba4781796cbe8903\"},\"image\":{\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/#primaryimage\"},\"keywords\":[\"DataSnap\",\"Delphi\"],\"articleSection\":[\"Delphi\"],\"inLanguage\":\"pt-BR\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"http:\/\/www.andreanolanusse.com\/pt\/registrando-datasnap-server-class-em-tempo-de-execucao-no-delphi\/#respond\"]}]},{\"@type\":[\"Person\",\"Organization\"],\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/#\/schema\/person\/620bd05e81598c3aba4781796cbe8903\",\"name\":\"Andreano Lanusse\",\"image\":{\"@type\":\"ImageObject\",\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/#personlogo\",\"inLanguage\":\"pt-BR\",\"url\":\"http:\/\/0.gravatar.com\/avatar\/6a9c6f73c7c480fb826c7303288abfd3?s=96&d=mm&r=g\",\"contentUrl\":\"http:\/\/0.gravatar.com\/avatar\/6a9c6f73c7c480fb826c7303288abfd3?s=96&d=mm&r=g\",\"caption\":\"Andreano Lanusse\"},\"logo\":{\"@id\":\"http:\/\/www.andreanolanusse.com\/pt\/#personlogo\"},\"sameAs\":[\"https:\/\/twitter.com\/andreanolanusse\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","_links":{"self":[{"href":"http:\/\/www.andreanolanusse.com\/pt\/wp-json\/wp\/v2\/posts\/1127"}],"collection":[{"href":"http:\/\/www.andreanolanusse.com\/pt\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.andreanolanusse.com\/pt\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.andreanolanusse.com\/pt\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.andreanolanusse.com\/pt\/wp-json\/wp\/v2\/comments?post=1127"}],"version-history":[{"count":0,"href":"http:\/\/www.andreanolanusse.com\/pt\/wp-json\/wp\/v2\/posts\/1127\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/www.andreanolanusse.com\/pt\/wp-json\/wp\/v2\/media\/781"}],"wp:attachment":[{"href":"http:\/\/www.andreanolanusse.com\/pt\/wp-json\/wp\/v2\/media?parent=1127"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.andreanolanusse.com\/pt\/wp-json\/wp\/v2\/categories?post=1127"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.andreanolanusse.com\/pt\/wp-json\/wp\/v2\/tags?post=1127"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}