Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать так, чтобы приложение видело сеть (локалку) [D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]

GIL © (2002-08-23 04:52:00)
Как сделать так, чтобы приложение видело сеть (локалку), при этом надо потом записывать адреса выбранных файлов, и потом проверять их на доступность и если доступны, то выполнять.

Dimich1978 (2002-08-26 11:51:00) [1]
Начни с этих операторов....дальше поймешь что к чему.
Для примера кусок кода:
var hEnum : THandle;
Count,BufSize, Usage: DWORD;
NR,Buf: PNetResourceA;
R: Integer;
CurrentNode: TTreeNode;
begin
R:=WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,0{RESOURCEUSAGE_CONTAINER},NetNode,hEnum);
if R <> NO_ERROR then exit;

BufSize:=InitialSize; GetMem(Buf,BufSize);
try
while True do
begin
Count:=$FFFFFFFF; // I wish to read ALL items
R:=WNetEnumResource(hEnum,Count, Buf, BufSize);

if R = ERROR_MORE_DATA then // Oops ! The InitialSize is too small !
begin
Count:=$FFFFFFFF; // I wish to read ALL items
FreeMem(Buf); GetMem(Buf,BufSize);
R:=WNetEnumResource(hEnum,Count, Buf, BufSize);
end;

if R = ERROR_NO_MORE_ITEMS then Break;
if R <> NO_ERROR then Abort;
NR:=Buf;
while Count > 0 do
begin
CurrentNode:=TreeNode;
if NR.lpRemoteName <> nil then
ChildNode:=StrPas(NR.lpRemoteName)
else
ChildNode:="";

GIL (2002-08-24 05:39:00) [2]
Лазить надо по компам, как по своему, как с помощью закладки Win3.1, а видеть надо и компы, и файлы определенного формата, и записывать адреса выбранных файлов так, чтобы можно было к ним обратиться. И лучше на D5.

dnsokol (2002-08-23 10:14:00) [3]
Не понял вопроса. нужна сеть - Socets компонентов полно и в стандартном наботе D6. Что конкретно нужно запускать и что нужно видеть в сети, компы? шары?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »