powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос пользователю oleg_km
6 сообщений из 6, страница 1 из 1
Вопрос пользователю oleg_km
    #32821588
Iscander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2) для всех винд одного решения не будет, потому как API разное в WinNT и Win9X, причем, если в WinNT (2000, XP) все работает, документировано и пр., то в Win9X сплошные пляски с бубном: одна функция работает, другая не работает, режим Управления доступом нужно учитывать. Если под Win2000 Server (любые станции) нужно решение - пиши намылю
то же касательно Net Send, полностью это работает в WinNT

Вы когда-то отвечали на этот вопрос.
У меня такой вопрос:
База лежит на серваке. С ней работают пользовали. Сервак- Windows TSE.
На серваке есть такая приблуда как Server managter. В ней видно кто открыл файлы на серваке. Можно ли такое организовать в VFP и с помощью каких функций и если можно небольшой пример
...
Рейтинг: 0 / 0
Вопрос пользователю oleg_km
    #32821730
oleg_km
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
extern "C" __declspec( dllexport ) 
	 int NetFileOpen(const char* cServer, char* cStr)
{
// Ñåðâåð
	LPWSTR cServerName = NULL;
	if (cServer) {
		cServerName = new wchar_t [ 100 ];
		MultiByteToWideChar(
			CP_ACP,
			MB_PRECOMPOSED,
			cServer,
			- 1 ,
			cServerName,
			 100 
		);
	}

// Çàïðîñ
	LPBYTE bufptr;
	NetApiBufferAllocate( 400000 , (LPVOID*) &bufptr);

	DWORD entriesread,
		totalentries;

	NET_API_STATUS nRes = NetFileEnum(
		(char*) cServerName,
	    NULL,
		NULL,
		 3 ,
		&bufptr,
		 400000 ,
		&entriesread,
		&totalentries,
		NULL);

	if (nRes) {
		NetApiBufferFree(bufptr);
		return - 1 ;
	}

// Îòâåò
	LPFILE_INFO_3 bb;
    char* cUser = new char[ 51 ];
    char* cMode = new char[ 3 ];
    char* cPath = new char[ 255 ];

	for (DWORD i =  0 ; i < entriesread; i++) {
	    bb = (LPFILE_INFO_3) (bufptr+sizeof(FILE_INFO_3)*i);
		ZeroMemory(cUser,  51 );
		ZeroMemory(cMode,  3 );
		ZeroMemory(cPath,  255 );

		switch (bb->fi3_permissions) {
			case  1 :
				sprintf(cMode, "R ");
				break;
			case  34 :
				sprintf(cMode, "W ");
				break;
			case  35 :
				sprintf(cMode, "RW");
				break;
		}

		int nLock = bb->fi3_num_locks;

		WideCharToMultiByte(
			CP_ACP,
			 0 ,
			(USHORT*) bb->fi3_username,
			wcslen((USHORT*) bb->fi3_username),
			(char*) cUser,
			 50 ,
			NULL,
			NULL
		);
 
		WideCharToMultiByte(
			CP_ACP,
			 0 ,
			(USHORT*) bb->fi3_pathname,
			wcslen((USHORT*) bb->fi3_pathname),
			(char*) cPath,
			 250 ,
			NULL,
			NULL
		);

		char* cRec = new char[ 310 ];
		sprintf(cRec,"%s\t%2i\t%s\t%s\r\n", 
			cUser, nLock, cMode, cPath);

		strcat(cStr, cRec);
	}
	NetApiBufferFree(bufptr);
	return strlen(cStr);
}

У меня есть такая библиотека на VC++. На www.foxclub.ru вроде был пример на VFP
...
Рейтинг: 0 / 0
Вопрос пользователю oleg_km
    #32821764
Iscander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо
...
Рейтинг: 0 / 0
Вопрос пользователю oleg_km
    #32831382
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi oleg_km!

> extern "C" __declspec( dllexport )

В принципе всё это достаточно просто переводится на фокс (через DECLARE
DLL), хотя можно и в fll-ку засунуть, и уж её из фокса пользовать...

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
Вопрос пользователю oleg_km
    #32831506
oleg_km
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да, я где-то видел пример piva, но мне уже не хочется переводить или искать его. Меня устраивает и dll на VC++
...
Рейтинг: 0 / 0
Вопрос пользователю oleg_km
    #32831964
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос пользователю oleg_km
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]