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

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

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

Извините, что надоедаю с вопросом нор всй же! [D3, D5, Win95/98, WinME]

совсем Новенький © (2002-10-01 09:19:00)
Мне нужно послать запрос всем компютерам сети и чтоб они ответили тому компу, который задал вопрос. Проблема в том что я не знаю их IP (сеть локальная.)

совсем Новенький (2002-10-06 23:06:00) [1]
Спасибо за советы попробую!

Rouse_ (2002-10-05 05:21:00) [2]
Броадкаст посылается следующим образом

Кладешь на форму 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;

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

Ru (2002-10-04 13:10:00) [3]
Есть программа Дельфин так в ней нашел пример, который назывался "Поиск всех компьютеро в рабочей группе". Вот код, который был в примере: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 }

Ghost. (2002-10-04 12:44:00) [4]
нет они абсолютно бесплатные причем с исходными текстами в которых при желании можно порыться и найти массу интересных идей..а размер непомню точно но меньше 1,5 мегов..

совсем Новенький (2002-10-04 12:30:00) [5]
Прогу написать не надо, это я люблю :) а дело в том, интернет слабый, и скачивать 3-4м долго, а если он платный, и кряка нет, что мне с ним делать :)

Ghost. (2002-10-04 11:10:00) [6]
Ну ты вообще лентяй..может за тея еще и пргу написать..

совсем Новенький (2002-10-03 23:39:00) [7]
Какой размер компонент, платный ли он, какой точно пример для рассылки сообщения

Ghost. (2002-10-03 13:37:00) [8]
Там полно примеров и такой среди них есть...

совсем Новенький (2002-10-03 13:02:00) [9]
Можна ли отправить широковещательное сообщение по сети с помощью ICS. Если так, то как.

Ghost. (2002-10-03 12:52:00) [10]
Нет это совсем разные вещи...,ч то лучше что хуже я спорить не буду..с InDy не работал..в своих программах использую только ICS пока работой доволен..при необходимости вношу изменения в код компонентов..

совсем Новенький (2002-10-03 12:36:00) [11]
InDy и ICS одно и тоже, потому что у Вас на сайте я видет только ссылку на ICS.

Ghost. (2002-10-03 12:14:00) [12]
ICS посмотри ссылку у меня на сайте...

совсем Новенький (2002-10-03 11:41:00) [13]
Так как послать broadcast? Компоненты инди бесплатные, или нет? Если нет где найти кряк?

CrazyAngel (2002-10-03 09:51:00) [14]
Зачем все подряд - можно слать broadcast сообщения на определенный порт и трафик как Ghost говорил особо не вырастет разве только ты будешь горы фильмов слать :)))

Ghost. (2002-10-03 09:42:00) [15]
Я же тебе говорю UDP а трафик который ты как говоришь будет расти..если у тебя сеть даже и 10 мегабитная ты устанешь его забивать..а если 100 вообще не грузись даже..

совсем Новенький (2002-10-03 01:04:00) [16]
Подсети есть поэтому количество вариантов больше, кроме того я хочу написать программу для обмена сообщениями а -ля WinPopup но лучше и там будет расти трафик если в пустую пинговать все подряд.

Ru (2002-10-02 11:31:00) [17]
Если умеешь посылать запос на один IP, то попробуй перечислять по маске, если в твоей сети нет подсетей (например в одной физической сети две подсети с адресами 192.168.0.ХХХ и 192.168.1.ХХХ) то у тебя всего лишь 256 вариантов

Ghost. (2002-10-02 09:34:00) [18]
В примерах своей делфи ты все найдешь..

совсем Новенький (2002-10-01 19:49:00) [19]
Тема затаскана, но я просматривал 20 страниц назад, и ответа не нашел. Подскажите или статью на русском, или процедуру широковещательного запроса и процедуру, для его приема
П О Ж А Л У Й С Т А

Ghost. (2002-10-01 15:41:00) [20]
Ну тема уже затаскана..про UDP

Наверх

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