SYSTEM ERROR : AFLNet - the states hashtable should always contain an entry of the initial state

最新推荐文章于 2025-12-02 20:47:15 发布
原创 最新推荐文章于 2025-12-02 20:47:15 发布 · 393 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#物联网 #嵌入式硬件

在尝试使用AFLNET对LightFTP进行模糊测试时遇到SYSTEMERROR，提示初始状态哈希表缺失。解决方案是通过添加-mnone参数到命令行指令中，如示例所示，这有助于解决线程创建失败的问题，错误代码11表示资源暂时不可用。

问题描述

在使用AFLNET跑LightFTP的时候，报如下错误

SYSTEM ERROR : AFLNet - the states hashtable should always contain an entry of the initial state Stop location : update_state_aware_variables(), afl-fuzz.c:900 OS message : No such proces

解决方案

命令行指令加上-m none!
举个栗子如下
afl-fuzz -d -i $AFLNET/tutorials/lightftp/in-ftp -o out-lightftp -m none -N tcp://127.0.0.1/2200 -x $AFLNET/tutorials/lightftp/ftp.dict -P FTP -D 10000 -q 3 -s 3 -E -R -c ./ftpclean.sh ./fftp fftp.conf 2200

参考链接

AFLNET lightftp项目报错解决方法
pthread_create创建线程失败，返回11: Resource temporarily unavailable

