关于SNAP的客户端问题

wowdarklym

我根据delphi的snap向导建立了snap的服务器端,使用了TCP/IP和HTTP服务,我使用网页浏览器可以访问服务器端默认生成的EchoString这个方法,现在求助,怎么使用客户端连接TCP/IP访问EchoString这个方法,客户端代码怎么写?例如我有一个  button 和一个lable ,点击按钮之后,默认发送test给服务器,然后服务器返回数据给我,显示在lable上,看了很多教程都看得一头雾水.

wowdarklym

新手,才学了几天的delphi,求助各位大大帮忙解决这个疑问.

wowdarklym

unit MainUnitClient;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DBXDataSnap,
  Data.DBXCommon, IPPeerClient, Data.FMTBcd, Data.DB, Data.SqlExpr;

type
  TMainForm = class(TForm)
    btn1: TButton;
    lbl1: TLabel;
    SQLServerMethod: TSqlServerMethod;
    SQLconn: TSQLConnection;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;


implementation

{$R *.dfm}

procedure TMainForm.btn1Click(Sender: TObject);
var
   sms:TSqlServerMethod;
begin
SQLconn.Connected:=true;
  if not (SQLconn.connected) then exit;
  try
  sms:=TSqlServerMethod.Create(nil);
  sms.SQLConnection:=SQLconn;
  sms.ServerMethodName:='TServerMethods1.EchoString("谢谢")';
  sms.ExecuteMethod;
  lbl1.Caption:=sms.Params[0].AsString;
  finally
  sms.Free;
  end;
end;

end.