Question

Before anyone says it, I know this isn t the way it should be done, but it s the way it was done and I m trying to support it without rewriting it all.
I can assure you this isn t the worst bit by far.

The problem occurs when the application reads an entire file into a string variable. Normally this work OK because the files are small, but one user created a file of 107MB and that falls over.

intFreeFile = FreeFile
Open strFilename For Binary Access Read As intFreeFile
ReadFile = String(LOF(intFreeFile), " ")
Get intFreeFile, , ReadFile
Close intFreeFile

现在，它不会倒在绳子上

ReadFile = String(LOF(intFreeFile), " ")

但在

Get intFreeFile, , ReadFile

那么，这里发生了什么，String肯定已经完成了内存分配，那么为什么它会抱怨Get上的内存不足呢？

Answer 1

通常，读取文件需要一些缓冲，这会占用空间。我在这里猜测，但我会考虑字节到字符转换所需的空间。VB6字符串为16位，但（二进制）文件为8位。文件内容需要107MB，转换后的结果需要214MB。字符串分配仅保留214 MB。

Answer 2

您不需要那个“GET”调用，只需删除它，您已经将文件放入字符串中，因此不需要使用GET调用。

ReadFile = Input(LOF(intFreeFile), intFreeFile)

Answer 3

I got the same error . And we just checked the taskmanager showing 100% resource usage . we found out one of the update application was taking too much ram memory and we just killed it. this solved the issue for me. One more thing was we gone in to config settings. START->RUN->MSCONFIG and go to startup tab and uncheck the application that looks like a updater application or some odd application that you dont use.

友情链接