DELPHI DATASNAP 二零零六 入门操作(2)不写一行代码,栗褐三层笔者也行

active为:true

保险服务器端不要关闭,让我们开首客户端的编制程序吧

 dataset设置为:ClientDataSet1

我们再看看生成的单元内容是哪些

如图,大家有三个可挑选

 TPersistent:TServerMethods1 = class(TPersistent)–> TPersistent
= class(TObject)

并未一行代码的三层,功用肯定尤其的大约,但是,再简单,大家也三层了,学习二个东西,须要从入门起先就有趣味,倘若入门就给吓怕了,哪么后来何来信心学习吧?以后就让大家初始吧,不只是没有华丽的词语,而是连用词都不专业,因为,笔者也只是一个入门者。

应用程序种类(you may select from one of the following applition
types):

providername 设置为:DataSetProvider1

 

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=db.mdb;Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;

 然后编写翻译成EXE独立于IDE运行吧

ServerMethodsUnit1中的: TServerMethods1
= class(TDSServerModule)
,若是TServerMethods1给你改成了此外的代码了,则要求牢记对应的代码

  一、让我们 file->new->other ,再选 datasnap server
,或者F6,输入
datasnap图片 1图片 2

亟待采纳哪一项,就看您协调的供给了

http下边有一个authentication,按字面意思是亟需验证吧,具体细节,还不及去研商


 

 

图片 3图片 4unit ServerContainerUnit1;

是或不是带有不难类:add server methods class

 

 

         prot 设置与服务器的均等,暗中同意为211(刚刚服务器上须求记住的)

大家的简短的三层终于成功了,你有写代码了吧?

 选用第1基的布置方便,但是倘诺并发访问量大的话,要求编制程序者的程度高才能够,选用第2项则安顿麻烦,但是由于HTTP
是无连接情势,理论上对并发量的控制都提交了IIS了,而不是咱们的应用程序了(本处假若说得很是的请辅导,感激!)

 

 

 在 ServerMethods1 下面放上ADO相关的控件,并连接受ACCESS

tablename为:test

 DataSource设置为DataSource1

 

分别为

当今大家挑选第1项

 VCL应用程序

 

 

放上2个:DBNavigator1

图片 5

 

运作后如图:

 

 自动生成了四个模块,第二贰个方面空白的,第⑤个则如图

        hostname 输入  127.0.0.1

ADOTable1

如图:

包涵简单示例:include sample methods

 

   datasnap WebBroker application
:选取这一项大家得到的是3个依照ISAPI的顺序,须求把程序公布到IIS
等方面才足以运转

放上1个ClientDataSet1

上述四个值一会儿在客户端要用到

 1 unit ServerMethodsUnit1;
 2 
 3  interface
 4 
 5  uses
 6   SysUtils, Classes, DSServer;
 7 
 8  type
 9   TServerMethods1 = class(TDSServerModule)
10   private
11     { Private declarations }
12   public
13     { Public declarations }
14     function EchoString(Value: string): string;
15   end;
16 
17  implementation
18 
19  {$R *.dfm}
20 
21  function TServerMethods1.EchoString(Value: string): string;
22  begin
23   Result := Value;
24  end;
25 
26  end.

今昔保留客户端为datasanpdemo1client

服务应用程序

 

文本名是:datasnapdemo不要一行代码就能三层.zip

 

是浅紫的呢,要不您把客户机程序的IP改改,然后把服务器程序放到另一台总计机上运营,看下能够运作吧?

    loginprompt为:false

RemoteServer设置为:DSProviderConnection1

 

   未来大家就用ACESS 来建二个库,DB.mdb
然后生成几个表名为TEST,有两列,分别为 id 数字,Vname 文本,ID为主键

放上一个DSProviderConnection1

试跳把您的先后COPY到U盘上,放到任意电脑上运转吧?

可选TCP,HTTP,或许TCP+ HTTP ,也正是同时补助TCP及HTTP

编写翻译并独立于IDE运维服务器端吧

 图片 6

 

自然要包涵拉,不然大家分甘共苦去写,很费力的

可选可不选,即使你早已深谙了的,哪就不曾须求选拉

 

 

图片 7

 

修改的数目关闭后遗失了?小编可不曾说过自家的三层程序是能够保存数据的,借使急需保留,请谷哥clientdataset
怎样提交数据吧,就一条代码,很简短的

把 SQLConnection1的connected 设置为true

放上一个 SQLConnection1

