- 博客(3)
- 收藏
- 关注
原创 一个支持断点续传的半成品url下载类
unit UFileClient; interface uses Classes; type TGetFileThread = class; TGetFileTask=class; TGetFileEvent=procedure(Sender:TGetFileThread;FileName:string) of object; TGetErrorEvent=procedu
2012-06-25 15:56:02 545
原创 根据文件头来判断图片的类型
unit UPictureCheck; interface type TPictureType=(ptGIF,ptJPEG,ptPNG,ptBMP,ptOther); function CheckPictureType(fileName:string): TPictureType; implementation uses sysutils,classes; var PngHeader:
2012-06-19 07:54:11 860
原创 一个可能是线程安全的日志记录类
unit ULog; interface uses Classes; type TLogThread = class(TThread) private { Private declarations } private FLogFile:string; private FTextList:TThreadList; procedure DoWriteL
2012-06-18 07:58:39 450
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人