wowdarklym 发表于 2016-8-6 16:29:37

关于SNAP的客户端问题

本帖最后由 wowdarklym 于 2016-8-6 16:57 编辑

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

wowdarklym 发表于 2016-8-6 16:31:10

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

wowdarklym 发表于 2016-8-6 16:56:25

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.AsString;
finally
sms.Free;
end;
end;

end.
页: [1]
查看完整版本: 关于SNAP的客户端问题