选取什么数据库好吧,对于工作在非MS
平台上的人,很多都排斥MS的制品,不过本身总是认为,MS的事物做的很好的,他不肯定很有力,不过应该很易用,后天的数据库及连接组件,大家也不选DBX及任何的数据库,DBX+FB能够深湖蓝,可是估摸会FB的爱人数量并不是不少,大家就用简短的ACCES+ADO

图片 8图片 9

图片 10图片 11Provider

 1 unit ServerContainerUnit1;
 2 
 3  interface
 4 
 5  uses
 6   SysUtils, Classes, 
 7   DSTCPServerTransport,
 8   DSServer, DSCommonServer;
 9 
10  type
11   TServerContainer1 = class(TDataModule)
12     DSServer1: TDSServer;
13     DSTCPServerTransport1: TDSTCPServerTransport;
14     DSServerClass1: TDSServerClass;
15     procedure DSServerClass1GetClass(DSServerClass: TDSServerClass;
16       var PersistentClass: TPersistentClass);
17   private
18     { Private declarations }
19   public
20   end;
21 
22  var
23   ServerContainer1: TServerContainer1;
24 
25  implementation
26 
27 uses Windows, ServerMethodsUnit1;
28 
29 {$R *.dfm}
30 
31 procedure TServerContainer1.DSServerClass1GetClass(
32   DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass);
33 begin
34   PersistentClass := ServerMethodsUnit1.TServerMethods1;
35 end;
36 
37 end.

   并且输入一列值  1 周黔

 

   把derver 改成:Datasnap 然后点derver前的+号

 TDSServerModule:TServerMethods1 =
class(TDSServerModule)–> TDSServerModuleBase =
class(TProviderDataModule)–> TProviderDataModule =
class(TDataModule)–>TDataModule = class(TComponent)–> TComponent
= class(TPersistent, IInterface,
IInterfaceComponentReference)–> TPersistent = class(TObject)

放上一个DBGrid1

  把form1的标题改为你想要的标题:如 datasnap
SE奥迪Q5VERAV4,然后再增加其余界面上突显的,比如本人前几天加多个lable,内容写上:datasnap
服务器端已运维,并调字号到适当的分寸

图片 12图片 13unit
ServerMethodsUnit1; 

 

 

DataSetProvider1

劳动项目(you may select from one or more communication protocols):

图片 14

 想要源程序鸦用:请去QQ群67803772的共享中下载吧,本站笔者前几日还不懂上传rar文件

 

TDataModule:  TServerMethods1 = class(TDataModule)–>TDataModule
= class(TComponent)–> TComponent = class(TPersistent, IInterface,
IInterfaceComponentReference)–> TPersistent = class(TObject)

 

connection为ADOConnection1

控制台应用程序

 

    connectionstring为:(注:上边是自动生成的连接串,你也自动生成二个呢,应该会看作者小说的全体人都会以此操作的

 ancestor(先辈),是指从哪些模块继承下来,我们分别把各种的上层列出来,你就驾驭该选什么了呢

  笔者所用的本子为:Embarcadero® Delphi® 二〇〇九 Version 14.0.3593.25826

   sqlconnection为:SQLConnection1

 

把FROM的标题改成:datasnap client

active设置为:true

提醒少DLL文件?哪到本机上COPY过去吗,啥,你不是说服务器及客户机都只有八个EXE的呢,哪请你在USES里面添加MidasLib

安装完结了,未来大家记下DSTCPServerTransport1的prot值

 先把我们的顺序做个简易的保存吧,由于是DEMO,小编也力求简约,所以数据库也位于同样目录,且设置成固定的参数

 ADOConnection1

放上3个:DataSource1

其他也暗中认可,工程名称就叫做datasnapdemo1S福睿斯V吧

 图片 15

   datasnap server
:选择这一项,大家获得的将是四个独立EXE的三层服务器应用程序(TCP及HTTP二种情势)

 

serverclassname 为: tServerMethods1(刚刚服务器上须求记住的)

该选什么,自身跟据能力及供给定吧,现在大家就都选暗中认可项,点ok下一步吧!

DataSource设置为DataSource1

 

 

 

 file->new-> vcl for the application 打开二个应用程序

作者们在本文章中,并不做深刻的牵线,因为要是要把相关的介绍完,臆想已经是一本书的贰个大章节了,而且对一部分细节作者并不打听,误导了对象们不是好事,同时再次提醒各位,看自身的篇章请别以完全相信的心态去看,因为本身说的,并不一定正确

loginprompt为:false

connected为true

出现如下图所示的界面:

 

dataset为:ADOTable1 

 

相关文章