android - 如何在Delphi中打开并读取Android设备上的 "/proc/cpuinfo"

Question

谁能告诉我如何在 Delphi Android 设备上打开和阅读“/proc/cpuinfo” >?

原代码:

var
  i: integer;
  FS: TFileStream;
  LBuffer: TBytes;
begin
  if FileExists('/proc/cpuinfo') then
    begin
      FS:= TFileStream.Create('/proc/cpuinfo', fmOpenRead);
      try
        SetLength(LBuffer, FS.Size);
        FS.ReadBuffer(Pointer(LBuffer)^, Length(LBuffer));
        for i:= 0 to Length(LBuffer) - 1 do
          Memo1.Lines.Add(LBuffer[i]);
      finally
        FS.Free;
      end;

    end;
end;

问题是 FS 的大小是 -1，因此不是读...

Answer 1

如果文件流报告大小为 -1，那么您将不得不更加努力地阅读内容。这是一个虚拟文件，因此它的行为并不完全像一个文件并报告其大小也就不足为奇了。我希望它也不支持寻求。

试试这个:

var
  Buffer: array [0..1023] of Byte;
  BytesStream: TBytesStream;
  BytesRead: Integer;
....
BytesStream := TBytesStream.Create;
repeat
  BytesRead := FS.Read(Buffer, SizeOf(Buffer));
  BytesStream.Write(Buffer, BytesRead);
until BytesRead < SizeOf(Buffer);

// now the contents can be read from BytesStream.Bytes
// convert to a string using TEncoding

简单地说，您读取文件，直到没有更多内容可读为止。