Разработка аналога системы p2p
Курсовая работа, 17 Декабря 2011, автор: пользователь скрыл имя
Описание работы
В данном курсовом проекте разработана программа-аналог системы p2p. Данная программа создана в среде Delphi версии 7.0. Программа представляет собой комплекс средств для обмена файлами между пользователями в сети, включающий в себя хаб, клиентское приложение, поиск нужных файлов, предоставление доступа к информации, чат между пользователями. Наряду с этим, в программе реализованы права доступа на действия с файлами пользователей.
Содержание работы
Введение 5
1. Анализ технического задания 7
2. Реализация 13
3. Тестирование 13
Заключение 18
Список литературы 19
Файлы: 1 файл
Пояснительная записка.doc
— 596.50 Кб (Скачать файл)Move(S[1], P^, Length(S));
VarArrayUnlock(Pt);
P2pHub.SendBinaryMessage(
end;
procedure TfMain.GoBinaryMessage(Sender: TObject; aHandle: Integer; var aValue: OleVariant);
var
Len: Integer;
P: PByte;
S: String;
begin
if not VarIsArray(aValue) then Exit;
Len := VarArrayHighBound(aValue, 1) - VarArrayLowBound(aValue, 1) + 1;
P := VarArrayLock(aValue);
if P = nil then Exit;
SetLength(S, Len);
Move(P^, S[1], Len);
VarArrayUnlock(aValue);
ShowMessage('Поступило сообщение: ' + S);
end;
end.