进度条，直到函数执行

问题描述

在此代码中， Base64FromBitmap（）将图像转换为字符串，然后结果将显示在RichEdit中。有时，此过程需要几秒钟（基于图像的大小）。我想添加一个进度条以显示进度，直到完成该过程。 Base64FromBitmap（）函数中没有 For循环。

function Base64FromBitmap(Bitmap: TBitmap): string;
var
  Input: TBytesstream;
  Output: TStringStream;
  Encoding: TBase64Encoding;
begin
  Input := TBytesstream.Create;
  try
    Bitmap.SavetoStream(Input);
    Input.Position := 0;
    Output := TStringStream.Create('',TEncoding.ASCII);
    try
      Encoding := TBase64Encoding.Create(0);
      try
        Encoding.Encode(Input,Output);
        Result := Output.DataString;
      finally
        Encoding.Free;
      end;
    finally
      Output.Free;
    end;
  finally
    Input.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := Base64FromBitmap(Image1.Picture.Bitmap);
  RichEdit.Text := s;
end;

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）