gn="justify">, (3)
де - споживана потужність ПК, кВт;
=0,24 кВт;
- споживана потужність комп'ютера в режимі очікування;
=0,07 кВт.
руб.
Використання заходів щодо енерго- та ресурсозбереження, при розробці програмного модуля, дозволило заощадити грошові кошти в розмірі 560 рублів.
Висновок
В результаті виконання даної роботи був втілений у життя проект по створенню програми Передачі даних по мережі .
У можливості даного програмного засобу входить передача даних у мережі, а так само відкриття переданого файлу. Даний проект був розроблений на такому об'єктно-орієнтованому мові програмування Delphi, що дозволяє програмі забезпечити високу швидкість, а так само якість створюваної програми, що в теперішній час має велике значення.
Дана програма орієнтована для впровадження в шкільні навчальні заклади, а також в ссузів і ВУЗИ і підприємства де необхідна пересилання даних по мережі. Дана програма значно знизить витрати часу на передачу файлів між комп'ютерами.
Список використаних джерел
1.Архангельскій А.Я. Програмування Delphi7 /.- М .: ТОВ Біном - прес, 2003 - 1152с .: ил.
.Архангельскій А.Я. Програмування в Delphi для Windows. Версії 2006, 2007, Turbo Delphi /, - М .: ТОВ ??laquo; Біном-Пресс raquo ;, 2010 року - 1248 с .: ил.
.Фаронов В.В. Delphi 7.0 - програмування на мові високого рівня /: Підручник для вузів - СПб .: Питер, 2006 г. - 640с .: ил.
.Бобровскій С.І. Delphi 7. Навчальний курс /. 200 4г.- 736 с .: ил.
.Антоненко С.К. Правила дорожнього руху, 2011 рік.
Додаток
Серверна частина програми:
uses, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ScktComp, StdCtrls, ComCtrls, XPMan, jpeg, ExtCtrls, Menus, ShellAPI;=class (TForm): TButton ;: TButton ;: TStatusBar ;: TEdit ;: TServerSocket ;: TOpenDialog ;: TProgressBar ;: TXPManifest ;: TImage ;: TMainMenu ;: TMenuItem; Button1Click (Sender: TObject); Button2Click (Sender: TObject); ServerSocket1ClientRead (Sender: TObject ;: TCustomWinSocket); FormCreate (Sender: TObject); FormDestroy (Sender: TObject); ServerSocket1ClientConnect (Sender: TObject ;: TCustomWinSocket); ServerSocket1ClientDisconnect (Sender: TObject ;: TCustomWinSocket); N1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1 ;: TMemoryStream;
{$ R * .dfm} TForm1.Button1Click (Sender: TObject) ;. Execute; .Text:=OpenDialog1.FileName ;; TForm1.Button2Click (Sender: TObject) ;: integer ;: ^ Byte;:=TMemoryStream.Create;// Створення буфер для файла.LoadFromFile (Edit1.Text);// Завантажуємо файл в буфер
//Надсилаємо інформацію про файл (команда # назва # розмір)
ServerSocket1.Socket.Connections[0].SendText(laquo;file#raquo;+Edit1.Text+laquo;#raquo;+IntToStr(MS.Size)+laquo;#raquo;);
MS.Position:=0;// Переводимо каретку в початок файлу:=MS.Memory;// Завантажуємо в змінну P файл:=ServerSocket1.Socket.Connections [0] .SendBuf (P ^, MS.Size);// Надсилаємо файл
//Виводимо прогресс.Position:=Size * 100 div MS.Size; .SimpleText:= Відправлено + IntToStr (Size) + з + IntToStr (MS.Size) + байт raquo ;; TForm1.ServerSocket1ClientRead (Sender: TObject ;: TCustomWinSocket); Socket.ReceiveText= end then//Якщо клієнт прийняв файл, то .... SimpleText:= Клієнт прийняв файл raquo ;;
MS.Free;// Убиваем буфер;
end; TForm1.FormCreate (Sender: TObject) ;. Open;//відкриття сокета; TForm1.FormDestroy (Sender: TObject) ;. Close;// Закриття сокета; TForm1.ServerSocket1ClientConnect (Sender: TObject ;: TCustomWinSocket) ;. SimpleText:= З'єднання встановлене raquo ;;
end; TForm1.ServerSocket1ClientDisconnect (Sender: TObject ;: TCustomWinSocket) ;. SimpleText:= З'єднання не встановлено raquo ;;; TForm1.N1Click (Sender: TObject); (0, nil, PChar ( NewProjectm ), nil, nil, SW_SHOWNORMAL);
end;
end.
Клієнтська частина програми:
Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ComCtrls, StdCtrls, ScktComp, jpeg, ExtCtrls, Menus, ShellAPI;=class (TForm): TClientSocket ;: TStatusBar ;: TProgressBar ;: TImage ;: TLabel ;: TLabel ;: TMainMenu ;: TMenuItem; FormCreate (Sender: TObject); FormDestroy (Sender: TObject); ClientSocket1Connect (Sender: TObject ;: TCust...
