Changeset 560 for trunk/ab5.0/ablib/src/Classes/System/IO/FileStream.ab
- Timestamp:
- Jul 21, 2008, 2:34:12 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/System/IO/FileStream.ab
r552 r560 31 31 offset As QWord 'オーバーラップドIO用 32 32 33 Public 34 /* コンストラクタ.NETと同じように実装は難しい、一先ず動くものを実装したが変更が必要だと思う */ 35 Sub FileStream(path As String, mode As FileMode, access As FileAccess, share As FileShare, options As FileOptions) 33 Sub _Initialize(path As String, mode As FileMode, access As FileAccess, share As FileShare, options As FileOptions) 36 34 If ActiveBasic.IsNothing(path) Then 37 35 Throw New ArgumentNullException("path") … … 72 70 End If 73 71 End Sub 72 73 Public 74 /* コンストラクタ.NETと同じように実装は難しい、一先ず動くものを実装したが変更が必要だと思う */ 75 Sub FileStream(path As String, mode As FileMode, access As FileAccess, share As FileShare, options As FileOptions) 76 _Initialize( path, mode, access, share, options ) 77 End Sub 74 78 Sub FileStream(path As String, mode As FileMode, access As FileAccess, share As FileShare) 75 This.FileStream(path,mode,access,share,FileOptions.None)79 _Initialize(path,mode,access,share,FileOptions.None) 76 80 End Sub 77 81 Sub FileStream(path As String, mode As FileMode, access As FileAccess) 78 This.FileStream(path,mode,access,FileShare.None,FileOptions.None)82 _Initialize(path,mode,access,FileShare.None,FileOptions.None) 79 83 End Sub 80 84 Sub FileStream(path As String, mode As FileMode) … … 94 98 access=FileAccess.Write 95 99 End Select 96 This.FileStream(path,mode,access,FileShare.None,FileOptions.None)100 _Initialize(path,mode,access,FileShare.None,FileOptions.None) 97 101 End Sub 98 102 /*
Note:
See TracChangeset
for help on using the changeset viewer.