把文件流转为字串Demo

  var
    MyStr:string ;
    MyAnsiStr:AnsiString ;
    MyOut:TMemoryStream ;
    i:Integer;
begin
 MyOut := TMemoryStream.Create ;
  try
  
    if MyOut.Size <= 0 then
    begin
            Exit;
    end;
    SetLength(MyAnsiStr,MyOut.Size);
    MyOut.Position := 0 ;
    MyOut.Read(MyAnsiStr[1],MyOut.Size);
    MyStr := '';
    for i := 1 to MyOut.Size do
    begin
      MyStr := MyStr + IntToHex(Byte(MyAnsiStr[i]));
    end;

    Memo2.Text := MyStr ;
  finally
    MyOut.Free ;
  end;