现有某一个动态连接库,说明如下:那位好心人教我下用delphi如何调用,谢了
语法: ReadDirDataLen(char *strPath, long *Len);
ReadDir(char *DirItem, int *nFileItem); 参数: char *strPath --> 要查询的目录
long *Len --> 此参数用来记录回传资料的长度
char *DirItem --> 此参数用来记录回传的资料
int *nFileItem --> 此参数用来记录回传的目录或档案数量 传回值: 0 --> OK
1 --> FALSE 说明: 这两个函数需搭配使用,查询时先呼叫 Req_DirDataLen() 得到长度后
再配存储体给 DirItem 之后再呼叫 Req_Dir(),回传资料的结构如下表
struct DIRINFO{
char assFName[8]; // 档案或目录名称
char assExtend[3]; // 附档名
char usAttrib; // 档案属性
char usTime[2]; // 档案建立时间
char usDate[2]; // 档案建立日期
unsigned short umStart; // Reverse
unsigned long ulSize; // 档案大小
char endChar[2]; // 分隔字元(\x0d\x0a)
}_DIRINFO; 范例: long Len;
char *DirItem;
int nItem; ReadDirDataLen("C:\\", &Len);
DirItem = malloc(Len);
ReadDir(DirItem, &nItem);
解决方案 »
- 带分隔符的字符串读取 Pchar 问题
- DELPHI高手请进,TLISTVIEW ONCUSTDRAWITEM的消息(在线等,答完即结帖)
- ACProtect注册版和未注册版有何不同?安全能力如何?那儿有注册版呢?
- 问一个如何安装组件的问题
- 到底是DELPHI7 有问题还是SQL SERVER2000有问题???
- 点击Tool->Web App Debugger调试出错!!!
- 关于类型转换
- 数据库小问题
- 请教:不连接其它数据库,我怎么在程序中自定义一个数据表 datatable,以存储二维数据?,且能绑定到dbgrid
- 这样的菜单效果,Delphi能做吗??
- delphi 用image 画图
- active 控件 问题,请大家帮忙,谢谢
DIRINFO=record
assFName : array [0..7] of char;
assExtend : array[0..2] of char;
usAttrib : char;
usTime : array [0..1] of char;
usDate : array [0..1] of char;
umStart : WORD;
ulSize : DWORD;
endChar : array [0..1] of char;
end;
function ReadDirDataLen(strPath : PChar;var Len : LongInt) : Word;cdecl;external 'MYLIB.DLL';
function ReadDir(DirItem : PChar;var nFileItem : Integer) : DIRINFO;cdecl;external 'MYLIB.DLL';
var
Len : LongInt;
DirItem : PChar;
nItem : Integer;
_DIRINFO : DIRINFO;
begin
ReadDirDataLen('C:\',Len);
GetMem(DirItem,Len);
_DIRINFO := ReadDir(DirItem,nItem);
FreeMem(DirItem);
end;
function ReadDirDataLen(strPath : PChar;var Len : ^LongInt) : Word;cdecl;external 'MYLIB.DLL';
function ReadDir(DirItem : PChar;var nFileItem : ^Integer) : DIRINFO;cdecl;external 'MYLIB.DLL';