本文整理自网络,侵删。
uses NetEncoding,PNGImage;
procedure TForm1.FormCreate(Sender: TObject);var LInputStream: TFileStream; LOutputStream: TMemoryStream; Png: TPNGImage;begin LInputStream := TFileStream.Create('C:\Temp\PlateImage.txt', fmOpenRead or fmShareDenyWrite); try LOutputStream := TMemoryStream.Create; try TNetEncoding.Base64.Decode(LInputStream, LOutputStream); ShowMessage(LOutputStream.Size.ToString); LOutputStream.Position := 0; Png := TPNGImage.Create; try Png.LoadFromStream(LOutputStream); Image1.Picture.Assign(Png); finally Png.Free; end; finally LOutputStream.Free; end; finally LInputStream.Free; end;end;
相关阅读 >>
Delphi twebbrowser 响应回车键(ewb响应正常,无需额外代码)
Delphi xe5 程序中标识win max android ios程序代码分别实现
更多相关阅读请进入《Delphi》频道 >>