Наверное, все-таки можно не делить. Даже если есть колебание температуры, сваи, заделанные в ростверк, будут сдерживать температурные деформации ростверка. Поэтому без разницы какой длины ростверк, расчетной длиной будет расстояние между сваями.
Ну последняя фраза бред конечно, но вспомните, могли бы вы представить, что у вас будет телефон в n количество раз мощнее, чем тот самый компьютер, который был с машинный зал. И все таки речь лишь о чертежниках, не проектировщиков, конструкторов. Нам же проще, нам пока ползти до 15 проектировщиков "на моделях" на 4 чертежника, а там посмотрим, что "у них" там будет. На Марсе) (Слушайте, ну я же про программистов с долей иронии писала)
Омская птица : Профессия чертежник в скором времени будет заменена. Специальные программы, которые будут безошибочно конструировать дома, машины и другие необходимые объекты
Где эти программы? Где хотя бы прототипы? Голословные заявления. Профессия чертежник будет заменена только с разработкой ИИ схожего с человеческим, до которого еще как до луны - тут в адвансе или в ревите замудохаешься пока документацию получишь (и та вся косая и кривая), тонны настроек, горы кнопок, какие там "специальные программы", привели бы в порядок и упростили существующие для начала.
PS. Тоже самое говорили при появлении acada и прочих сапр систем, и что в итоге?
[SIZE="1"][COLOR="Gray"]----- добавлено через ~4 мин. -----[/COLOR][/SIZE]
Омская птица : Профессия чертежник в скором времени будет заменена. Специальные программы, которые будут безошибочно конструировать дома, машины и другие необходимые объекты
Разве "чертежник" конструирует дома, машины и другие необходимые объекты? Чертежник как я понимаю сидит и перерисовывает либо с серии, либо с другого проекта, либо с набросков гипа. Насчет программ заменяющих "чертежника" я согласен, давайте быстрей уже делайте.
Does Coming Out Still Matter? 2016-01-25 05:47 From celebrities discussing their identities on Snapchat, to a new generation embracing a "no labels" approach to sexuality, coming out looks more different in 2016 than ever before. But could it really no longer be necessary?
Why Snow Shoveling Is So Deadly 2016-01-25 04:37 This was a big snow weekend for the east coast, and now people are breaking out their shovels. But at least 6 people have died already from the activity, reminding us that it can be dangerous. Here's why shoveling can be deadly.
Specification Design Pattern in Automated Testing 2016-01-25 05:27 Anton Angelov A detailed overview of how to utilize the Specification Design Pattern in automated tests to segregate business rules based on Single responsibility principle. The post Specification Design Pattern in Automated Testing appeared first on Automate The Planet.
Re: Управление заказами для менеджера VM3 2016-01-25 05:07 ДА там и хака не нужно. Даете - создаете менеджеру отдельную группу и за тем во всех компонентах кроме VirtueMart список заказов разрешаете ему смотреть или редактировать. Ка уже захотите. Сам такого не делал но точно знаю что это работает.
Оптимизация на каждый сайт влияет по разному. Лучше всего будет сделать замеры у вашего сайта до оптимизации и сравнить их с тем, что будет после. Наилучшее результаты оптим...
Распродажа. Предложение актуально неделю. Все домены в рег ру, полное переоформление он-лайн.
ГавриловПосад. pф, старинный русский город, знаменитый конный завод 21.01.14 - 21.01.17 от 2 тыс руб
Нетания .pф, город-курорт в Израиле, (особенно актуален пока закрыты Египет и Турция), крупнейший курорт средиземноморского побережья страны, по длине пляжной зоны превосходит другие города Израиля 12.01.2016 - 12.01.2017 от 2 тыс руб
Печоры .pф, крупный туристический центр в России, почти 150 000 запросов в яндексе, 13.12.2012 - 13.12.2016pф от 4 тыс руб
Сольвычегодск .pф, курорт в Архангельской области ) 12.12.2014 - 12.12.2016 от 2 тыс руб
РостовВеликий .pф, неофициальное второе название Ростова, город Золотого Кольца, знаменитый центр Ростовского княжества, 21.01.2014 - 21.01.2016 от 4 тыс руб
плюс два региональных питерских домена - Горелово .pф пригород Санкт-Петербурга, 17.12.2015 - 17.12.2016 от 3 тыс руб Вырица .pф посёлок в Ленобласти, 15.12.2015 - 15.12.2016 от 2 тыс руб
Изварино .pф важный погранпереход между ЛНР и Россией 17.12.2015 - 17.12.2016 от 1 тыс руб
ПушкинскиеГоры .pф популярный туристический центр 12.12.2012 - 12.12.2016 от 4 тыс руб
Трускавец .pф горный курорт в украинских Карпатах, 60 тыс запросов в яндексе, 15.12.2015 - 15.12.2016 от 2 тыс руб
Раздольное .pф, один из 14 райцентров Крыма, 16.12.2014 - 16.12.2016 от 3 тыс руб
Прохоровка .pф, 12.12.2012 - 12.12.2016 от 2 тыс руб
Константиново .pф, родина Сергея Есенина, музей, 40 тыс запросов в яндексе, 13.12.2012 - 13.12.2016 от 2 тыс руб
Ямбург .pф, крупный центр нефтедобычи, кроме того - предыдущее (и возможно будущее) название города Кингисепп в Ленобласти 14.12.2012 - 14.12.2016 от 4 тыс руб
Калитва .pф, популярный вариант названия города Белая Калитва, 12.12.2014 - 12.12.2016 от 4 тыс руб
Евпатория-курорт .pф, актуально перед началом сезона, 18.12.2015 - 18.12.2016 от 5 тыс руб
Кзн .pф, вариант названия города Казань, например администрация Казани - , казанское телевидение - и др. 16.12.2015 - 16.12.2016 от 9 тыс руб
В этом году Минобороны России создаст механизм поиска передовых разработок 2016-01-25 04:40 Минобороны России в этом году создаст для широкой научно-производственной аудитории и предприятий ОПК механизм «окна открытых инноваций», сообщил журналистам представитель управления пресс-службы и информации Минобороны РФ.
Главы Volkswagen знали о дизельных махинациях еще в 2006 году 2016-01-25 04:40 На страницах немецкой газеты Sueddeutsche Zeitung появилась информация о том, что руководство и сотрудники компании Volkswagen Grоир знали обо всех дизельных махинациях еще в 2006 году.
Объем интернет-трафика в сети «Дом.ru» за 2015 год вырос на треть 2016-01-25 03:25 Интернет-провайдер "Дом.ru" (компания "ЭР-Телеком") увеличил за 2015 год суммарный объем интернет-трафика в своей сети на 38%, до 4,5 млн Тб, сообщается в пресс-релизе компании. Как уточняет провайдер, этот объем информации сопоставим с онлайн-просмотром 100 млрд фильмов в HD-качестве.
В Швеции из-за анонимной угрозы на день закрыли университет 2016-01-25 03:24 В понедельник университет шведского города Эребру будет закрыт, передает ТАСС. В мобильном приложении Jodel была размещена анонимная угроза, в которой говорилось: «Если вы придете сюда завтра, это плохо кончится».
В Batman: Arkham Knight обнаружили новую пасхалку 2016-01-23 19:12 Команда Rocksteady Studios решила побаловать геймеров Batman: Arkham Knight новыми загадками. Как стало известно Gamebomb.ru, фанаты серии обнаружили в игре новую, ранее неизвестную пасхалку.
Создатели Elite: Dangerous предпочли SteamVR, а не Oculus Rift 2016-01-22 17:27 Шлемы виртуальной реальности ещё не вышли, а вот негласная борьба платформ давно началась. Например, создатели Elite: Dangerous из Frontier Developments объявили, что до поры до времени перестали официально поддерживать Oculus Rift в своей игре. Вместо этого они сосредоточатся на SteamVR.
Нужна помощь (совет, консультация) в реализации доскачки (дозагрузки) фаила при разрыве соединения во время его передачи (на подобии как у торрента). Технология сокеты. Среда программирования delphi. Если это не возможно или посоветуйте новую среду и расскажите о реализации. Заранее спасибо!
const // bSize - размер блока данных для передачи. // при большом блоке возможны потери пакетов // например, у меня при передаче файла более 100 Мб при размере блока 8000 // файл доходил неполностью. bSize : Integer = 4000; // SleepTime - время задержки между отправкой очередного блока // при значении менее 3 бывают потери пакетов // чтобы такого не происходило, небоходимо дописывать функционал контроля // целостности блоков данных при отправке и получении SleepTime : ShortInt = 3; btnNameSend : string[4] = 'Send'; btnNameCancel : string[6] = 'Cancel';
implementation
{$R *.dfm}
// процедура вывода журнала сообщений procedure TFServer.Jornal(txt: string; fst : TFontStyle; clr : TColor); var time : string; begin if txt = '' then Exit; time := '[' + DateTimeToStr(now) + '] '; RxRichEdit1.Lines.Add(time+txt); RxRichEdit1.SelStart := Length(RxRichEdit1.Lines.Text) - Length(time+txt) - RxRichEdit1.Lines.Count - 1; RxRichEdit1.SelLength := Length(time+txt); RxRichEdit1.SelAttributes.Color := clr; if fst <> Unassigned then RxRichEdit1.SelAttributes.Style := RxRichEdit1.SelAttributes.Style + [fst]; end;
procedure TFServer.FormCreate(Sender: TObject); var leng:Integer; str:string; begin str := Application.ExeName; leng := Length(str) - 10;// путь минус имя экзешника Delete(str,leng, 11); edtFileName.Text := str + '\Файлы сервера\1.txt'; ServerSocket1.Active := True; if ServerSocket1.Active then Jornal('Сервер запущен', Unassigned, clGreen); CancelSend := False; btn1.Caption := btnNameSend; end;
procedure TFServer.FormClose(Sender: TObject; var Action: TCloseAction); var i : Integer; begin // закрытие подключений клиентов for i := ServerSocket1.Socket.ActiveConnections - 1 downto 0 do ServerSocket1.Socket.Connections[i].Close; if ServerSocket1.Active then ServerSocket1.Active := False; end;
procedure TFServer.btn1Click(Sender: TObject); var getfsize : TFileStream; begin if ServerSocket1.Socket.ActiveConnections = 1 then begin if btn1.Caption = btnNameSend then begin if FileExists(edtFileName.Text) then begin cmd.Clear; getfsize := TFileStream.Create(edtFileName.Text, fmOpenRead); cmd.Add(ExtractFileName(edtFileName.Text)); cmd.Add(IntToStr(getfsize.Size)); getfsize.Free;
// уведомление клиента о передаче файла // отправляется имя и размер файла посредство размещения // данных в cmd (TStringList) ServerSocket1.Socket.Connections[0].SendText(cmd.Text); end; end else begin CancelSend := True; Jornal('Передача файла отменена пользователем', Unassigned, clRed); end; end; end;
procedure TFServer.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin // cmd можно создавать и в formcreate cmd := TStringList.Create; Jornal('> Клиент подключился: [' + Socket.RemoteAddress + ']', Unassigned, clGreen); end;
procedure TFServer.ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket); begin if Assigned(cmd) then cmd.Free; Jornal('< Клиент отключился: [' + Socket.RemoteAddress + ']', Unassigned, clGray); end;
//посылка файла через сокет [имя файла; позиция, с которой нужно начинать слать файл] procedure TFServer.SendFileSocket(fName: string); var nSend : Integer; sBuf : Pointer; begin try if CancelSend then Exit; btn1.Caption := btnNameCancel; nSend := 0;
// открытие файла для чтения и последующей отправки fs := TFileStream.Create(edtFileName.Text, fmOpenRead); // курсор на начальную позицию, с которой нужно слать файл fs.Position := 0;
// управление прогресс баром Progress(fs.Position, fs.Size);
repeat // если нажата кнопка отмены, то выход if CancelSend then Break; // хватаем буфера (.)(.) GetMem(sBuf, bSize + 1); // чтение куска данных (bSize) из файла nSend := fs.Read(sBuf^, bSize); // если что то прочиталось, то отправляем клиенту if nSend > 0 then begin ServerSocket1.Socket.Connections[0].SendBuf(sBuf^, nSend); // корректировка значений прогрес бара Progress(fs.Position, fs.Size); // задержка иначе будут потери пакетов Sleep(SleepTime); end; // отпускаем буфера (.)(.) FreeMem(sBuf); Application.ProcessMessages; until nSend <= 0; // цикл выполняется пока хоть 1 байт будет прочитан из потока fs
// если не нажата кнопка отмены, то файл отправлен if not CancelSend then Jornal('Файл отправлен!', fsBold, clGreen); finally if Assigned(fs) then fs.Free; btn1.Caption := btnNameSend; if CancelSend then CancelSend := False; end; end;
// процедура управления прогресс баром procedure TFServer.Progress(prg, maxprg: Integer); begin Gauge1.Progress := prg; Gauge1.MaxValue := maxprg; end;
procedure TFServer.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); begin cmd.Text := Socket.ReceiveText; //клиент сообщил о готовности приёма файла fName if cmd.Strings[0] = 'send' then begin Jornal('Клиент [' + socket.RemoteAddress + '] готов принять файл ' + QuotedStr(cmd.Strings[1]), Unassigned);
// отправка файла клиенту if (ExtractFileName(edtFileName.Text) = cmd.Strings[1]) then SendFileSocket(edtFileName.Text); end; end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if ClientSocket1.Active then ClientSocket1.Active := False; if Assigned(cmd) then cmd.Free; end;
procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); var nRead : Integer; rBuf : Pointer; begin // если не находимся в режиме получения файла, то значит пришли команды // в нашем случае это имя и размер файла if not Receiving then //получение команды - параметров файла begin cmd.Text := Socket.ReceiveText;
// переход в режим приема файла и создание потока для приема файла Receiving := True; fs := TFileStream.Create(fName, fmCreate);
Gauge1.Progress := 0; //Уведомление сервера о готовности приема файла cmd.Clear; cmd.Add('send'); cmd.Add(fName); Socket.SendText(cmd.Text); end else // режим получения файла begin repeat Socket.Lock; // выделение памяти под принятый кусок данных GetMem(rBuf, bSize + 1); // считывание данных nRead = количество считанных байт nRead := Socket.ReceiveBuf(rBuf^, bSize); // если что то считалось, то запись данных в файл if nRead > 0 then begin //fs.Seek(0, soFromEnd); fs.WriteBuffer(rBuf^, nRead); Gauge1.Progress := fs.Size; end; FreeMem(rBuf); Socket.Unlock; Application.ProcessMessages; until (nRead <= 0); // если всё данные считались, то переключение режима приема обратно и освобождение переменной потока if fs.Size = fSize then begin Receiving := False; fs.Free; Jornal('Файл принят!', Unassigned, clGreen); end; end; end;
// процедура вывода данных в журнал [текст сообщения, стиль текста, цвет текста] procedure TForm1.Jornal(txt: string; fst : TFontStyle; clr : TColor); var time : string; totallen, curlen, sstart : Integer; begin if txt = '' then Exit; time := '[' + DateTimeToStr(now) + '] '; RxRichEdit1.Lines.Add(time+txt); RxRichEdit1.SelStart := Length(RxRichEdit1.Lines.Text) - Length(time+txt) - RxRichEdit1.Lines.Count - 1; RxRichEdit1.SelLength := Length(time+txt); RxRichEdit1.SelAttributes.Color := clr; if fst <> Unassigned then RxRichEdit1.SelAttributes.Style := RxRichEdit1.SelAttributes.Style + [fst]; end;
procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin Jornal('> Подключён к серверу [' + Socket.RemoteAddress + ']', Unassigned, clGreen); end;
procedure TForm1.ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket); begin Jornal('< Отключён от сервера [' + Socket.RemoteAddress + ']', Unassigned, clRed); end;
Олег Дерипаска обвинил власти России в пассивной экономической политике 2016-01-25 03:08 Максим Бакулев Президент компании "Русал", миллиардер Олег Дерипаска объяснил обвал рубля пассивной экономической политикой России по принципу "ничего не делать". Он считает, что 2016 год - это "последний год, когда государство сможет поддержать производителя".
Димтрий Рогозин не хочет жить на улице Кадырова 2016-01-25 03:05 Максим Бакулев Волна сатирических извинений перед главой Чечни Рамзаном Кадыровым неизбежно вернулк а жизни некоторые исторические факты.
Комментариев нет:
Отправить комментарий