aula11

Author: Cesar4D

ClientWeb/Src/Main.View.dfm

@@ -175,6 +175,8 @@ object MainView: TMainView
       ElementID = 'btnDelete'
       HeightPercent = 100.000000000000000000
       WidthPercent = 100.000000000000000000
+      OnClick = btnDeleteClick
+      ExplicitLeft = 729
     end
   end
   object mmTeste: TWebMemo
@@ -195,6 +197,7 @@ object MainView: TMainView
   end
   object XDataWebClient1: TXDataWebClient
     Connection = XDataWebConnection1
+    OnError = XDataWebClient1Error
     Left = 240
     Top = 16
   end

ClientWeb/Src/Main.View.pas

@@ -65,6 +65,9 @@   TMainView = class(TWebForm)
     procedure btnPostClick(Sender: TObject);
     [Async]
     procedure btnAlterarClick(Sender: TObject);
+    [Async]
+    procedure btnDeleteClick(Sender: TObject);
+    procedure XDataWebClient1Error(Error: TXDataClientError);
   private
     function GetClientePreenchido: TJSObject;
 
@@ -103,6 +106,16 @@ procedure TMainView.WebFormCreate(Sender: TObject);
   XDataWebConnection1.Open;
 end;
 
+procedure TMainView.XDataWebClient1Error(Error: TXDataClientError);
+begin
+  mmTeste.Lines.Clear;
+  mmTeste.Lines.Add('StatusCode: ' + Error.StatusCode.ToString);
+  mmTeste.Lines.Add('RequestUrl: ' + Error.RequestUrl);
+  mmTeste.Lines.Add('RequestId: ' + Error.RequestId);
+  mmTeste.Lines.Add('ErrorCode: ' + Error.ErrorCode);
+  mmTeste.Lines.Add('ErrorMessage: ' + Error.ErrorMessage);
+end;
+
 procedure TMainView.lbInformationalClick(Sender: TObject);
 begin
   MessageDlg('Minha pergunta?', mtConfirmation, [mbYes, mbNo],
@@ -198,4 +211,16 @@ procedure TMainView.btnAlterarClick(Sender: TObject);
   mmTeste.Lines.Text := LResponse.ResponseText;
 end;
 
+procedure TMainView.btnDeleteClick(Sender: TObject);
+var
+  LResponse: TXDataClientResponse;
+begin
+  LResponse := TAwait.Exec<TXDataClientResponse>(
+    XDataWebClient1.RawInvokeAsync('IClientesService.Delete', [StrToIntDef(edtCodigo.Text, 0)]));
+
+  mmTeste.Lines.Clear;
+  mmTeste.Lines.Add('StatusCode: ' + LResponse.StatusCode.ToString);
+  mmTeste.Lines.Add('ResponseText: ' + LResponse.ResponseText);
+end;
+
 end.