Узнать какие компы в сети

[Dj_smart]

Доброго времени суток!
Я пишу чтото типа чата, но он не обычный.
Я не использую server socket и client socket это для меня слишком непонятно. Идея такова:
Сервер создает на своем диске файлик с скажем именем 'Chat.txt' и скидывает туда все свои реплики через append
Тоже самое делают и клиенты, скидывают в тот же комп
работает таймер и он ловит, не одбавилась ли строчечка.. и добавляет скажем в memo1
Адрес - \\Имя компа\с\директория\Chat.txt
всё норм работает.
А вот вопросик: как отсканировать список компов в сети(в смысле их имён) и записать в какой-то массив срочный?
было бы полезно, а то задрался вводить каждый раз
Заранее спасибо.
ПыСы: Кстати а как смайлы реализовать? Я искал, нифега ни нашёл

[alexBlack]

Можно через WNetEnumResource. Примеров в сети множество.

Но, если рассмотреть твою схему: все сбрасывают сообщения в один файл, то заведи еще один файл и пусть все запущенные (твои) программы сбрасывают туда свое имя и удаляют его при выходе. Или еще проще - просто создают файл имя которого = имени пользователя. Сканируешь имена файлов и получаешь имена пользователей.

[Dj_smart]

Я так и сделал
А по подробнее можно?

[alexBlack]

Какую часть подробнее ? Если сделал, значит работает. Так в чем вопрос ?

[Dj_smart]

Зделал чтобы кто присоединится создавал файлик - имя - имя клиента, а содержимое - статус (онлайн,занят...).
А удалять чтото не получается ни deletefile ни erase не помогают, файл как был, так и остался.
По подробнее - код поиска компов.
Если выйти на несуествуюший комп то будет завис.
Прошу выложить код

[alexBlack]

Сообщение от Dj_smart

Зделал чтобы кто присоединится создавал файлик - имя - имя клиента, а содержимое - статус (онлайн,занят...).
А удалять чтото не получается ни deletefile ни erase не помогают, файл как был, так и остался.

У ты его закрыть после создания не забыл ?

Если выйти на несуествуюший комп то будет завис.

Какой "завис" м.б., если и выхода-то не было. У тебя-ж все сообщения свалены в кучу в одном файле на одном компе. ?

По подробнее - код поиска компов.
Прошу выложить код

Это ты про WNetEnumResource ? Так к твоей схеме этого не прикрутишь.
Или про файловый метод. Так это просто поиск файлов в каталоге.
Посмотри в справке пример к FindFirst

[Dj_smart]

Сообщение от alexBlack

У ты его закрыть после создания не забыл

Нет не забыл. Создал- закрыл.

Так это просто поиск файлов в каталоге.
Посмотри в справке пример к FindFirst

Как искать обычные файлы я знаю.
Вот код:

procedure SearchDir(fn, Dir:string);
var
SRec: SearchRec;
ckl:integer;
F:file;
regs:registers;
begin
if dir[length(dir)]<>'\' then Dir:=Dir+'\';

FindFirst(Dir+fn, AnyFile, SRec);
while DosError = 0 do begin
WriteLN(Dir+SRec.Name);
FindNext(SRec);
End;
FindFirst(Dir+'*.*', Directory, SRec);
while DosError = 0 do begin
with SRec do
if (Attr and 16 <> 0 ) and (Name[1]<>'.') then
SearchDir(fn,Dir+Name);
FindNext(SRec);
end;
end;

А от как искать компы?
Тапа по директории ('*.*','\\') - первое маска второе путь поиска?

[alexBlack]

Сообщение от Dj_smart

А от как искать компы?
Тапа по директории ('*.*','\\') - первое маска второе путь поиска?

wait, wait... Мы же вроде определились. Каждый комп содает файл с именем = имени компа. Вот эти файлы и ищем. У них должно быть что-то общее. Например, расширение. Скажем, '.usr'

FindFirst(Dir+'*.usr', faAnyFile, SRec);

[Dj_smart]

Нет мне не надо, какие подключились, мне надо узнать какие вооще подключены к сети!

Каждый комп содает файл с именем = имени компа. Вот эти файлы и ищем. У них должно быть что-то общее. Например, расширение. Скажем, '.usr'
FindFirst(Dir+'*.usr', faAnyFile, SRec);

Это конечно тоже идея!

[alexBlack]

Тогда через WNetOpenEnum / WNetEnumResource
Проще я не знаю. Примеров, как я уже говорил, в сети много.