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