хайнет

Ответ от Нурислам Гафуров[гуру]
Самый простой способ - подключить интернет через Wi-Fi и запаролить сеть Wi-Fi. На функционале самого компа этот пароль никак не отразится. Важно: расстояние от роутера до компа должно быть больше имеющихся в доме сетевых проводов. Сетевой провод на входе в роутер не должен доставать до компа.

Ответ от Владимир Фандин[гуру]
var
Query, Header: string;
hInet, hConnect, hRequest: HInternet;
Buffer: Pointer;
dwBufferLen, dwIndex: DWORD;
Size: Integer;
BytesToRead: DWORD;
Data: Array[0..1024] of Char;
begin
// инициализация
AStream.Seek(0, soFromBeginning);
// получение запроса
Query := GetQuery;
Header := GetHeader(Query);
// инициализация WinInet
ShowStatus('Инициализация... ');
hInet := InternetOpen(PAnsiChar(Application.ExeName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if hInet <> nil then
try
// открытие сессии
ShowStatus('Соединение... ');
hConnect := InternetConnect(hInet, PChar(Url), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
if hConnect <> nil then
try
// открытие запроса
hRequest := HttpOpenRequest(hConnect, PChar('POST'), PChar(ObjectName), nil, nil, nil, INTERNET_FLAG_KEEP_CONNECTION, 0);
if hRequest <> nil then
try
ShowStatus('Отправка запроса... ');
if HttpSendRequest(hRequest, PChar(Header), Length(Header), PChar(Query), Length(Query)) then
begin
dwIndex := 0;
dwBufferLen := 1024;
GetMem(Buffer, dwBufferLen);
try
// запрос размера файла
if HttpQueryInfo(hRequest, HTTP_QUERY_CONTENT_LENGTH, Buffer, dwBufferLen, dwIndex) then
begin
Size := StrToInt(StrPas(Buffer));
// чтение файла
ShowStatus('Загрузка данных... ');
while true do
begin
if InternetReadFile(hRequest, @Data, SizeOf(Data), BytesToRead) and (BytesToRead > 0) then
AStream.Write(Data[0], BytesToRead)
else
Break;
ShowProgress(0, Size, AStream.Size);
end;
// проверка размера скаченого файла
if Size <> AStream.Size then
raise Exception.Create('Ошибочный размер файла');
end
else
raise Exception.Create('Ошибка получения размера файла')
finally
FreeMem(Buffer, dwBufferLen);
end;
end
else
RaiseLastOSError;
finally
InternetCloseHandle(hRequest);
end;
finally
InternetCloseHandle(hConnect);
end
else
RaiseLastOSError;
finally
InternetCloseHandle(hInet);
end
else
RaiseLastOSError;

Ответ от PronitaR[эксперт]
Тоесть без пароля? По отпечаткам пальца чтоли хочешь? Пароль надо. У тебя комп не волшебный что бы распознавал какой пользователь сидит за ним

Ответ от Нокс[гуру]
А лучше-свитчем на витой паре. Делаешь переходник, и просто отключаешь его в любой момент.

Ответ от Red[гуру]
мину поставь возле комка 🙂

Ответ от 3 ответа[гуру]