Using MODI On Access

R

Roy Goldhammer

Hello there

I've started using MODI to merge two tifs to one tif.

In many cases it works fine exept some cases

It brigs me errors like

Error -2147024882: Not enouth storage is available to complete this
operation

and Error -959967217: Object must be initialized or opened

My code to merge files is quite simple:

Dim tifSrc As Object
Dim tifDst As Object
Dim Img As Object

Set tifSrc = CreateObject("MODI.Document")
Set tifDst = CreateObject("MODI.Document")

tifSrc.Create tif1
tifDst.Create tif2

With tifSrc
For Each Img In tifDst.Images
.Images.Add Img, Nothing
Next
If Len(Dir("Temp.tif")) Then Kill "Temp.tif"
.SaveAs "Temp.tif"
.Close
End With

tifDst.Close
Kill tif1
Name "Temp.tif" As tif1

what can cause these problems?

--
øåòé âåìãäîø
òúéã äðãñú úåëðä
èì' 03-5611606
ôìà' 050-7709399
àéîééì: [email protected]
 
Top