Dll 尝试添加现有类模块时出现内存不足错误VB6
我在用VB6做一个项目。我必须添加一个下载功能。它包含1个表单、1个类模块和1个模块（bas）文件。当我将现有模块添加到项目中时，它是成功的，但是当我尝试将类模块或frm文件添加到项目中时，它表示内存不足。我对这个问题绞尽脑汁已经有一段时间了，但找不到任何解决办法 我不能发布任何代码，因为这是一个公司项目。我只能说这是一个包含数千行代码的庞大项目。我试图添加的模块用于通过HTTP下载文件，它访问Wininet.dll中的方法 我不知道项目是否已经达到了代码行的最大限制，或者它是否是一个变量问题Dll 尝试添加现有类模块时出现内存不足错误VB6,dll,vb6,out-of-memory,wininet,Dll,Vb6,Out Of Memory,Wininet,我在用VB6做一个项目。我必须添加一个下载功能。它包含1个表单、1个类模块和1个模块（bas）文件。当我将现有模块添加到项目中时，它是成功的，但是当我尝试将类模块或frm文件添加到项目中时，它表示内存不足。我对这个问题绞尽脑汁已经有一段时间了，但找不到任何解决办法 我不能发布任何代码，因为这是一个公司项目。我只能说这是一个包含数千行代码的庞大项目。我试图添加的模块用于通过HTTP下载文件，它访问Wininet.dll中的方法 我不知道项目是否已经达到了代码行的最大限制，或者它是否是一个变量问题
我听说制作DLL可以解决这个问题，但我们不需要。有人能帮忙吗？我想我在过去也遇到过类似的情况，经过一些挖掘和尝试不同的东西，结果是我们在项目中拥有的变量/表单/控件的数量。项目中唯一变量、常量和控件名称的数量有限制 我们证明这一点的方法是添加没有完全破坏它的模块，然后添加一个空模块。在空模块中，开始添加变量，直到它中断，这不会花费很长时间 我们通过检查代码，将表单上标签的名称更改为控制数组，对字符串使用常量，并删除任何不再需要的旧代码来解决这个问题。尝试删除未使用的变量 如果它使生活更容易，你可以尝试移动一些代码到dll的。 希望这有帮助 请仔细观察，以下小节可能会有所帮助：
您知道，有一些高级对象可以在两行或三行中完成Wininet中需要很多行的工作 使用xmlhttp尝试这种方法。编辑url的等。如果它似乎工作注释出如果/结束如果转储信息，即使看起来工作。它是vbscript，但vbscript在vb6中工作
On Error Resume Next
Set File = WScript.CreateObject("Microsoft.XMLHTTP")
File.Open "GET", "http://www.microsoft.com/en-au/default.aspx", False
'This is IE 8 headers
File.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 1.1.4322; .NET CLR 3.5.30729; .NET CLR 3.0.30618; .NET4.0C; .NET4.0E; BCD2000; BCD2000)"
File.Send
If err.number <> 0 then
line =""
Line = Line & vbcrlf & ""
Line = Line & vbcrlf & "Error getting file"
Line = Line & vbcrlf & "=================="
Line = Line & vbcrlf & ""
Line = Line & vbcrlf & "Error " & err.number & "(0x" & hex(err.number) & ") " & err.description
Line = Line & vbcrlf & "Source " & err.source
Line = Line & vbcrlf & ""
Line = Line & vbcrlf & "HTTP Error " & File.Status & " " & File.StatusText
Line = Line & vbcrlf & File.getAllResponseHeaders
wscript.echo Line
Err.clear
wscript.quit
End If
On Error Goto 0
Set BS = CreateObject("ADODB.Stream")
BS.type = 1
BS.open
BS.Write File.ResponseBody
BS.SaveToFile "c:\users\test.txt", 2
出错时继续下一步
Set File=WScript.CreateObject（“Microsoft.XMLHTTP”）
文件。打开“获取”http://www.microsoft.com/en-au/default.aspx”“错
“这是IE 8头
File.setRequestHeader“用户代理”、“Mozilla/4.0（兼容；MSIE 8.0；Windows NT 6.0；Trident/4.0；SLCC1；.NET CLR 2.0.50727；Media Center PC 5.0；.NET CLR 1.1.4322；.NET CLR 3.5.30729；.NET CLR 3.0.30618；.NET4.0C；.NET4.0E；BCD2000；BCD2000）”
文件。发送
如果错误号为0，则
line=“”
行=行和vbcrlf&“”
Line=Line&vbcrlf&“获取文件时出错”
行=行和vbcrlf&“================================================”
行=行和vbcrlf&“”
Line=Line&vbcrlf&“Error”&err.number&“（0x”&hex（err.number）&“”&err.description
Line=Line&vbcrlf&“Source”&err.Source
行=行和vbcrlf&“”
Line=Line&vbcrlf&“HTTP错误”&File.Status&&File.StatusText
Line=Line&vbcrlf&File.getAllResponseHeaders
回音行
清楚
wscript.quit
如果结束
错误转到0
设置BS=CreateObject（“ADODB.Stream”）
BS.type=1
英国公开赛
BS.Write File.ResponseBody
BS.SaveToFile“c:\users\test.txt”，2