srvunit1.pas

Delphi快速开发Web Server

unit SrvUnit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, rtcInfo, rtcConn, rtcDataSrv, rtcHttpSrv, rtcFunction,
  rtcSrvModule;

type
  TForm1 = class(TForm)
    RtcHttpServer1: TRtcHttpServer;
    RtcFunctionGroup1: TRtcFunctionGroup;
    RtcServerModule1: TRtcServerModule;
    RtcFunction1: TRtcFunction;
    procedure FormCreate(Sender: TObject);
    procedure RtcFunction1Execute(Sender: TRtcConnection;
      Param: TRtcFunctionInfo; Result: TRtcValue);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  RtcHttpServer1.Listen;
end;

procedure TForm1.RtcFunction1Execute(Sender: TRtcConnection;
  Param: TRtcFunctionInfo; Result: TRtcValue);
begin
with Sender as TRtcDataServer do
  Result.asString:='Hello, '+Param.asString['name'];
end;

end.