謝謝.

我把整個程式單元貼出來給你看 :

unit uEmployeeValueObject;

interface

uses SysUtils, classes, DSServer, DSCommonServer, DSReflect,
Generics.Collections, DBXJSON, uEmployee;

type
{$MethodInfo ON}
TEmployeeVO = class(TComponent)
private
{ Private declarations }
FEmployees : TObjectList<TEmployee>;

function CreateEmployeeJSONObject(employee : TEmployee) : string;
function CreateEmployeeJSONArray : string;
function CreateEmployeeJSONObjectJ(employee : TEmployee) : TJSONObject;
public
{ Public declarations }
destructor Destroy; override;
function GetEmployee(const sName : string) : string;
function GetAllEmployees : string;
function GetEmployeeJ(const sName : string) : TJSONObject;
function GetAllEmployeesJ : TJSONArray;
procedure AddEmployee(const sName : string; const sEMail : string; const sPhone : string);
end;
{$MethodInfo Off}

procedure RegisterServerClasses(AOwner: TComponent; AServer: TDSServer);

implementation

{ TForm11 }
type
TSimpleServerClass = class(TDSServerClass)
private
FPersistentClass: TPersistentClass;
protected
function GetDSClass: TDSClass; override;
public
constructor Create(AOwner: TComponent; AServer: TDSCustomServer; AClass: TPersistentClass); reintroduce;overload;
end;

constructor TSimpleServerClass.Create(AOwner: TComponent; AServer: TDSCustomServer; AClass: TPersistentClass);
begin
inherited Create(AOwner);
FPersistentClass := AClass;
Self.Server := AServer;
end;

function TSimpleServerClass.GetDSClass: TDSClass;
begin
Result := TDSClass.Create(FPersistentClass, False);
end;

procedure RegisterServerClasses(AOwner: TComponent; AServer: TDSServer);
begin
TSimpleServerClass.Create(AOwner, AServer, TEmployeeVO);
end;

procedure TEmployeeVO.AddEmployee(const sName, sEMail, sPhone: string);
var
employee : TEmployee;
begin
if (FEmployees = nil) then
FEmployees := TObjectList<TEmployee>.create(true);
employee := TEmployee.Create(sName, sEmail, sPhone);
FEmployees.Add(employee);
end;

function TEmployeeVO.CreateEmployeeJSONArray: string;
begin

end;

function TEmployeeVO.CreateEmployeeJSONObject(employee: TEmployee): string;
var
jo : TJSONObject;
begin
jo := TJSONObject.Create;
try
jo.AddPair(TJSONString.Create('姓名'), TJSONString.Create(employee.Name));
jo.AddPair(TJSONString.Create('EMail'), TJSONString.Create(employee.EMail));
jo.AddPair(TJSONString.Create('電話'), TJSONString.Create(employee.Phone));
Result := jo.ToString;
finally
FreeAndNil(jo);
end;
end;

destructor TEmployeeVO.Destroy;
begin
FreeAndNil(FEmployees);
inherited;
end;

function TEmployeeVO.GetAllEmployees: string;
begin
Result := CreateEmployeeJSONArray;
end;

function TEmployeeVO.GetEmployee(const sName: string): string;
var
ie : TList<uEmployee.TEmployee>.TEnumerator;
employee : TEmployee;
begin
Result := '';
ie := FEmployees.GetEnumerator;
while (ie.MoveNext) do
begin
employee := ie.Current;
if (employee.Name = sName) then
begin
Result := CreateEmployeeJSONObject(employee);
break;
end;
end;
end;

function TEmployeeVO.GetEmployeeJ(const sName: string): TJSONObject;
var
ie : TList<uEmployee.TEmployee>.TEnumerator;
employee : TEmployee;
begin
Result := nil;
ie := FEmployees.GetEnumerator;
while (ie.MoveNext) do
begin
employee := ie.Current;
if (employee.Name = sName) then
begin
Result := CreateEmployeeJSONObjectJ(employee);
break;
end;
end;
end;

function TEmployeeVO.GetAllEmployeesJ: TJSONArray;
var
ie : TList<uEmployee.TEmployee>.TEnumerator;
employee : TEmployee;
jo : TJSONObject;
ja : TJSONArray;
begin
ie := FEmployees.GetEnumerator;
ja := TJSONArray.Create;
while (ie.MoveNext) do
begin
employee := ie.Current;
jo := CreateEmployeeJSONObjectJ(employee);
ja.AddElement(jo);
end;
Result := ja;
end;

function TEmployeeVO.CreateEmployeeJSONObjectJ(employee: TEmployee): TJSONObject;
var
aJO : TJSONObject;
begin
aJO := TJSONObject.Create;
aJO.AddPair(TJSONString.Create('姓名'), TJSONString.Create(employee.Name));
aJO.AddPair(TJSONString.Create('EMail'), TJSONString.Create(employee.EMail));
aJO.AddPair(TJSONString.Create('電話'), TJSONString.Create(employee.Phone));
Result := aJO;
end;

end.

李維您好,正在拜讀並習做你的 { 9月16日 的 JSON程式設計 }

遇到一點問題:

uEmployeeValueObject.RegisterServerClasses(Self, DSServer1);

這段程式好像在 uEmployeeValueObject 並未定義 RegisterServerClasses ,
可否展出 procedure RegisterServerClasses 的程式碼?

謝謝

如果客户端调用 GetEmployeeJ，会不会导致服务端的内存泄漏呢？
CreateEmployeeJSONObjectJ 方法返回的TJSONObject 没有释放。
我一直想不到如何解决这类问题。

>如果大师出此书的话，请问是否在大陆出版或发行? 都有哪些内容?

嗯, 我不會出書, 有時間就會多寫些文章貼上來.

如果大师出此书的话，请问是否在大陆出版或发行? 都有哪些内容?