今天群里讨论对图片进行BASE64编码的问题就简单的写了下。编码：procedure TForm1.btn1Click(Sender: TObject); var fs :TFileStream; ss:TStringStream; begin fs := TFileStream.Create('1.jpg',fmOpenRead); ss := TStringStream.Cre

- 阅读全文 -