将 JPG（png/GIF 等）转换为 base64 字符串：

Question

我在 XP SP3 上使用 Delphi 7 和 Indy 9。

我的 HTML 中有多个 <img> 标记。

我想将<img src="filepath" ...> 标签转换为<img src="data:image/jpg;base64,..."> 标签。

作为一个练习，我计划在每张图片上都这样做：

procedure TForm1.Button2Click(Sender: TObject);
VAR
   Str    : AnsiString;
   Stream1, Stream2  : TFileStream;
   Decoder : TIDEncoderMime;

BEGIN
   Stream1 := TFilestream.Create(Curdir + '\solopgang.jpg', fmOpenRead);
   Stream2 := TFilestream.Create('C:\test221.html', fmCreate);
   Try
      Decoder := TIDEncoderMime.Create(NIl);
      Str := decoder.Encode(Stream1^, length(Stream1));
      StrToFile('c:\test221.html',Str);
   Finally
      FreeAndNil(Decoder);
      Stream1.Free;
      Stream2.Free;
  END;
end;

但是，当我在我的TWebBrowser 中显示它时，我只得到图像的外框，我不知道为什么。

Answer 1

正如 David 在 cmets 中提到的那样，您的代码不会如图所示编译。它应该更像这样：

uses
  ..., Classes, IdCoderMIME;

procedure TForm1.Button2Click(Sender: TObject);
var
  Stream : TFileStream;
  Encoder : TIdEncoderMIME;
begin
  Stream := TFileStream.Create(Curdir + '\solopgang.jpg', fmOpenRead or fmShareDenyWrite);
  try
    Encoder := TIdEncoderMIME.Create(nil);
    try
      StrToFile('c:\test221.html', Encoder.Encode(Stream));
    finally
      Encoder.Free;
    end;
  finally
    Stream.Free;
  end;
end;

如果您升级到 Indy 10，则可以改用它：

uses
  ..., Classes, IdGlobal, IdCoderMIME;

procedure TForm1.Button2Click(Sender: TObject);
var
  Stream1, Stream2 : TStream;
begin
  Stream1 := TIdReadFileExclusiveStream.Create(Curdir + '\solopgang.jpg');
  try
    Stream2 := TIdFileCreateStream.Create('c:\test221.html');
    try
      TIdEncoderMIME.EncodeStream(Stream1, Stream2);
    finally
      Stream2.Free;
    end;
  finally
    Stream1.Free;
  end;
end;