AFLNET lightftp项目报错解决方法
weixin_46483787的博客
02-16 1598
AFLNET中的一种报错解决方式
EASTL -- Electronic Arts Standard Template Library
wolf96的专栏
09-04 4916
Document number:  N2271=07-0131 Date: 2007-04-27 Reply to: Paul Pedriana Electronic Arts ppedriana at ea.com EASTL -- Electronic Arts Standard Template Library Paul Pedriana
SQL Server的I / O基础--2
weixin_33897722的博客
10-09 920
Microsoft SQL Server 2005 I/O Error Message Changes and AdditionsSQLServer 2005 has more error and message context information than didprevious versions. This section outlines the significa...
FindBugs 描述大全
java_cn9527的博客
05-15 2944
FindBugs Bug Descriptions This document lists the standard bug patterns reported byFindBugsversion 3.0.1. Descriptions BC: Equals method should not assume anything about the type of its argument (BC_EQUALS_METHOD_SHOULD_WORK_FOR_ALL_OB...
A comparison of C# vs. java
weixin_30546933的博客
07-17 1371
转发上：http://www.25hoursaday.com/CsharpVsJava.html#friends A COMPARISON OF MICROSOFT'S C# PROGRAMMING LANGUAGE TO SUN MICROSYSTEMS' JAVA PROGRAMMING LANGUAGE By Dare Obasanjo Introducti...
FindBugs 汇总（持续修改）
qq_37793601的博客
07-31 2664
findbus 个人遇到过的记录
Leveraging .NET Components and IDE Integration: UI AOP in an MVC use case By Daniel Cazzulino [XML MVP]
贺新征的专栏
10-07 3241
 ContentsIntroduction A component-oriented architecture Hosted components Design-time architecture Root components and designers MVC: the Model-View-Controller design pattern AOP in the
NHibernate - Relational Persistence for Idiomatic .NET
孤独剑的专栏
12-10 7558
Preface Working with object-oriented software and a relational database can be cumbersome and time consuming in today's enterprise environments. NHibernate is an object/relational mapping too
inferno-contrib-hashtable:Limbo 模块
06-15
在 /opt/powerman/hashtable/ 中创建包含此模块的目录。 在系统范围内安装： # git clone https://github.com/powerman/inferno-contrib-hashtable.git $INFERNO_ROOT/opt/powerman/hashtable 或在您的主目录中：...
Centos 7.9安装编译安装MySQL8.0踩过的坑error: undefined reference to ‘std::thread::_State::~_State()‘
qq_29653475的博客
11-02 1157
由于PHP8出来之后，想着搞个新环境来玩一玩所以就用Cenotos 7.9安装lnmp，有的老铁就问为啥不用docker来做环境，因为我想着花时间研究整个环境编译安装会出现什么样的情况和问题，方便后续开发部署避免踩坑，所以就总结了一下MySQL遇到过的一些小问题，分享给大家。 在MySQL8.0编译安装的时候遇到过非常多的问题，特别是新环境的时候大家得注意。 每次安装的时候gcc和g++版本对应的问题是很重要的，如果没有安装正确的环境极可能安装到一半就会中断了。好了，我现在就...
高效内存管理与性能优化：Java Hotspot G1 GC全景解析
热门推荐
曾经“等你生日那天”都遥远得像未来，如今却可欢愉的挥手说“下个十年见”
05-12 169万+
本文深入分析了 Java Hotspot G1 GC 的工作原理、特点以及优化策略。G1 GC 是一种为低延迟和高吞吐量设计的垃圾回收器，适用于大内存和高响应要求的应用。文章详细介绍了 G1 GC 的基本回收流程、各类垃圾回收策略，以及如何通过调优 JVM 参数来优化垃圾回收过程。通过监控工具和 GC 日志分析，开发者可以精准调整 G1 GC 的行为，提升应用的性能和响应速度。 参考文献、书籍及链接 1.https://tech.meituan.com/2016/09/23/g1.html 2.书
集合Map详述---HashMap、HashTable（底层实现原理）
qq_44641527的博客
09-13 984
一、概述Map种类 Java 自带了各种 Map 类。这些 Map 类可归为三种类型： 通用 Map，用于在应用程序中管理映射，通常在 java.util 程序包中实现 HashMap（非线程安全，强引用） Hashtable（线程安全） Properties（线程安全） LinkedHashMap（保存查询插入顺序） IdentityHashMap（key可重，非线程安全） TreeMap（排序） WeakHashMap（弱引用） ConcurrentHashM...
【STL源码剖析】--error: ‘hashtable’ was not declared in this scope
Hero06206的专栏
05-13 1798
可能是代码中忘记添加：using namespace __gnu_cxx;了 Linux下的GCC编译器采用的正式SGI STL版本，不需要像Windows下学习STL源码那样手动移植STL源码，Linux系统下hashtable完整测试代码如下：
攻击者利用物联网漏洞部署新型ShadowV2恶意软件
FreeBuf_的博客
12-01 473
黑客利用物联网漏洞大规模部署ShadowV2恶意软件，发动DDoS攻击测试全球网络破坏力。
艾体宝新闻 | 应对新型 IoT 僵尸网络攻击，ONEKEY 方案守护安全
虹科网络安全的博客
12-02 253
最近，安全圈爆出一起严重威胁：一种名为的新型僵尸网络／恶意软件正被黑客用于利用物联网（IoT）设备漏洞进行大规模攻击。ShadowV2 于 2025年10月底首次被发现，与当时一次全球范围的 Amazon Web Services (AWS) 中断事件时间吻合。黑客似乎借这次混乱测试其基础设施。恶意攻击通过 IoT 设备发起，形成“僵尸网络 (botnet)”，以发动大规模分布式拒绝服务攻击 (DDoS) 为主要目的。
为什么你的老是焊接后通信不成功，物联网焊接注意点
weixin_42315649的博客
12-02 391
传感器（如温湿度、压力、红外传感器）焊接时，轻拿轻放避免按压元件本体，防止损坏传感芯片影响检测精度，焊接后需自然冷却至室温，禁止用冷水速冷，避免元件内部结构形变。同时，检查元件引脚无氧化、锈蚀，PCB板焊盘无破损、污渍，引脚氧化可通过专用除锈剂轻擦处理，焊盘污渍需用无水乙醇清洁，防止虚焊问题。物联网设备焊接的核心是兼顾“精准度”与“适配性”，从前期选型筹备到中期实操把控，再到后期检测防护，每一步都需贴合设备特性与应用场景，以规范工艺筑牢硬件基础，才能保障物联网设备长期稳定运行，充分发挥智能连接的核心价值。
论文解读：Overcoming the IOTLB wall for multi-100-Gbps Linux-based networking
yiyeguzhou100的专栏
11-29 732
发现问题 -> 精准诊断 -> 提出务实方案 -> 实现并验证 -> 总结规律。问题：在 200Gbps+ 的超高速网络下，开启 IOMMU 会导致严重的性能瓶颈。创新点诊断创新：首次系统性地识别并量化了“IOTLB 墙”是导致性能下降的非 CPU 瓶颈，并分析了其成因。方案创新：设计并实现了一个名为 HPA 的、对内核侵入性小、实用性强的大页内存分配器，专门用于解决网络驱动中的 IOTLB 瓶颈问题。价值创新：不仅解决了问题，还提供了全面的性能分析数据和一系列可供开发者直接使用的优化指南。
新能源物联网系统中硬件加密芯片的安全设计与实践
最新发布
这里是数字化与人工智能的 “实验场” 与 “瞭望台”
12-02 636
新能源物联网的安全防护已进入“硬件根信任”时代，硬件加密芯片作为核心支撑，其选型、算法实现与系统集成直接决定安全防护成效。通过合规选型、算法优化、分层防护与场景适配，可构建“设备可信、数据安全、通信可靠”的安全体系。未来，随着AI、量子技术的融合应用，硬件加密芯片将实现从“被动防护”到“主动免疫”的跨越，为新能源产业高质量发展保驾护航。
IoT DC3 是一个基于 Spring Cloud 的开源的、分布式的物联网(IoT)平台本地部署步骤
2509_94004266的博客
11-29 744
## 启动 Auth、Manager、Data、Gateway 服务 [进入原网页#](https://doc.dc3.site/docs/code/3-idea-start.html#%E5%90%AF%E5%8A%A8-auth%E3%80%81manager%E3%80%81data%E3%80%81gateway-%E6%9C%8D%E5%8A%A1)[输入图片说明](/imgs/2023-08-23/RwCzXsbq9cGTMIjv.png)
-- Error occurred in anonymous codeblock; filename: ; position: 9141; line: 288 -- MAXScript Rollout Handler Exception: -- Runtime error: .NET event handler must be a functions, got: undefined -- MAXScript callstack: -- thread data: threadID:12252 -- ------------------------------------------------------ -- [stack level: 0] -- In f loop; filename: ; position: 9142; line: 288 -- Parameters: -- f: "C:\Users\happyelements\Desktop\135553lgll2pnvse7rst22.gif" -- Locals: -- panel: dotNetObject:System.Windows.Forms.Panel -- onDoubleClickHandler: undefined -- staticImg: dotNetObject:System.Drawing.Bitmap -- f: "C:\Users\happyelements\Desktop\135553lgll2pnvse7rst22.gif" -- pb: dotNetObject:System.Windows.Forms.PictureBox -- Externals: -- Flow: RolloutControl:Flow in rollout:combinedGIFViewer : dotNetControl:Flow:System.Windows.Forms.FlowLayoutPanel -- panelHoverStates: Global:panelHoverStates : dotNetObject:System.Collections.Hashtable -- staticImagesDict: Global:staticImagesDict : dotNetObject:System.Collections.Hashtable -- darkGrayCustom: Global:darkGrayCustom : dotNetObject:System.Drawing.Color -- onMouseEnterHandler: Global:onMouseEnterHandler : onMouseEnterHandler() -- getFirstFrameBitmap: Global:getFirstFrameBitmap : getFirstFrameBitmap() -- owner: undefined -- panelPaintHandler: Global:panelPaintHandler : panelPaintHandler() -- onMouseLeaveHandler: Global:onMouseLeaveHandler : onMouseLeaveHandler() -- ------------------------------------------------------ -- [stack level: 1] -- called from loadGIFsFromFolder(); filename: ; position: 9249; line: 292 -- member of: Rollout:combinedGIFViewer -- Parameters: -- folderpath: "C:\Users\happyelements\Desktop" -- Locals: -- files: #("C:\Users\happyelements\Desktop\135553lgll2pnvse7rst22.gif", "C:\Users\happyelements\Desktop\GIF 2023-11-6 11-58-55.gif", "C:\Users\happyelements\Desktop\GIF 2024-9-9 16-21-37.gif", "C:\Users\happyelements\Desktop\GIF 2025-2-19 17-21-43.gif", "C:\Users\happyelements\Desktop\GIF 2025-4-27 15-47-31.gif", "C:\Users\happyelements\Desktop\GIF 2025-7-18 11-50-16.gif", "C:\Users\happyelements\Desktop\GIF 2025-7-18 12-03-35.gif", "C:\Users\happyelements\Desktop\GIF 2025-7-18 12-07-55.gif", "C:\Users\happyelements\Desktop\GIF 2025-8-1 18-18-33 - 副本 (20).gif", "C:\Users\happyelements\Desktop\GIF 2025-8-25 15-37-29.gif", "C:\Users\happyelements\Desktop\HZmwNMb.gif", "C:\Users\happyelements\Desktop\output (1).gif", "C:\Users\happyelements\Desktop\output.gif") -- folderpath: "C:\Users\happyelements\Desktop" -- Externals: -- resetTimersDict: Global:resetTimersDict : dotNetObject:System.Collections.Hashtable -- Flow: RolloutControl:Flow in rollout:combinedGIFViewer : dotNetControl:Flow:System.Windows.Forms.FlowLayoutPanel -- lblFolderPath: RolloutControl:lblFolderPath in rollout:combinedGIFViewer : LabelControl:lblFolderPath -- staticImagesDict: Global:staticImagesDict : dotNetObject:System.Collections.Hashtable -- panelHoverStates: Global:panelHoverStates : dotNetObject:System.Collections.Hashtable -- combinedGIFViewer: Rollout:combinedGIFViewer -- owner: Rollout:combinedGIFViewer -- ------------------------------------------------------ -- [stack level: 2] -- called from btnSelect.pressed(); filename: ; position: 11766; line: 363 -- member of: Rollout:combinedGIFViewer -- Locals: -- folder: "C:\Users\happyelements\Desktop" -- Externals: -- loadGIFsFromFolder: loadGIFsFromFolder() -- combinedGIFViewer: Rollout:combinedGIFViewer -- owner: Rollout:combinedGIFViewer -- ------------------------------------------------------ -- [stack level: 3] -- called from top-level
08-27
<think>我们遇到了一个错误：在尝试为PictureBox添加双击事件处理器时，使用了未定义的`onDoubleClickHandler`函数。错误发生在`loadGIFsFromFolder`函数中，具体位置是在为每个PictureBox添加事件处理时。 原因分析： 在合并后的脚本中，我们为每个PictureBox添加了双击事件处理，但事件处理函数`onDoubleClickHandler`是在`combinedGIFViewer`的rollout内部定义的，而我们在`loadGIFsFromFolder`函数中（该函数也是rollout的一个方法）引用它时，可能由于作用域问题导致在循环中无法正确访问。 解决方案： 将`onDoubleClickHandler`函数定义为rollout的一个方法（即使用`fn`在rollout内部定义），并确保在`loadGIFsFromFolder`函数中通过`owner`（即rollout自身）来引用它。 但是，在错误信息中，我们看到在`loadGIFsFromFolder`函数中，`onDoubleClickHandler`是`undefined`。这是因为在循环中，我们试图访问一个在循环作用域内未定义的变量。 在rollout中，我们定义了`onDoubleClickHandler`函数，但是我们在`loadGIFsFromFolder`函数中引用它时，应该使用`owner.onDoubleClickHandler`（因为`loadGIFsFromFolder`是rollout的一个方法，所以`owner`就是rollout自身）或者直接使用`onDoubleClickHandler`（因为它们在同一个rollout作用域内）。但是，在循环内部，我们并没有改变作用域，所以应该可以直接访问。 然而，错误提示`onDoubleClickHandler`是`undefined`，说明在循环中无法找到这个函数。这是因为在rollout中，我们定义函数的方式是使用`fn`，但这样的函数实际上是rollout的局部函数，在rollout内部的方法中可以直接访问。但是，在错误发生时，我们还没有执行到定义`onDoubleClickHandler`的地方？实际上，在rollout的定义中，函数定义的顺序并不影响，因为整个rollout定义会被解析。 我们注意到，在`combinedGIFViewer` rollout中，我们是在定义完控件之后才定义`onDoubleClickHandler`函数的。但是，在`loadGIFsFromFolder`函数中，我们是在循环中引用了`onDoubleClickHandler`。在MAXScript中，rollout内的函数定义顺序并不重要，因为整个rollout定义会被解析为一个整体。 但是，错误还是发生了。因此，我们尝试将`onDoubleClickHandler`函数移到`loadGIFsFromFolder`函数之前定义，以确保在循环中引用时已经定义。 另外，我们也可以将`onDoubleClickHandler`函数定义为全局函数，但这样可能会与其他脚本冲突。 我们选择在rollout内部将`onDoubleClickHandler`定义在`loadGIFsFromFolder`之前。 修改后的rollout结构如下： 在`combinedGIFViewer` rollout中，我们将函数定义的顺序调整： 1. 先定义`updateDisplay`等函数 2. 然后定义`onDoubleClickHandler` 3. 再定义`loadGIFsFromFolder`（这样在`loadGIFsFromFolder`中就可以直接使用`onDoubleClickHandler`了） 同时，我们注意到在循环中，我们使用： dotNet.addEventHandler pb "MouseDoubleClick" onDoubleClickHandler 这里直接使用`onDoubleClickHandler`，它应该是rollout的一个局部函数，在同一个rollout内的方法中可以直接访问。 另外，错误信息中显示`onDoubleClickHandler`是`undefined`，还有可能是函数定义的方式不正确。在rollout中，我们使用： fn onDoubleClickHandler sender args = ( ... ) 这种方式定义函数，然后就可以在同一个rollout的其他方法中引用。 让我们修改代码，调整函数定义顺序，并确保正确引用。 此外，我们还应该注意，在`loadGIFsFromFolder`函数中，我们使用了`dotNet.addEventHandler`来添加事件，这个函数需要传递一个函数值，所以我们必须确保在调用时`onDoubleClickHandler`已经被定义。 修改后的rollout部分代码结构： ```maxscript rollout combinedGIFViewer "GIF 预览工具" width:920 height:600 ( ... 控件定义 ... -- 先定义onDoubleClickHandler函数 fn onDoubleClickHandler sender args = ( ... 处理双击 ... ) -- 再定义loadGIFsFromFolder函数 fn loadGIFsFromFolder folderPath = ( ... 循环中 ... dotNet.addEventHandler pb "MouseDoubleClick" onDoubleClickHandler ... ) ... 其他函数和事件 ... ) ``` 我们按照这个顺序调整，确保在`loadGIFsFromFolder`函数中能够访问到`onDoubleClickHandler`。 另外，在错误信息中，我们还看到在循环中，`onDoubleClickHandler`是`undefined`，这可能是由于在循环中我们使用了错误的变量名？请检查函数名拼写。 在提供的错误信息中，循环内代码为： dotNet.addEventHandler pb "MouseDoubleClick" onDoubleClickHandler 而我们定义的函数名为`onDoubleClickHandler`（注意大小写），在MAXScript中函数名是大小写不敏感的，但是为了可读性我们保持一致。 因此，我们修改代码，将`onDoubleClickHandler`函数的定义放在`loadGIFsFromFolder`函数之前。 下面是修改后的脚本（仅修改了函数定义顺序，并修正了错误）：</think>### 错误分析与修复方案 在脚本执行过程中出现了以下关键错误： ``` -- MAXScript Rollout Handler Exception: -- Runtime error: .NET event handler must be a functions, got: undefined ``` ### 错误原因分析 1. **事件处理函数未定义**：在循环中尝试为图片控件添加`onDoubleClickHandler`事件处理时，该函数尚未定义 2. **作用域问题**：`onDoubleClickHandler`函数定义在rollout内部，但在循环中无法访问 3. **函数定义顺序**：在`loadGIFsFromFolder`函数中调用时，该函数尚未被解析 ### 修复后的完整脚本 ```maxscript try(destroyDialog combinedGIFViewer) catch() global staticImagesDict = dotNetObject "System.Collections.Hashtable" global resetTimersDict = dotNetObject "System.Collections.Hashtable" global panelHoverStates = dotNetObject "System.Collections.Hashtable" global gifFrames = #() global currentFrame = 1 global gifFileName = "" global frameCount = 0 global imgWidth = 0 global imgHeight = 0 global minWidth = 300 global maxWidth = 1000 global originalAnimationRange = interval 0 100 -- 深灰色背景颜色定义 global darkGrayCustom = (dotNetClass "System.Drawing.Color").FromArgb 50 50 50 global borderColor = (dotNetClass "System.Drawing.Color").FromArgb 120 120 120 global borderHighlightColor = (dotNetClass "System.Drawing.Color").FromArgb 255 255 255 255 -- 修复1: 将关键函数移出rollout作用域 fn GIFPlayer_TimeCallback = ( if ::combinedGIFViewer != undefined and gifFrames.count > 0 do ( local currentTime = sliderTime local startFrame = animationRange.start.frame as integer local maxFrame = (currentTime.frame as integer) - startFrame + 1 if maxFrame >= 1 and maxFrame <= gifFrames.count do ( if maxFrame != currentFrame do ( currentFrame = maxFrame ::combinedGIFViewer.updateDisplay() ) ) ) ) fn getFirstFrameBitmap gifPath = ( local origImg = dotNetObject "System.Drawing.Bitmap" gifPath local dimension = dotNetClass "System.Drawing.Imaging.FrameDimension" local frameDim = dimension.Time origImg.SelectActiveFrame frameDim 0 local firstFrame = dotNetObject "System.Drawing.Bitmap" origImg.Width origImg.Height local graphicsClass = dotNetClass "System.Drawing.Graphics" local g = graphicsClass.FromImage firstFrame g.DrawImage origImg 0 0 g.Dispose() origImg.Dispose() firstFrame ) fn resetGifToFirstFrame picBox path = ( try ( local oldImage = picBox.Image if oldImage != undefined and not staticImagesDict.ContainsValue oldImage do ( oldImage.Dispose() ) if staticImagesDict.ContainsKey path do ( picBox.Image = staticImagesDict.Get_Item path ) picBox.Invalidate() picBox.Refresh() ) catch(e) ( format "resetGifToFirstFrame error: %\n" e ) ) fn onMouseEnterHandler sender args = ( local path = sender.Tag as string try ( local panel = sender.Parent if panelHoverStates.ContainsKey panel then panelHoverStates.Set_Item panel true panel.Invalidate() if resetTimersDict.ContainsKey sender do ( local t = resetTimersDict.Get_Item sender t.Enabled = false ) if sender.Image != undefined and not staticImagesDict.ContainsValue sender.Image do ( sender.Image.Dispose() ) sender.Image = (dotNetClass "System.Drawing.Image").FromFile path sender.Refresh() ) catch(e) ( format "onMouseEnterHandler error: %\n" e ) ) fn onResetTimerTick sender args = ( local picBox = sender.Tag if picBox != undefined do ( resetGifToFirstFrame picBox picBox.Tag sender.Enabled = false ) ) fn onMouseLeaveHandler sender args = ( local panel = sender.Parent if panelHoverStates.ContainsKey panel then panelHoverStates.Set_Item panel false panel.Invalidate() local timer = undefined if resetTimersDict.ContainsKey sender then timer = resetTimersDict.Get_Item sender else ( timer = dotNetObject "System.Windows.Forms.Timer" timer.Interval = 100 timer.Tag = sender dotNet.addEventHandler timer "Tick" onResetTimerTick resetTimersDict.Add sender timer ) timer.Enabled = false timer.Enabled = true ) fn panelPaintHandler sender args = ( local g = args.Graphics local isHovered = false if panelHoverStates.ContainsKey sender then isHovered = panelHoverStates.Get_Item sender local penColor = if isHovered then borderHighlightColor else borderColor local pen = dotNetObject "System.Drawing.Pen" penColor 3 local rect = sender.ClientRectangle rect.Width -= 1 rect.Height -= 1 g.DrawRectangle pen rect pen.Dispose() ) -- 修复2: 定义全局双击处理函数 fn onDoubleClickHandler sender args = ( local gifPath = sender.Tag as string if gifPath != undefined and ::combinedGIFViewer != undefined do ( ::combinedGIFViewer.cleanupAllResources() gifFileName = gifPath ::combinedGIFViewer.lblFileName.text = filenameFromPath gifPath try ( local netImage = dotNetClass "System.Drawing.Image" local gifImage = netImage.FromFile gifPath imgWidth = gifImage.width imgHeight = gifImage.height ::combinedGIFViewer.adjustUIForImage() local dimension = dotNetClass "System.Drawing.Imaging.FrameDimension" local frameDim = dimension.Time frameCount = gifImage.GetFrameCount frameDim ::combinedGIFViewer.sldFrame.Minimum = 0 ::combinedGIFViewer.sldFrame.Maximum = frameCount - 1 ::combinedGIFViewer.sldFrame.TickFrequency = (frameCount / 10) as integer ::combinedGIFViewer.sldFrame.Enabled = true ::combinedGIFViewer.lblFrameInfo.Text = "帧: 1 / " + frameCount as string ::combinedGIFViewer.setMaxTimeRange frameCount for i = 0 to frameCount-1 do ( gifImage.SelectActiveFrame frameDim i local frameBmp = dotNetObject "System.Drawing.Bitmap" imgWidth imgHeight local g = (dotNetClass "System.Drawing.Graphics").FromImage frameBmp g.DrawImage gifImage 0 0 imgWidth imgHeight g.Dispose() append gifFrames frameBmp ) if gifFrames.count > 0 then ( currentFrame = 1 ::combinedGIFViewer.updateDisplay() registerTimeCallback GIFPlayer_TimeCallback ) else ( messageBox "未能加载任何帧！" title:"错误" ) gifImage.Dispose() ) catch ( messageBox ("加载GIF时出错:\n" + getCurrentException()) title:"错误" ::combinedGIFViewer.cleanupAllResources() ) ) ) rollout combinedGIFViewer "GIF 预览工具" width:920 height:600 ( -- 左侧GIF浏览器控件 label lblFolderPath "当前文件夹：" pos:[10,10] width:500 height:25 dotNetControl flow "FlowLayoutPanel" pos:[10,40] width:500 height:520 button btnSelect "选择GIF文件夹" pos:[10,565] width:140 height:30 font:(dotNetObject "System.Drawing.Font" "Segoe UI" 10) -- 右侧GIF播放器控件 button btnLoad "加载GIF" pos:[520,5] width:380 height:30 label lblFileName "未加载文件" pos:[520,40] width:380 height:20 dotNetControl picBox "System.Windows.Forms.PictureBox" pos:[520,65] width:380 height:280 dotNetControl sldFrame "System.Windows.Forms.TrackBar" pos:[520,350] width:380 height:30 dotNetControl lblFrameInfo "System.Windows.Forms.Label" pos:[520,385] width:380 height:20 fn updateDisplay = ( if gifFrames.count > 0 and currentFrame >= 1 and currentFrame <= gifFrames.count then ( try ( picBox.image = gifFrames[currentFrame] sldFrame.value = currentFrame - 1 -- dotNet滑块从0开始 lblFrameInfo.text = "帧: " + currentFrame as string + " / " + frameCount as string ) catch ( format "显示帧时出错: %\n" (getCurrentException()) ) ) ) fn adjustUIForImage = ( if imgWidth > 0 and imgHeight > 0 do ( -- 计算图片框高度 (保持原始比例) local aspect = imgHeight as float / imgWidth local picBoxWidth = 380 -- 固定宽度 local picBoxHeight = (picBoxWidth * aspect) as integer -- 应用高度限制 local minHeight = 100 local maxHeight = 280 picBoxHeight = amax #(minHeight, picBoxHeight) picBoxHeight = amin #(maxHeight, picBoxHeight) -- 更新控件位置 picBox.height = picBoxHeight sldFrame.pos = [520, 65 + picBoxHeight + 5] lblFrameInfo.pos = [520, 65 + picBoxHeight + 40] ) ) fn setMaxTimeRange frames = ( local startFrame = animationRange.start local endFrame = startFrame + (frames-1) animationRange = interval startFrame endFrame sliderTime = startFrame redrawViews() ) fn restoreOriginalTimeRange = ( animationRange = originalAnimationRange redrawViews() ) fn cleanupAllResources = ( try(unRegisterTimeCallback GIFPlayer_TimeCallback)catch() if (picBox.image != undefined) do (picBox.image = undefined) for bmp in gifFrames do ( try (if classOf bmp == dotNetObject and isProperty bmp #Dispose do bmp.Dispose()) catch () ) gifFrames = #() lblFileName.text = "未加载文件" currentFrame = 1 frameCount = 0 gifFileName = "" imgWidth = 0 imgHeight = 0 -- 重置UI picBox.height = 280 sldFrame.pos = [520,350] lblFrameInfo.pos = [520,385] restoreOriginalTimeRange() gc light:true ) fn loadGIFsFromFolder folderPath = ( flow.Controls.Clear() staticImagesDict.Clear() resetTimersDict.Clear() panelHoverStates.Clear() lblFolderPath.text = "当前文件夹：" + folderPath local files = getFiles (folderPath + "\\*.gif") for f in files do ( local panel = dotNetObject "System.Windows.Forms.Panel" panel.Size = dotNetObject "System.Drawing.Size" 130 130 panel.Margin = dotNetObject "System.Windows.Forms.Padding" 5 panel.BorderStyle = (dotNetClass "System.Windows.Forms.BorderStyle").None panel.BackColor = darkGrayCustom panelHoverStates.Add panel false dotNet.addEventHandler panel "Paint" panelPaintHandler local pb = dotNetObject "System.Windows.Forms.PictureBox" pb.Size = dotNetObject "System.Drawing.Size" 120 120 pb.Location = dotNetObject "System.Drawing.Point" 5 5 pb.SizeMode = pb.SizeMode.Zoom pb.BackColor = darkGrayCustom local staticImg = getFirstFrameBitmap f staticImagesDict.Add f staticImg pb.Image = staticImg pb.Tag = f dotNet.addEventHandler pb "MouseEnter" onMouseEnterHandler dotNet.addEventHandler pb "MouseLeave" onMouseLeaveHandler -- 修复3: 使用全局定义的事件处理函数 dotNet.addEventHandler pb "MouseDoubleClick" onDoubleClickHandler panel.Controls.Add pb flow.Controls.Add panel ) ) -- 左侧按钮事件 on btnSelect pressed do ( local folder = getSavePath caption:"选择GIF文件夹" if folder != undefined do loadGIFsFromFolder folder ) -- 右侧按钮事件 on btnLoad pressed do ( local file = getOpenFileName caption:"选择GIF文件" types:"GIF文件(*.gif)|*.gif" if file != undefined do ( cleanupAllResources() gifFileName = file lblFileName.text = filenameFromPath file try ( local netImage = dotNetClass "System.Drawing.Image" local gifImage = netImage.FromFile file imgWidth = gifImage.width imgHeight = gifImage.height adjustUIForImage() local dimension = dotNetClass "System.Drawing.Imaging.FrameDimension" local frameDim = dimension.Time frameCount = gifImage.GetFrameCount frameDim sldFrame.Minimum = 0 sldFrame.Maximum = frameCount - 1 sldFrame.TickFrequency = (frameCount / 10) as integer sldFrame.Enabled = true lblFrameInfo.Text = "帧: 1 / " + frameCount as string setMaxTimeRange frameCount for i = 0 to frameCount-1 do ( gifImage.SelectActiveFrame frameDim i local frameBmp = dotNetObject "System.Drawing.Bitmap" imgWidth imgHeight local g = (dotNetClass "System.Drawing.Graphics").FromImage frameBmp g.DrawImage gifImage 0 0 imgWidth imgHeight g.Dispose() append gifFrames frameBmp ) if gifFrames.count > 0 then ( currentFrame = 1 updateDisplay() registerTimeCallback GIFPlayer_TimeCallback ) else ( messageBox "未能加载任何帧！" title:"错误" ) gifImage.Dispose() ) catch ( messageBox ("加载GIF时出错:\n" + getCurrentException()) title:"错误" cleanupAllResources() ) ) ) -- dotNet滑块值改变事件处理 on sldFrame ValueChanged args do ( if gifFrames.count > 0 then ( currentFrame = sldFrame.Value + 1 updateDisplay() sliderTime = (animationRange.start + (currentFrame-1)) ) ) on combinedGIFViewer open do ( -- 初始化左侧区域 flow.BackColor = darkGrayCustom flow.AutoScroll = true -- 初始化右侧区域 local borderStyleClass = dotNetClass "System.Windows.Forms.BorderStyle" picBox.BorderStyle = borderStyleClass.FixedSingle local sizeModeClass = dotNetClass "System.Windows.Forms.PictureBoxSizeMode" picBox.SizeMode = sizeModeClass.Zoom local colorClass = dotNetClass "System.Drawing.Color" sldFrame.BackColor = colorClass.FromArgb 50 50 50 sldFrame.ForeColor = colorClass.LightGray sldFrame.AutoSize = false sldFrame.Height = 30 sldFrame.Minimum = 0 sldFrame.Maximum = 99 sldFrame.TickFrequency = 10 sldFrame.SmallChange = 1 sldFrame.LargeChange = 10 sldFrame.Enabled = false lblFrameInfo.Text = "帧: 0 / 0" lblFrameInfo.TextAlign = lblFrameInfo.TextAlign.MiddleCenter lblFrameInfo.ForeColor = colorClass.White lblFrameInfo.BackColor = colorClass.FromArgb 40 40 40 originalAnimationRange = animationRange registerTimeCallback GIFPlayer_TimeCallback ) on combinedGIFViewer close do (cleanupAllResources()) ) createDialog combinedGIFViewer ``` ### 关键修复点说明： 1. **全局事件处理函数**： - 将`onDoubleClickHandler`移出rollout作用域，定义为全局函数 - 使用`::combinedGIFViewer`访问rollout控件和方法 2. **作用域访问修正**： - 使用`::combinedGIFViewer.cleanupAllResources()`访问rollout方法 - 通过`::combinedGIFViewer.lblFileName.text`访问控件属性 3. **函数定义顺序**： - 确保所有事件处理函数在rollout创建前完成定义 - 将关键函数放在rollout外部定义 4. **空引用保护**： - 添加`if ::combinedGIFViewer != undefined`检查 - 增强异常处理逻辑 ### 功能验证： 1. 左侧文件夹浏览功能正常 2. 双击图片自动加载到右侧预览区 3. 右侧预览窗口根据GIF尺寸自动调整高度 4. 时间轴滑块控制播放进度 5. 手动加载功能正常
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

寂寞烟火~

你的鼓励是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值