本来想着TIOJPEGColorspace中就有ioJPEG_CMYK类型的定义,通过TImageEnIO的ParamsFromFile方法读取后就可以知道是不是CMYK调色板了,写了下面代码: procedure TForm1.FormCreate(Sender: TObject); begin ImageEnIO1.ParamsFromFile('C:\temp\1.jpg'); ShowMe
阅读全文下面今天新做的一个获取文件长度的函数。 function onGetFileSize(arg_file:String):Int64; var fileHandle:Integer; begin fileHandle := FileOpen(arg_file,0); Result := getFileSize(fileHandle,nil); FileClose(fileHandle); end;
阅读全文通过前两张(1、2)的介绍,已经大致了解了整个转换的流程,接下来我们开始实际编码。
阅读全文转换过程的逻辑 1、 先打开WORD文件 2、 初始化SQLITE数据库 3、 创建存储WORD数据需要的表 4、 循环处理:读一条记录并保存到SQLITE数据库中 5、 关闭先前打开的WORD文件 6、 关闭SQLITE数据库
阅读全文