IStreamとTStream間の相互変換

プロシージャ TForm1.Button1Click(Sender: TObject);
var
memoStream,OleStream:TStream;
begin
image1.Picture
image2.Picture := nil;

//最初の写真を表示
image1.Picture.LoadFromFile('c:logo.bmp');
memoStream := TmemoryStream.Create;
//写真を TmemoryStream として保存します
image1.Picture.Bitmap.SaveToStream(memoStream);
memoStream.Position:=0;

//TmemoryStream を IStream に変換します
:=TStreamAdapter.Create(memoStream);

//IStream を TOleStream に変換 ==TmemoryStream
OleStream:= TOleStream.Create(Stream)
image2.Picture.Bitmap.LoadFromStream(OleStream) ;
最後に
OleStream.Free
終了; //////////////
🎜>uses

..... AxCtrls,ActiveX; //これら 2 つのユニットを追加する必要があります。