Delphi中的TStream是一個非常有用的類，可以幫助我們進行二進制數據的讀寫操作。但是有時候我們需要將TStream中的數據轉換成JSON格式，方便我們進行數據傳輸和處理。

在Delphi中，將TStream轉換成JSON可以使用第三方庫SuperObject。這個庫提供了一些非常簡單易用的API，讓我們可以輕松地將TStream轉換成JSON格式。

var
stream: TMemoryStream;
jsonObject: ISuperObject;
jsonStr: string;
begin
// 創建一個TMemoryStream對象
stream := TMemoryStream.Create;
try
// 向stream中寫入二進制數據
stream.Write('Hello, World!', 14);
// 將stream轉換成JSON對象
jsonObject := TSuperObject.Create;
jsonObject.I['length'] := stream.Size;
jsonObject.S['data'] := EncodeBase64(stream.Memory, stream.Size);
// 將JSON對象轉換成字符串
jsonStr := jsonObject.AsJSon;
// 在控制臺輸出JSON字符串
WriteLn(jsonStr);
finally
stream.Free;
end;

以上示例代碼中，首先我們創建了一個TMemoryStream對象，并向其中寫入了一些二進制數據。然后，我們使用SuperObject庫中的API將TStream對象轉換成了一個JSON對象，該對象包含了數據長度和數據內容。最后，我們將JSON對象轉換成了一個字符串，并在控制臺中輸出。