name "Make Image Html" mode 1 menu "Make Html" label "Make Html with Image" declare n:nFname declare b:bStatus declare s:sMsg,sSwitch,sPath,sErrorDesc,sSdate,sStime,sHH,sMN,sSS declare i:iErrorCode,iDigit0,iDigit1,iDigit2 declare f:fDispf declare u:uFileId,uCounter,uFilecount,uFindex,uLength declare u:uMod,uSelect,uCol,uRow,uImcn,uCmpn,uDate,uTime,uZpos declare u:uFdst,uFmod,uFmtd,uFnum,uImht,uImwd,uOrtn,uShut,uSmod declare u:uYY,uMM,uDD,uHH,uMN,uSS declare u:uImht_tn,uImwd_tn declare s:sProductName iErrorCode = 0 SetOption(1,"HTML with Data",1) SetOption(2,"HTML Photo only",0) GetOption(uSelect) sSwitch="off" if uSelect==1 sSwitch="on" end SetOption(1,"2 : Cols Display",0) SetOption(2,"3 : Cols Display",1) GetOption(uSelect) uCol=2 if uSelect==1 uCol=1 end Alert("Make Html File. Ready?") GetFileCount(uFilecount) if uFilecount<=0 goto Exit end Display(uFilecount," Files") Wait(200) DisplayClear() # Check for valid camera GetProductInfo ("ptid", sProductName) #----Kodak DC290 if sProductName == "KODAK DC290 Zoom Digital Camera" EraseFile("/DC290_01/","PIC.HTM") FileOpen(2,"/DC290_01/PIC.HTM",1,uFileId) goto Checkend end #----Kodak DC265 if sProductName == "KODAK DC265 ZOOM DIGITAL CAMERA" EraseFile("/DC265_01/","PIC.HTM") FileOpen(2,"/DC265_01/PIC.HTM",1,uFileId) goto Checkend end #----Kodak DC260 if sProductName == "KODAK DIGITAL SCIENCE DC260" EraseFile("/DC260_01/","PIC.HTM") FileOpen(2,"/DC260_01/PIC.HTM",1,uFileId) goto Checkend end #----Kodak DC220 if sProductName == "KODAK DIGITAL SCIENCE DC220" EraseFile("/DC220_01/","PIC.HTM") FileOpen(2,"/DC220_01/PIC.HTM",1,uFileId) goto Checkend end #----Minolta Dimage EX 1500 if sProductName == "Dimage EX" EraseFile("/EX15_01/","PIC.HTM") FileOpen(2,"/EX15_01/PIC.HTM",1,uFileId) goto Checkend end #----HP PhotoSmart C500 if sProductName == "HP PhotoSmart C500" EraseFile("/HP500_01/","PIC.HTM") FileOpen(2,"/HP500_01/PIC.HTM",1,uFileId) goto Checkend end #----HP PhotoSmart C618 if sProductName == "HP PhotoSmart C618" EraseFile("/CAMERA01/","PIC.HTM") FileOpen(2,"/CAMERA01/PIC.HTM",1,uFileId) goto Checkend end #----Pentax EI-200 if sProductName == "PENTAX EI-200" EraseFile("/CAMERA01/","PIC.HTM") FileOpen(2,"/CAMERA01/PIC.HTM",1,uFileId) goto Checkend end #----Pentax EI-2000 if sProductName == "PENTAX EI-2000" EraseFile("/CAMERA01/","PIC.HTM") FileOpen(2,"/CAMERA01/PIC.HTM",1,uFileId) goto Checkend end Alert("Unknown camera") goto Exit Checkend: GetError(sSdate,sStime,iErrorCode,sErrorDesc) Display("File ID ",uFileId) Wait(100) DisplayClear() if iErrorCode!=0 goto ErrorProc end uFindex=0 uCounter=0 if uCounter==0 WriteLine(uFileId,"") WriteLine(uFileId,"") WriteLine(uFileId,"Pictures") WriteLine(uFileId,"") WriteLine(uFileId,"") WriteLine(uFileId,"
") WriteLine(uFileId,"") end Loop: if uFindex>=uFilecount goto EndScript end GetFileInfo(uFindex,sPath,nFname,uLength,bStatus) Display(sPath,nFname) GetFileTag(sPath,nFname,"imcn",uImcn) if uImcn==0x46505820 goto LoopEnd end uRow=uCol+1 uMod=uCounter/uRow uMod=uCounter-uMod*uRow if uMod==0 WriteLine(uFileId,"") end GetFileTag(sPath,nFname,"imht",uImht) GetFileTag(sPath,nFname,"imwd",uImwd) uImwd_tn = uImwd / 5 uImht_tn = uImht / 5 GetFileTag(sPath,nFname,"ortn",uOrtn) if uOrtn==1 WriteLine(uFileId,"") if uMod==uCol WriteLine(uFileId,"") end uCounter=uCounter+1 Display("Wrote to HTML") Wait(20) LoopEnd: DisplayClear() uFindex=uFindex+1 goto Loop EndScript: if uMod==0 goto EndHtml end if uMod<3 WriteLine(uFileId,"") uMod=uMod+1 goto EndScript end EndHtml: if uFileId!=0 WriteLine(uFileId,"

