Mastering PowerBuilder

Opening from the nested storage

The following example makes use of three OLEStorage objects to open objects at third level.

OLEStorage lOLEStorage1, lOLEStorage2, lOLEStorage3 Integer lResult lOLEStorage1 = Create OLEStorage lOLEStorage2 = Create OLEStorage lOLEStorage3 = Create OLEStorage lResult = lOLEStorage1.Open( "c:\workdir\1.ole" ) If lResult <> 0 Then goto CompleteExecution lResult = lOLEStorage2.Open( "Months", StgReadWrite!, & StgExclusive!, lOLEStorage1 ) If lResult <> 0 Then goto CompleteExecution lResult = lOLEStorage3.Open( "Dates", StgReadWrite!, & StgExclusive!, lOLEStorage2 ) If lResult <> 0 Then goto CompleteExecution lResult = ole_control1.Open( lOLEStorage3, "3.doc" ) If lResult <> 0 Then goto CompleteExecution Return 0 CompleteExecution: lOLEStorage1.Close() lOLEStorage2.Close() lOLEStorage3.Close() Destroy lOLEStorage1 Destroy lOLEStorage2 Destroy lOLEStorage3 Return 0

Home	Previous Lesson: Nested Storages Next Lesson: Component based Software