Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 06.12.2009, 17:14   #1
Sasuke-cun
 
Регистрация: 02.12.2009
Сообщений: 9
Репутация: 10
По умолчанию сканирование сети

Сетевое приложение поиска доступных IP адресов (аналог стандартного
поиска компьютера в сети). Результат поиска - IP адрес компьютера и его
разделяемые ресурсы.
Скажите хотябы ссылочки где посотреть ну или хоть какую нить прогу
Sasuke-cun вне форума   Ответить с цитированием
Старый 06.12.2009, 17:34   #2
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
Репутация: 33

icq: 452409090
skype: betirsolt
По умолчанию

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    adressedit: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
hNetEnum: THandle;
NetContainerToOpen: NETRESOURCE;
ResourceBuffer: array[1..2000] of TNetResource;
i,ResourceBuf,entriesToGet: DWORD;
begin
NetContainerToOpen.dwScope:=RESOURCE_GLOBALNET;
NetContainerToOpen.dwType:=RESOURCETYPE_ANY;
NetContainerToOpen.lpLocalName:=nil;
NetContainerToOpen.lpRemoteName:= PChar('\\'+AdressEdit.Text);
NetContainerToOpen.lpProvider:=nil;
WNetOpenEnum (RESOURCE_GLOBALNET, RESOURCETYPE_ANY,
RESOURCEUSAGE_CONNECTABLE or REsOURCEUSAGE_CONTAINER,
@NetContainerToOpen, hNetEnum);
while TRUE do
begin
ResourceBuf:= sizeof(ResourceBuffer);
EntriesToGet:= 2000;
if (NO_ERROR <> WNetEnumResource(hNetEnum, EntriesToGet,
@ResourceBuffer,ResourceBuf)) then
begin
WNetCloseEnum(hNetEnum) ;
exit;
end;
for i:=1 to EntriesToGet do
Memo1.Lines.Add(string(ResourceBuffer[i].lpRemoteName));
end;
end;

end.

__________________
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума   Ответить с цитированием
Старый 06.12.2009, 17:58   #3
Sasuke-cun
 
Регистрация: 02.12.2009
Сообщений: 9
Репутация: 10
По умолчанию

А так чтоб он искал ip и отображал имена а не по введённому ip отображал имена
Sasuke-cun вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сканирование директории D!zel Общие вопросы Delphi 8 22.12.2009 22:11
Сканирование полутонового изображения в C++ Skye Помощь студентам 4 13.10.2009 00:44
сканирование папки andrey poki Общие вопросы Delphi 2 26.03.2009 09:20
Сканирование директорий. Serious Общие вопросы Delphi 2 14.02.2009 16:17
Сканирование экрана pecson Общие вопросы Delphi 5 13.12.2008 08:25


04:33.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru