Извините, что надоедаю с вопросом нор всй же!

← →
совсем Новенький (2002-10-01 09:19) [0]

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

← →
Ghost. (2002-10-01 15:41) [1]

Ну тема уже затаскана..про UDP

← →
совсем Новенький (2002-10-01 19:49) [2]

Тема затаскана, но я просматривал 20 страниц назад, и ответа не нашел. Подскажите или статью на русском, или процедуру широковещательного запроса и процедуру, для его приема
П О Ж А Л У Й С Т А

← →
Ghost. (2002-10-02 09:34) [3]

В примерах своей делфи ты все найдешь..

← →
Ru (2002-10-02 11:31) [4]

Если умеешь посылать запос на один IP, то попробуй перечислять по маске, если в твоей сети нет подсетей (например в одной физической сети две подсети с адресами 192.168.0.ХХХ и 192.168.1.ХХХ) то у тебя всего лишь 256 вариантов

← →
совсем Новенький (2002-10-03 01:04) [5]

Подсети есть поэтому количество вариантов больше, кроме того я хочу написать программу для обмена сообщениями а -ля WinPopup но лучше и там будет расти трафик если в пустую пинговать все подряд.

← →
Ghost. (2002-10-03 09:42) [6]

Я же тебе говорю UDP а трафик который ты как говоришь будет расти..если у тебя сеть даже и 10 мегабитная ты устанешь его забивать..а если 100 вообще не грузись даже..

← →
CrazyAngel (2002-10-03 09:51) [7]

Зачем все подряд - можно слать broadcast сообщения на определенный порт и трафик как Ghost говорил особо не вырастет разве только ты будешь горы фильмов слать :)))

← →
совсем Новенький (2002-10-03 11:41) [8]

Так как послать broadcast? Компоненты инди бесплатные, или нет? Если нет где найти кряк?

← →
Ghost. (2002-10-03 12:14) [9]

ICS посмотри ссылку у меня на сайте...

← →
совсем Новенький (2002-10-03 12:36) [10]

InDy и ICS одно и тоже, потому что у Вас на сайте я видет только ссылку на ICS.

← →
Ghost. (2002-10-03 12:52) [11]

Нет это совсем разные вещи...,ч то лучше что хуже я спорить не буду..с InDy не работал..в своих программах использую только ICS пока работой доволен..при необходимости вношу изменения в код компонентов..

← →
совсем Новенький (2002-10-03 13:02) [12]

Можна ли отправить широковещательное сообщение по сети с помощью ICS. Если так, то как.

← →
Ghost. (2002-10-03 13:37) [13]

Там полно примеров и такой среди них есть...

← →
совсем Новенький (2002-10-03 23:39) [14]

Какой размер компонент, платный ли он, какой точно пример для рассылки сообщения

← →
Ghost. (2002-10-04 11:10) [15]

Ну ты вообще лентяй..может за тея еще и пргу написать..

← →
совсем Новенький (2002-10-04 12:30) [16]

Прогу написать не надо, это я люблю :) а дело в том, интернет слабый, и скачивать 3-4м долго, а если он платный, и кряка нет, что мне с ним делать :)

← →
Ghost. (2002-10-04 12:44) [17]

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

← →
Ru (2002-10-04 13:10) [18]

Есть программа Дельфин так в ней нашел пример, который назывался "Поиск всех компьютеро в рабочей группе". Вот код, который был в примере:var
Computer : Array[1..500] of String[25];
ComputerCount : Integer;

procedure FindAllComputers(Workgroup: String);
var
EnumHandle : THandle;
WorkgroupRS : TNetResource;
Buf : Array[1..500] of TNetResource;
BufSize : Integer;
Entries : Integer;
Result : Integer;
begin
ComputerCount := 0;
Workgroup := Workgroup + #0;
FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0);
With WorkgroupRS do begin
dwScope := 2;
dwType := 3;
dwDisplayType := 1;
dwUsage := 2;
lpRemoteName := @Workgroup[1];
end;
WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @WorkgroupRS, EnumHandle );
Repeat
Entries := 1!;
BufSize := SizeOf(Buf);
Result := WNetEnumResource( EnumHandle, Entries,@Buf, BufSize );
If (Result = NO_ERROR) and (Entries = 1) then begin
Inc( ComputerCount);
Computer[ ComputerCount ] := StrPas(Buf[1].lpRemoteName);
end;
Until (Entries <> 1) or (Result <> NO_ERROR);
WNetCloseEnum( EnumHandle );
end;
{ Find All Computers }

← →
Rouse_ (2002-10-05 05:21) [19]

Броадкаст посылается следующим образом

Кладешь на форму idUDPClient и idUDPServer

настраиваешь их на один порт
у обоих компонент свойство BroadcastEnabled делаешь True

отсылаешь широковещательный пакет (тобишь броадкаст)
idUDPClient1.Broadcast("Твое сообщение",Номер порта);

принимаешь его
procedure TForm1.idUDPServer1Read(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); var d:TStringStream; begin d := TStringStream.Create(""); d.CopyFrom(AData, AData.Size); data:= D.DataString; d.Free; end;

Желаю успехов

← →
совсем Новенький (2002-10-06 23:06) [20]

Спасибо за советы попробую!

Извините, что надоедаю с вопросом нор всй же! Найти похожие ветки