如何把TBitmap 转换WideString

[baody8]

YzmB:TBitmap;
YzmStr:WideString;

YzmB:= TBitmap.Create;
yzmB.LoadFromResourceName(HInstance,'yzmb'); //资源管理器

怎么转换呢

[lyhoo163]

MS:= TMemoryStream.Create();
Image1.Picture.Bitmap.SaveToStream(MS);

[p47655255]

  strStreamIn:= TStringStream.Create;
  strStreamOut:=TStringStream.Create;
  try
    Image1.Picture.Bitmap.SaveToStream(strStreamIn);
    strStreamIn.Position:=0;
    EncodeStream(strStreamIn, strStreamOut);   //base64转换 不转换是乱码
    Memo1.Lines.Add(strStreamOut.DataString);
  finally
    strStreamIn.Free;
    strStreamOut.Free;
  end;

可以参考一下

[ptvbs]

就是转换字符串太长