RSS订阅 | 匿名投稿
您的位置:网站首页 > 图像 > 正文

Delphi里实现对图片Base64编码解码

作者:admin 来源: 日期:2018/1/30 14:38:26 人气: 标签:

前几天有个朋友问我这个问题:有段编码字符要转为图片,问我怎么实现?其实凭经验大多数人第一时间想到的就是这是base64编码,告知后但对方就是没法解,没办法啊,好人做到底,动手给对方写个demo,利用indy自带的TIdEncoderMIME和TIdDecoderMIME来完成该过程。关键代码如下:

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, IdBaseComponent, IdCoder, IdCoder3to4, IdCoderMIME, IdGlobal,

  StdCtrls, ExtCtrls, jpeg, pngimage;

 

type

  TForm1 = class(TForm)

    IdEncoderMIME1: TIdEncoderMIME;

    Button1: TButton;

    IdDecoderMIME1: TIdDecoderMIME;

    Image1: TImage;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

var

  LSrcStream, LDesStream: TMemoryStream;

  LPic: TPngImage;

begin

  LSrcStream := TMemoryStream.Create;

  try

    LDesStream := TMemoryStream.Create;

    try

      LSrcStream.LoadFromFile(ExtractFilePath(ParamStr(0)) + '1.txt');

      IdDecoderMIME1.DecodeBegin(LDesStream);

      IdDecoderMIME1.Decode(LSrcStream);

      IdDecoderMIME1.DecodeEnd;

      LDesStream.Position := 0;

      LPic := TPngImage.Create;

      try

        LPic.LoadFromStream(LDesStream);

        Image1.Picture.Assign(LPic);

      finally

        LPic.Free;

      end;

      LDesStream.SaveToFile(ExtractFilePath(ParamStr(0)) + '1.jpg');

    finally

      FreeAndNil(LDesStream);

    end;

  finally

    FreeAndNil(LSrcStream);

  end;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var

  LSrcStream, LDesStream: TMemoryStream;

begin

  LSrcStream := TMemoryStream.Create;

  try

    LDesStream := TMemoryStream.Create;

    try

      LSrcStream.LoadFromFile(ExtractFilePath(ParamStr(0)) + '1.jpg');

      IdEncoderMIME1.Encode(LSrcStream, LDesStream);

      LDesStream.SaveToFile(ExtractFilePath(ParamStr(0)) + '1.txt');

    finally

      FreeAndNil(LDesStream);

    end;

  finally

    FreeAndNil(LSrcStream);

  end;

end;

 

end.

窗体文件就不贴了,遇到该问题的可以参考下,Delphi高版本里完成的!


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料