关于自定义控件添加TBitmap变量的问题

[思驿软件]

一个自定义控件
FItemPic: TBitmap; //添加了一个变量存图片

property ItemPic: TBitmap read FItemPic write SetItemPic; //设置了对外

procedure T****.SetItemPic(Value: TBitmap); //对外的赋值
begin
FItemPic.Assign(Value);
end;

T****.create; //控件的创建
FItemPic := TBitmap.Create;

T****.Destroy; //控件释放
FItemPic.Free;

T****.save; //保存（这个用于上一步、下一步的操作）还有其他的
WriteItemPic(Stream,ItemPic);

T****.load; //读取（这个用于上一步、下一步的操作）还有其他的
ItemPic.Assign(ReadItemPic(Stream));

//以下是保存、读取的两个函数，这两个不知道怎么写？？？
procedure WriteItemPic(Stream: TStream; const S: TBitmap); //这个有问题
var
L: Word;
begin
L := SizeOf(S) { * SizeOf(Char) } ;
if L > $FFFF then
L := $FFFF;
Stream.WriteBuffer(L, SizeOf(Word));
if L > 0 then
Stream.WriteBuffer(S, L);
end;

function ReadItemPic(Stream: TStream): TBitmap; //这个有问题
var
L: Word;
begin
Stream.ReadBuffer(L, SizeOf(TBitmap));
// SetString(Result, PChar(nil), L);
// SetString(Result, PAnsiChar(nil), L);
if L > 0 then
Stream.ReadBuffer(Result, L);
end;

[思驿软件]

请帮忙！谢谢

[思驿软件]

问题已经解决，只是又出了个问题。
读出显示的图片会在顶边出现黑边

[bdmh]

黑边是图片本身就有，还是你自己给控件画上去的呢或者说控件自带的呢

[newfang]

看看是不是你那自定义控件带的黑边·~如果不加载图片会不会有

[思驿软件]

procedure WriteItemPic(Stream: TStream; const S: AnsiString); // keyii
var
L: Integer;
begin
L := Length(S) { * SizeOf(Char) } ;
if L > $FFFF then //问题存在于这里
L := $FFFF;
Stream.WriteBuffer(L, SizeOf(Word));
if L > 0 then
Stream.WriteBuffer(S[1], L);
end;

[思驿软件]

只是不知道怎么改