大家帮帮忙吧，俺真的搞不定了。:(

Question

我的程序里面加了一个ActiveX的控件，有一个往数据库里存储图像数据的函数，CreateJpg（data ： widestring），
我现在在界面上加一个TImage的组件，请我我如何才能将TImage中的Jpg图像数据通过该函数存入库中。
这应该是一个将Stream转换成widestring的问题。请问哪位大虾能够指点一二？

Answer 1

應該用個 TMemoryStream來做過渡吧!
var ms: TMemoryStream;
begin
 ...
Image1.Picture.Graphic.SaveToStream(ms);
 ms.Position := 0;
 setLength(data, ms.size);
 ms.Write(data, ms.size);
..
大概如此吧, 代碼還要測試

Answer 2

var ms: TMemoryStream;
begin
 ...
Image1.Picture.Graphic.SaveToStream(ms);
 ms.Position := 0;
 setLength(data, ms.size);
 ms.Write(data, ms.size);
应该是ms.read(data, ms.size);吧？可是编译没错，执行的时候到这句就出错，为什么啊？

Answer 3

ms.read(data[1], ms.size);
字符串是从1开始的