长话短说,我离熟练的程序员很远,事实上,到目前为止,我最复杂的程序是纯ASCII字符串操作,简单数学和数组搜索/排序,无论是在Free Pascal还是以后,Delphi 7和Java.这是几年前,当我在高中教师(普通帕斯卡)学习编程时.后来我继续成为一名程序员(与D7和Java,以及一些C++会面),但由于个人原因,我已经退出了编程研究,从那以后,我没有编写一行代码.
嗯,对不起长时间的介绍,所以...最近我决定重新编程作为我的爱好,主要是因为我没有找到一个合适的程序来完成我想要完成的一些任务.尽管我对显式参数,指针,对象,类,构造函数和线程这些相当基本的东西有了微弱的理解,但是在编程手册的帮助下,Delphi帮助文件和互联网,我设法在Delphi 7中编写了一个简单的程序.可以使用外部库在给定目录中加载和显示某些图像文件格式,从而可以在它们之间任意切换(使用GUI),并在文本文件中记录一些信息(主要用于调试目的).
但是,当我尝试使图像加载并显示函数线程时,我在当前版本的代码中遇到了问题.首先,为了更好地理解,我将解释我的程序的逻辑.
首先,在主窗体的FormCreate事件中,程序在当前目录(exe所在的位置)中查找支持的图像文件.如果没有图像文件,则将当前目录设置为较高级别的目录(使用标准Windows文件系统符号"..")并检查图像.支持的图像文件由文件扩展名决定.无论如何,这个资源管理器函数在动态数组中存储找到的图像文件名和文件类型标识符(这是一个字节).然后,使用此数组作为参考,第一个支持的图像文件由正确的库加载并显示在表单中.GUI具有按钮和组合框以在图像之间切换,每个控件的OnClick或OnSelect(组合框)事件设置变量关于所谓的当前图像文件并调用图像加载器和使用参考阵列的显示器功能.
问题是某些图像太大以至于加载需要很长时间,因此GUI在图像完全加载和显示之前无法响应.我试图通过将每个图像加载器函数初始化为线程来使该程序成为线程.虽然GUI现在响应更快,但该程序肯定存在两个新错误.
第一个是程序在更改图像时有时会随机崩溃,出现的消息要么是指" JPEG错误#58 "(据说在Delphi的内置jpeg库中意味着"无效的文件结构")," EAccessViolation"异常," EOSError"异常(包括" 系统错误,代码5 ")," 未知软件异常 "," 运行时错误216 "以及有关内存位置和失败读取操作的错误消息.在使用线程之前,没有出现这些错误消息,但我当然希望(并且必须)在程序中使用线程.
另一个小错误是,当快速连续点击界面按钮时,似乎所有加载和显示都会发生,尽管是以一种迟滞然后快速的方式.我真的不知道如何"杀死"一个线程并"再次"启动它来加载现在当前的文件而不是它试图加载几百毫秒前的过时文件.
我以下面的方式开始一个线程:
LoaderThread := CreateThread(nil, 0, Addr(LoadPicture), nil, 0, LoaderThreadID);
CloseHandle(LoaderThread);
我在主窗体的FormCreate事件中使用了两次(尽管其中只有一个在任何开始时执行),并且在GUI控件中使用OnClick或OnSelect事件来促进控件的所需功能(例如跳到最后一个图像) .
有什么建议？先感谢您!:)
更新:这是我的一些(好吧,几乎所有)源代码:
procedure TMainForm.FormCreate(Sender: TObject);
begin
MainForm.DoubleBuffered := true;
MainJPEG := TJPEGImage.Create;
MainJPEG.ProgressiveDisplay := true;
MainJPEG.Smoothing := true;
MainJPEG.Performance := jpBestQuality;
MainPNG := TPNGObject.Create;
MainGIF := TGIFImage.Create;
AssignFile(Log, '_NyanLog.txt');
CurrentDir := GetCurrentDir;
ExploreCurrentDir;
if CurrentDirHasImages = false then
begin
SetCurrentDir('..');
CurrentDir := GetCurrentDir;
ExploreCurrentDir;
end;
if …