Home > Backend Development > PHP Tutorial > site:www.jschina.com.cn Mutual conversion between IStream and TStream

site:www.jschina.com.cn Mutual conversion between IStream and TStream

WBOY
Release: 2016-07-29 08:38:38
Original
1259 people have browsed it

procedure TForm1.Button1Click(Sender: TObject);
var
memoStream,OleStream:TStream;
Stream: IStream;
begin
image1.Picture:=nil;
image2. Picture :=nil;
//Show initial photo
image1.Picture.LoadFromFile('c:logo.bmp');
memoStream := TmemoryStream.Create;
try
//Save the photo as TmemoryStream
image1.Picture.Bitmap.SaveToStream(memoStream);
memoStream.Position: =0;
//Convert TmemoryStream to IStream
stream:=TStreamAdapter.Create(memoStream);
//Convert IStream to TOleStream ==TmemoryStream
OleStream:= TOleStream.Create(Stream);
Image2.Picture.Bitmap .LoadFromStream(OleStream);
finally
memoStream.Free;
OleStream.Free;
end;
end;
/////////////////// //// ///
uses
........................AxCtrls,ActiveX; //These two units must be added
The above has introduced the mutual conversion between site:www.jschina.com.cn IStream and TStream, including the content of site:www.jschina.com.cn. I hope it will be helpful to friends who are interested in PHP tutorials.

Related labels:
source:php.cn
Statement of this Website
The content of this article is voluntarily contributed by netizens, and the copyright belongs to the original author. This site does not assume corresponding legal responsibility. If you find any content suspected of plagiarism or infringement, please contact admin@php.cn
Popular Tutorials
More>
Latest Downloads
More>
Web Effects
Website Source Code
Website Materials
Front End Template