Проектирование ЛВС ethernet

План этажа 6 – горизонтальный уровень сети:

План дома - Вертикальный уровень сети:

2. ЛОГИЧЕСКАЯ СТРУКТУРИЗАЦИЯ СЕТИ

3. ТЕХНИКО-ЭКОНОМИЧЕСКАЯ ЧАСТЬ

3.1 Выбор оборудования

Таблица 1

3.2 Расчёт себестоимости сети

На протяжку кабеля израсходовано 327 метров. Метр кабеля стоит 7 рублей. Итого на кабель израсходовали 2289 рублей

По данным из таблицы 1 рассчитаем себестоимость сети:

Себестоимость= 17*123+3*335+2*400+1211+3683+350+ 2289+4*46

Себестоимость сети равна 11613 рублей

4. СБОР И ПЕРЕДАЧА СИСТЕМНОЙ ИНФОРМАЦИИ ПРИЛОЖЕНИЕМ, РАБОТАЮЩЕМУ ПО ТЕХНОЛОГИИ "КЛИЕН-СЕРВЕР" С ИСПОЛЬЗОВАНИЕМ TCP\IP

       В данной курсовой работе мы разработали приложение, состоящие из двух частей: сервера и клиента. Сервер предназначен для сбора системной информации и последующей передачи её в виде текстового файла на компьютер клиента.

       Программа работает следующим образом: при запуске серверной части на компьютере производится сбор информации об операционной системе, памяти, устройствах, системных папках. Вся информация сохраняется в файл Osinfo.txt , который сохраняется в директорию операционный системы. При запуске клиентской части программы (Рис.1) пользователь должен ввести IP адрес компьютера, на котором запущена серверная часть, после при нажатии кнопки “Пуск” файл Osinfo.txt передаётся на компьютер, на котором установлена клиентская часть.

Рис. 1. Клиентская часть.

4.1 Листинг клиентской части приложения

        procedure TForm1.Button1Click(Sender: TObject);

begin

IdTCPClient1.Host:=Edit1.Text;

IdTCPClient1.Connect(500);

end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);

var

  FileName: PChar;

  FileSize: Cardinal;

  FS: TFileStream;

begin

  GetMem(FileName, 256);

  try

    IdTCPClient1.ReadBuffer(FileName^, 256);

    IdTCPClient1.ReadBuffer(FileSize, SizeOf(FileSize));

    FS := TFileStream.Create('c:\полученый_'+FileName, fmCreate); // тут создается файл, я его положил в каталог incoming

    try

      IdTCPClient1.ReadStream(FS, FileSize);

    finally

      FS.Free;

    end;

  finally

    FreeMem(FileName);

  end;

  ShowMessage('Принято');

end;

end.

4.2 Листинг серверной части приложения

function GetWinDir(): String;

var

buffer: String;

len: UINT;

begin

SetLength(buffer, MAX_PATH + 1);

len := GetWindowsDirectory(PAnsiChar(buffer), MAX_PATH);

SetLength(buffer, len);

GetWinDir := buffer;

end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);

var

  FileToSend: String;

  FileSize: Cardinal;

  p: Pointer;

begin

  FileToSend :=GetWinDir+'\Osinfo.txt';  // тут файл, который мы рассылаем любому попросившему.

  with TFileStream.Create(FileToSend, fmOpenRead) do

  try

    FileToSend := ExtractFileName(FileToSend) + #00;

    GetMem(p, 256);

    try

      CopyMemory(p, @FileToSend[1], Length(FileToSend));

      AThread.Connection.Socket.Send(p^, 256);

    finally

      FreeMem(p);

    end;