我想使用 Gabriel Corneanu 的jpegex,它是 jpeg.TJPEGImage 的类助手。阅读本文和本文后,我了解到除了 Delphi Seattle,您无法再像 jpegex 那样访问私有字段(下例中的 FData)。像 David Heffernan 提议的那样探索 VMT 远远超出了我的范围。有没有更简单的方法来完成这项工作?
type
// helper to access TJPEGData fields
TJPEGDataHelper = class helper for TJPEGData
function Data: TCustomMemoryStream; inline;
procedure SetData(D: TCustomMemoryStream);
procedure SetSize(W,H: integer);
end;
// TJPEGDataHelper
function TJPEGDataHelper.Data: TCustomMemoryStream;
begin
Result := self.FData;
end;