Jpeg save to base64 in TThread

Question

我对德尔福有一些问题。

我写了两个简单的函数来制作屏幕截图，将其转换为jpeg并解码为base64流。如果我在主流节目中制作它，它会很好用。但是，如果我创建一个 TThread 类并在执行时启动此功能，窗口会冻结，我只能重新启动我的电脑。

通过多次尝试，我发现通过程序挂起 PC JpegImg.SaveToStream(Input); 如果我不将位图转换为 jpeg，它的效果很好，并且我得到了图像字符串。

请帮忙。

这里有一个代码

procedure TEvReader.ScreenShot(DestBitmap : TBitmap) ;
var   DC : HDC;
begin   DC := GetDC (GetDesktopWindow) ;
  try
    DestBitmap.Width := GetDeviceCaps (DC, HORZRES) ;
    DestBitmap.Height := GetDeviceCaps (DC, VERTRES) ;
    BitBlt(DestBitmap.Canvas.Handle, 0, 0, DestBitmap.Width, DestBitmap.Height, DC, 0, 0, SRCCOPY) ;
  finally
    ReleaseDC (GetDesktopWindow, DC) ;
  end;
end;

function TEvReader.Base64FromBitmap(Bitmap: TBitmap): string;
var
  Input: TBytesStream;
  Output: TStringStream;
  JpegImg:TJPEGImage;
begin
  Input := TBytesStream.Create;
  try
    JpegImg:=TJPEGImage.Create;
    JpegImg.Assign(Bitmap);

    JpegImg.SaveToStream(Input); {here a problem.When i replace "JpegImg" to "Bitmap" all works good }
    Input.Position := 0;
    Output := TStringStream.Create('', TEncoding.ASCII);
    try
      Soap.EncdDecd.EncodeStream(Input, Output);
      Result := Output.DataString;
    finally
      Output.Free;
    end;
  finally
    Input.Free;
  end;
end;

procedure TOutThread.Execute;
var
bmp:TBitmap;
strrr:String;
begin
  bmp:=TBitmap.Create;
  mObj.ScreenShot(bmp);
  strrr := mObj.Base64FromBitmap(bmp);
  Form2.Memo4.Text := strrr;
end;

Answer 1

TJPEGImage 不是线程安全的。虽然 http://qc.embarcadero.com/wc/qcmain.aspx?d=55871 中提到的线程安全绘图问题在 Delphi XE6 中得到了一些修复（通过公开 Canvas 属性，您必须锁定自己），但在您的情况下，它可能没有多大帮助。

您必须将 TJPEGImage 处理与主线程同步。

此外，在您的代码中，您已经创建了一些内存泄漏，因为您从未发布过 JpgImg 和 Bmp 对象。

尝试使用以下代码：

procedure TEvReader.ScreenShot(DestBitmap: TBitmap);
var
  DC: HDC;
begin
  DC := GetDC(GetDesktopWindow);
  DestBitmap.Canvas.Lock;
  try
    DestBitmap.Width := GetDeviceCaps(DC, HORZRES);
    DestBitmap.Height := GetDeviceCaps(DC, VERTRES);
    BitBlt(DestBitmap.Canvas.Handle, 0, 0, DestBitmap.Width, DestBitmap.Height, DC, 0, 0, SRCCOPY);
  finally
    DestBitmap.Canvas.Unlock;
    ReleaseDC(GetDesktopWindow, DC);
  end;
end;
function TEvReader.Base64FromBitmap(Bitmap: TBitmap): string;
var
  Input: TBytesStream;
  Output: TStringStream;
  JpegImg: TJPEGImage;
begin
  Input := TBytesStream.Create;
  try
    JpegImg := TJPEGImage.Create;
    try
      TThread.Synchronize(nil,
        procedure
        begin
          JpegImg.Assign(Bitmap);
          JpegImg.SaveToStream(Input);
        end);
    finally
      JpegImg.Free;
    end;
    Input.Position := 0;
    Output := TStringStream.Create('', TEncoding.ASCII);
    try
      Soap.EncdDecd.EncodeStream(Input, Output);
      Result := Output.DataString;
    finally
      Output.Free;
    end;
  finally
    Input.Free;
  end;
end;
procedure TOutThread.Execute;
var
  mObj: TEvReader;
  bmp: TBitmap;
  strrr: string;
begin
  mObj := TEvReader.Create;
  bmp := TBitmap.Create;
  try
    mObj.ScreenShot(bmp);
    strrr := mObj.Base64FromBitmap(bmp);
  finally
    bmp.Free;
    mObj.Free;
  end;
  Synchronize(nil,
    procedure
    begin
      Form2.Memo4.Text := strrr;
    end);
end;