") end if uOrtn!=1 WriteLine(uFileId,"
") end WriteLine(uFileId,"File Name : ",nFname,"
") if sSwitch=="off" goto DispfEnd end GetFileTag(sPath,nFname,"cmpn",uCmpn) GetFileTag(sPath,nFname,"date",uDate) GetFileTag(sPath,nFname,"time",uTime) GetFileTag(sPath,nFname,"fdst",uFdst) GetFileTag(sPath,nFname,"fmod",uFmod) GetFileTag(sPath,nFname,"fmtd",uFmtd) GetFileTag(sPath,nFname,"fnum",uFnum) GetFileTag(sPath,nFname,"shut",uShut) GetFileTag(sPath,nFname,"smod",uSmod) GetFileTag(sPath,nFname,"zpos",uZpos) goto GetDate WriteDate: WriteLine(uFileId,"Date (yy/mm/dd) : ",uYY,"/",uMM,"/",uDD,"
") goto GetTime WriteTime: WriteLine(uFileId,"Time (hh/mm/ss) : ",sHH,uHH,":",sMN,uMN,":",sSS,uSS,"
") sMsg="Best" if uCmpn==2 sMsg="Good" end if uCmpn==3 sMsg="Better" end WriteLine(uFileId,"Compress Level : ",sMsg,"
") WriteLine(uFileId,"Image Size : ",uImht,"x",uImwd,"
") sMsg="Manual" if uFmod==1 sMsg="Auto" end WriteLine(uFileId,"Forcus Mode : ",sMsg,"
") sMsg="Single Spot" if uFmtd==1 sMsg="Multi Spot" end WriteLine(uFileId,"Forcus Method : ",sMsg,"
") sMsg="Fill" if uSmod==1 sMsg="Off" end if uSmod==2 sMsg="Auto" end WriteLine(uFileId,"Strobo Mode : ",sMsg,"
") uFnum=uFnum/100 if uFnum==5 WriteLine(uFileId,"Apature : F5.6","
") end if uFnum!=5 WriteLine(uFileId,"Apature : F",uFnum,"
") end if uShut<1000000 uShut=1000000/uShut WriteLine(uFileId,"Shutter Speed : 1/",uShut,"sec","
") end if uShut>=1000000 uShut=uShut/1000000 WriteLine(uFileId,"Shutter Speed : ",uShut,"sec","
") end uZpos=uZpos*384/1000 WriteLine(uFileId,"Zoom Position : ",uZpos,"mm","
") fDispf=uFdst fDispf=fDispf/100 goto Dispf DispfEnd: WriteLine(uFileId,"
") WriteLine(uFileId,"
") WriteLine(uFileId,"") WriteLine(uFileId,"") FileClose(uFileId) Display("Finished !") Wait(1000) end ErrorProc: if iErrorCode!=0 DisplayClear() Display("Error: ",iErrorCode) Wait(2000) end Exit: exitscript Dispf: fDispf=fDispf+0.0001 iDigit0=fDispf fDispf=fDispf-iDigit0 fDispf=fDispf*10 iDigit1=fDispf fDispf=fDispf-iDigit1 fDispf=fDispf*10 iDigit2=fDispf if iDigit2==0 if iDigit1==0 WriteLine(uFileId,"Distance : ",iDigit0,".0","m","
") goto DispfEnd end WriteLine(uFileId,"Distance : ",iDigit0,".",iDigit1,"m","
") goto DispfEnd end WriteLine(uFileId,"Distance : ",iDigit0,".",iDigit1,iDigit2,"m","
") goto DispfEnd GetDate: uYY=uDate&0xff&0xf0/16*10+uDate&0xff&0xf uMM=uDate&0xff0000/0x10000 uMM=uMM&0xf0/16*10+uMM&0xf uDD=uDate&0xff00/0x100 uDD=uDD&0xf0/16*10+uDD&0xf goto WriteDate GetTime: uHH=uTime&0xff0000/0x10000 uHH=uHH&0xf0/16*10+uHH&0xf uMN=uTime&0xff00/0x100 uMN=uMN&0xf0/16*10+uMN&0xf uSS=uTime&0xff&0xf0/16*10+uTime&0xff&0xf sHH="" if uHH<10 sHH="0" end sMN="" if uMN<10 sMN="0" end sSS="" if uSS<10 sSS="0" end goto WriteTime