Как сделать так, чтобы приложение видело сеть (локалку)

← →
GIL (2002-08-23 04:52) [0]

Как сделать так, чтобы приложение видело сеть (локалку), при этом надо потом записывать адреса выбранных файлов, и потом проверять их на доступность и если доступны, то выполнять.

← →
dnsokol (2002-08-23 10:14) [1]

Не понял вопроса. нужна сеть - Socets компонентов полно и в стандартном наботе D6. Что конкретно нужно запускать и что нужно видеть в сети, компы? шары?

← →
GIL (2002-08-24 05:39) [2]

Лазить надо по компам, как по своему, как с помощью закладки Win3.1, а видеть надо и компы, и файлы определенного формата, и записывать адреса выбранных файлов так, чтобы можно было к ним обратиться. И лучше на D5.

← →
Dimich1978 (2002-08-26 11:51) [3]

Начни с этих операторов....дальше поймешь что к чему.
Для примера кусок кода:
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:="";

Как сделать так, чтобы приложение видело сеть (локалку) Найти похожие ветки