依據 李'r 發表會的展示範例, 好像 CB2009 無法開發 JSON 之 Server 端 Project.
主要是其中有一段程式語法似乎無對應的 C Builder 語法:

{$MethodInfo ON}
TServerMethodClass = class(TPersistent)
public
function Hello(const Name: string): string;
end;
{$MethodInfo OFF}

請問先進們可有解法?
否則真要購買時, 就必須買 Delphi ＋ C Builder 的 RAD Studio ?

小弟嘗試將原 uServerMethod.pas 改於 JOSN Server Project 之 Unit1.h 宣告,
但不知要如何讓 TServerMethodClass 可以被 TForm1 的
DSServerClass1GetClass(TDSServerClass *DSServerClass, TPersistentClass &PersistentClass)
引用.

將 Code 貼出, 請先進們指導一下, 謝謝!

[code cpp]
// Unit1.h 中
// ....
class TServerMethodClass : public TPersistent
{
public:
__fastcall TServerMethodClass(); // 這列 Link OK, 但無法被使用 ?
String __fastcall Hello(const String Name);
};
// ....

// Unit1.cpp 中
// ....
void __fastcall TForm1::DSServerClass1GetClass(TDSServerClass *DSServerClass, TPersistentClass &PersistentClass)
{
PersistentClass = TServerMethodClass; // 要如何宣告才能引用 ?
}
String __fastcall TServerMethodClass::Hello(const String Name)
{
return "Hello " Name;
}
//---------------------------------------------------------------------------
[/code]

依據 李'r 範例所言：
因 JSON Server 須宣告一個從 TPersistent 類別繼承下來的 TServerMethodClass，
由於它需要將函式 Hello 送到用戶端，因此在 TServerMethodClass 類別
之前和之後要使用新的編譯器指令{$MethodInfo ON}和{$MethodInfo OFF}包圍，
如此一來 Tiburon 的編譯器在編譯這個類別時便會產生額外的
RTTI (Runtime type identification) 資訊。

並查 Help 有關 METHODINFO directive 的說明，若想用 JSON，好像真的非得用 Delphi 不可。

12/09~12李維老師將於本公司講解JSON與DataSnap，雖是針對Delphi，
但我想您的疑問也可向李維老師以及與會人員分享，相信可以獲得解答。

我想此問題應該可以藉由範例解決，若是只有研討會才能聽到，那麼這個問答似乎就失去意義，
一來不是所有人都有時間去，二來若能在這裡留下範例，也可供其它人參考。

===================引 用 qupyliang 文 章===================
12/09~12李維老師將於本公司講解JSON與DataSnap，雖是針對Delphi，
但我想您的疑問也可向李維老師以及與會人員分享，相信可以獲得解答。

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

最近我也在找這類的訊息，李老師剛剛有在BLOG上提到：

目前BCB只能開發客戶端, 到了BCB 2011應該能夠開發伺服端了(JSON)

那…我們只好再等等了……Orz

===================引 用 herbert2 文 章===================
依據 李'r 範例所言：
因 JSON Server 須宣告一個從 TPersistent 類別繼承下來的 TServerMethodClass，
由於它需要將函式 Hello 送到用戶端，因此在 TServerMethodClass 類別
之前和之後要使用新的編譯器指令{$MethodInfo ON}和{$MethodInfo OFF}包圍，
如此一來 Tiburon 的編譯器在編譯這個類別時便會產生額外的
RTTI (Runtime type identification) 資訊。

並查 Help 有關 METHODINFO directive 的說明，若想用 JSON，好像真的非得用 Delphi 不可。