关于StgCreateDocFile和StgOpenStorage函数(50分)

E

Eddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #1

我在调用StgCreateDocFile('SService',STGM_CREATE+STGM_READWRITE+STGM_DIRECT+STGM_SHARE_DENY_NONE,0,isRoot)
和StgOpenStorage('SService',nil,STGM_WRITE+STGM_SHARE_DENY_WRITE,nil,0,isRoot)
函数总会返回“无效标志错误”，这是为何？

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #2

把算术操作的参数换成位操作试试：
STGM_CREATE+STGM_READWRITE+STGM_DIRECT+STGM_SHARE_DENY_NONE
>>
STGM_CREATE or STGM_READWRITE or STGM_DIRECT or STGM_SHARE_DENY_NONE

 

E

Eddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #3

我试了一试，没用。

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #4

第一参应为PWideChar，再试：

1)
FileName := 'SService';
StgCreateDocFile(PWideChar(WideString(Filename)), ....

2)
var
PSize : Integer;
P: PWideChar;
begin
P := StrToUniCode(FileName, PSize);
StgCreateDocFile(P,...
...

 

E

Eddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #5

好象仍是没用，你能不能直接举一个经测试正确的例子，谢谢！

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #6

unit OleCtnrs;

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #7

深度历险：STGSTORE.ZIP
示范如何以结构式储存 ( Structured Storage ) 来储存 TTreeview 及 TListview 的内容 ( 3.0 版 ) ，作者avid Spies 。

 

E

Eddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-22

• #8

接受答案了.