Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

NetFileEnum в 9x 


cypher   (2002-02-17 17:01) [0]

Прототип NetFileEnum для Win 9x такой

extern API_FUNCTION
NetFileEnum(
const char FAR * pszServer,
const char FAR * pszBasePath,
short sLevel,
char FAR * pbBuffer,
unsigned short cbBuffer,
unsigned short FAR * pcEntriesRead,
unsigned short FAR * pcTotalAvail
);

Если у меня второй параметр (pszBasePath) равен NULL, то все работает как нада. А когда подставляю какое-нить значение, то pcEntriesRead всегда равен 0. Подскажите, где ошибка?

var
FNetShare : PAnsiString;
begin
....
FNetShare := PAnsiString("C:\SHARE");
NetFileEnum95(ServerNameA, PChar(FNetShare), 50, @FileInfo, Sizeof(FileInfo), EntriesRead, TotalAvail));
if EntriesRead>0 then begin
.....
end;

Может я строку передаю неправильно??? =)



cypher   (2002-02-17 17:02) [1]

ServerNameA всегда у меня = NIL




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.032 c
1-94382           Yuraz                 2002-04-15 15:26  2002.04.29  
2 вопроса, 1) как проверить на компе есть ли ADO библ.


1-94379           inko                  2002-04-13 15:15  2002.04.29  
Почему не работает CheckBox2 ?


14-94560          Derr                  2002-03-21 10:23  2002.04.29  
Куда ушли авторы сайта ?


1-94357           NS                    2002-04-17 11:57  2002.04.29  
Нужно в RUN-Time создавать экземпляры некоторых объектов (для при


3-94299           Viktor1               2002-04-07 00:28  2002.04.29  
Как сделать вх. номер?