很晕,这段代码2k下是没问题的,但是到了xp下,一定要去掉FILE_FLAG_NO_BUFFERING才行,
请高手指教.
FImgFile := CreateFile(
'd:\test.img',
GENERIC_READ
or GENERIC_WRITE,
0,
Nil,
OPEN_ALWAYS,
FILE_FLAG_NO_BUFFERING
or FILE_FLAG_RANDOM_ACCESS
or FILE_FLAG_WRITE_THROUGH
,
0
);
请高手指教.
FImgFile := CreateFile(
'd:\test.img',
GENERIC_READ
or GENERIC_WRITE,
0,
Nil,
OPEN_ALWAYS,
FILE_FLAG_NO_BUFFERING
or FILE_FLAG_RANDOM_ACCESS
or FILE_FLAG_WRITE_THROUGH
,
0
);
解决方案 »
- delphi关于标准表达式中数据类型不匹配的问题
- 麻烦高手!!!求教,会的高手请帮帮忙,希望能说清楚,不要只是说要怎么做,而帮我写出来,谢谢了!!!
- 向DLL传参 和 释放 pchar
- 如何用table修改字段值(用语句对字段赋值)
- ServerSocket向ClientSocket数据的问题?
- 寻找delphi6第三方控件 ,在哪里有下.
- 高手近来指导迷津!!!!!!!!!!!
- 有谁用过ValueListEditor控件
- 大侠们好!!!为什么我用DBEdit输入中文可是在DBGrid中显示的是“#”??
- 怎样知道dbgrid选择了那一行?
- 难呀,请高手进来看看!!
- 江湖救急:Delphi严重Bug,TADOConnection在线程内创建,TEdit控件不能切换输入法!
比如:
if not readfile(FImgFile,lBuffer,512,lBytesReturned,0) then
ShowMessage('readfile errormsg:' +SysErrorMessage(GetLastError) );