Автор работы: Пользователь скрыл имя, 17 Декабря 2011 в 13:04, курсовая работа
В данном курсовом проекте разработана программа-аналог системы p2p. Данная программа создана в среде Delphi версии 7.0. Программа представляет собой комплекс средств для обмена файлами между пользователями в сети, включающий в себя хаб, клиентское приложение, поиск нужных файлов, предоставление доступа к информации, чат между пользователями. Наряду с этим, в программе реализованы права доступа на действия с файлами пользователей.
Введение 5
1. Анализ технического задания 7
2. Реализация 13
3. Тестирование 13
Заключение 18
Список литературы 19
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.