README

Aplicacao simples de datasnap com delphi 10 seatle

servidor

Clique em file>new>other>datasnap server>datasnap server>ok>forms application>next>vcl application>next>next>test port>next>tdsserve module>finish

Control+shift+s

Salve os arquivos numa pasta chamada server

Salve o form como ufrmMain

No form colocar name = ufrmMain e caption = servidor datasnap executando...

Salve o server container como uSC

No USC coloca name=SC

Salve o server methos como Usm

No USM colocar name = SM

Salve o projeto com PrjServer

No arquivo USM em public declarations declare function somar(x,y:integer):integer;

Aperte as teclas control+shif+c e implemente a funcao:

function TSM.somar(x, y: integer): integer; begin Result := x + y; end;

aperte f9 e deixe a aplicacao executando

cliente

va em file>new>vcl forms application

digite control+shift+s

salve os arquivos numa pasta client

salve o form como ufrmMain, caption=cliente datasnap

e o projeto com PrjCliente

no form coloca name=frmMain

coloque dois edits ,um button e um label

no primeiro edit coloque name =x,numberonly=true e text igual vazio

no segundo edit coloque name =y,numberonly=true e text igual vazio

button caption = somar,name =somar

label coloque name resultado e caption = 0

Clique em file>new>other>datasnap server>datasnap client module>ok>remote server>next>datasnap stand alone
server>next>tcp/ip>next>host name=127.0.1.1>port=211>test connection>finish

Apert control+shift+s

Clique em file>use unit> ClientModuleUnit1>ok]

De duplo clique no botao e somar e implemente a funcao:

procedure TForm4.somarClick(Sender: TObject); var a,b,c:integer; begin a:= strtoint(x.text); b:=strtoint(y.Text); c:=ClientModule1.SMClient.somar(a,b); resultado.Caption:=inttostr(c); end;

execute aplicacao e teste