Squeak中HTTP大文件下载异常：速度慢且文件体积不符

我来帮你搞定这个Squeak里的文件下载问题～你遇到的大文件下载慢、体积远超预期的问题，主要是两个核心原因：缺少缓冲机制导致I/O效率极低，以及用文本模式处理二进制数据引发字节转换。下面给你详细的解决方案：

问题根源拆解 #

• 下载速度慢：如果代码是逐字节读写文件，频繁的磁盘I/O操作会严重拖慢大文件的处理速度，这是小文件没问题但大文件卡顿的关键原因。
• 文件体积异常：Squeak默认的文件流是文本模式，会自动转换换行符（比如把Windows的CRLF转成LF），二进制文件里的字节被错误转换后，整体体积就会膨胀，这就是你下载的exe从75MB变成113MB的原因。

修正后的代码（推荐用Zinc HTTP组件） #

Squeak里的Zinc HTTP客户端（一般默认自带）处理大文件更可靠，还能轻松实现缓冲：

download: anURL
	"Download a large binary file efficiently with buffering and binary mode"
	| httpResponse fileStream buffer fileName |
	"Extract filename from the URL path"
	fileName := (anURL asUrl pathSegments last) ifEmpty: [ 'downloaded_file' ].
	
	"Fetch the HTTP response with Zinc"
	httpResponse := ZnClient new
		url: anURL;
		get;
		response.
	
	"Open file stream in BINARY mode to preserve raw bytes"
	fileStream := fileName asFileReference writeStream binary.
	"Use a 4KB buffer - adjust to 8KB/16KB if needed"
	buffer := ByteArray new: 4096.
	
	"Wrap the file stream with a buffered writer to reduce I/O calls"
	[ httpResponse entity writeOn: (ZnBufferedWriteStream on: fileStream) ]
		ensure: [ fileStream close ]. "Guarantee stream closure even if errors occur"
	
	Transcript show: 'Successfully downloaded: ', fileName; cr.
	^ fileName

关键改进点说明 #

1. 缓冲流ZnBufferedWriteStream：把文件流包装成缓冲流后，会积累一定量的数据再一次性写入磁盘，大幅减少磁盘I/O的次数，直接提升大文件的下载速度。
2. 二进制模式打开文件：通过binary方法设置流为二进制模式，确保所有字节原封不动写入，避免文本模式下的换行符转换问题，彻底解决文件体积异常。
3. 自动资源清理：用ensure:块保证文件流一定会被关闭，即使下载中途出错，也不会留下损坏的文件或者占用系统资源。

原生Squeak实现（如果没有Zinc） #

如果你的Squeak环境没有Zinc组件，也可以用原生HTTPClient手动实现缓冲：

download: anURL
	"Native Squeak implementation for binary file download with buffering"
	| request response fileStream buffer fileName bytesRead |
	fileName := (anURL asUrl pathSegments last) ifEmpty: [ 'downloaded_file' ].
	
	request := HTTPClient requestGet: anURL.
	response := HTTPClient sendRequest: request.
	
	fileStream := FileStream newFileNamed: fileName.
	fileStream binary. "Enable binary mode"
	buffer := ByteArray new: 4096.
	
	[ 
		[ (bytesRead := response readInto: buffer startingAt: 1 count: buffer size) > 0 ]
			whileTrue: [ fileStream next: bytesRead putAll: buffer startingAt: 1 ]
	] ensure: [ 
		response close.
		fileStream close.
	].
	
	Transcript show: 'Download completed: ', fileName; cr.
	^ fileName

小提示 #

缓冲大小可以根据你的系统调整，4KB是比较均衡的选择，8KB或16KB在一些场景下可能会更快，但差异不会特别大。另外，下载大文件时尽量避免在UI线程里执行，防止Squeak界面卡顿～

内容的提问来源于stack exchange，提问作者pii_ke