Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

3rd
Дек

Рассылка. Выпуск 87

Posted by Chas under Рассылка

redaktor От ведущего.

Добрый вечер, уважаемые читатели рассылки. Поздравляю вас с наступлением зимы и с очень радостным для нас событием — ЧМ-2018 пройдет у нас, в России. Надеюсь, мы покажем себя достойно. Ну а в сегодняшнем нашем выпуске читайте обзор интересных тем форума.

logo_grey

Новые интересные статьи клуба программистов.

Статьи на сайте клуба постоянно пополняются. Поэтому это постоянная и основная рубрика рассылки. Так же здесь обзор топиков форума и блога программистов.

Простенький парсер псевдо-HTML на Delphi
html_parser.rar
парсер на асме
Тема на форуме

Как сбросить таймер в delphi?
Во время работы программы таймер включен.
Пользователь может изменить его интервал с помощью кнопки.
Собственно, нужно моментально изменить текущий интервал во время работы.

Timer.Enabled:=False;
Timer.Interval:=new_interval;
Timer.Enabled:=True;

Тема на форуме

Создать часы, с бегущей секундной стрелкой
Тема на форуме

Рандомное получение цвета
опишите массив цветов, как константу.
А потом через random получайте индекс в этом массиве
например:

const
  CountOfColor = 8;
  Colors : array[0..CountOfColor-1]ofinteger
             =(clWhite, clRed, clBlue, clYellow, clGreen, clBlack, clLime, clAqua );
procedure TForm1.Button1Click(Sender: TObject);
var n:array[1..4] of integer;
  i : integer;
begin
  Randomize;
  for i:=1 to 4 do
    n[i] := Random(CountOfColor);
….
end;

p.s. разумеется, тут нет защиты от повтора цвета, т.е. в массив n могут попасть одинаковые цвета…
Тема на форуме

Как можно узнать контрольную сумму файла?
Как можно узнать контрольную сумму файла?

uses
  windows,
  imagehlp,
  SysUtils;
var s:string;f:file of byte; h,cs:DWORD;
begin
 AssignFile(f,‘project2.exe’);reset(f);
 SetLength(s,Filesize(f));
 BlockRead(f,s[1],length(s));close(f);
 CheckSumMappedFile(@s[1],length(s),@h,@cs);
 Write(h:10,cs:10);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

cs — контрольная сумма.
Если время от времени проверят ее то можно узнать что файл кем-то был изменен, ибо контрольная сумма будет другая.
Тема на форуме

Как смешать две картинки bmp?
Тема на форуме

Таймер с выводом в label отсчёта до определённого времени
т.е. объявите переменную N где-нибудь глобально и на FormCreate сделайте N:=128000;
в в процедуре обработки таймера (интервал 1000 мс == 1 сек) напишите:

procedure TForm3.Timer1Timer(Sender: TObject);
var sec : integer;
begin
   Dec(N);
   if n>=0 then 
   begin
     sec := n div 1000;
     label7.Caption := format(‘%.2d:%.2d’,[sec div 60, sec mod 60]);
   end
   else Timer1.Enable := false; {выключаем таймер, если N стало меньше нуля…}
end;

Тема на форуме

Как вырезать картинку с канвы?
Тема на форуме

Web-интерфес устройства
У меня такой вопрос. Хочу понять как делается веб-интерфейс. Например как на роутерах. Т.е. когда мы хотим настроить роутер набираем в браузере адрес, заходим не него и можем настраивать или смотреть какие то данные. Например у меня есть термометр с которого контролер берёт данные и шлёт на комп через 232 порт. Мне я так понимаю надо запустить веб-сервер на этом контролере и программу которая будет данные вставлять в веб интерфейс. Как это можно реализовать? Может есть какие то примеры.
Тема на форуме

Копирование строк из Memo1 в Memo2, различные способы
Здравствуйте!
Нужно копировать все строки из мемо1 в мемо2, но проверять нет ли такой же строки уже в мемо2, тоесть копировать в мемо2 только то, что там ещё нет.
Тема на форуме

Как узнать информацию о батареи ноутбука?
Тема на форуме

Проблема с записью в bat файл русских символов
Создаём bat файл с именем себя любимого, в него записываем смертный приговор себе ну или ещё кому , запускаем его, закрываемся, всё никаких следов не осталось.
Всё это отлично работает, но только в тех случаях если в пути папки программы нет русских символов. Всё дело в таблице символов которую использует Delphi и cmd, они отличаются.
Тема на форуме

На сайте клуба есть рубрики пост-обзор и топик-обзор клуба программистов.

Немного юмора.

***
Учиться, учиться, и еще раз учиться и еще раз учиться и еще раз учиться и еще раз учиться и … /компьютерный вирус ЛЕHИH.ехе/

«Есть винчестер — есть проблема, нет винчестера — нет проблемы!» /компьютерный вирус СТАЛИH.exe/

«И в boot-секторе должна расти кукуруза!» /компьютерный вирус ХРУЩЕВ.exe/

«Дорогие товарищи! С чувством глубокого удовл… кхе-кхе… глубокого форматирования на нижнем уровне!..» /компьютерный вирус БРЕЖHЕВ.exe/

«Хочешь сохранить свои данные? Hапечатай 5000 раз: «Я бросил пить в рабочее время!» /компьютерный вирус АHДРОПОВ.exe/

«Hе приходя в сознание после цирроза Рartition Table, Ваш компьютер приступил к работе» /компьютерный вирус ЧЕРHЕHКО.exe/

«Мы тут с товарищами посоветовались, и решили немножечко перестроить Ваши данные, чтобы ускорить, так сказать, Ваше мЫшление!» /компьютерный вирус ГОРБАЧЕВ.exe/

«Борис, ты не прав! Что? Ты не Борис?! Извини, уже поздно…» /компьютерный вирус ЕГОР_ЛИГАЧЕВ.exe/

***
По окончании инсталляции программ Microsoft очень часто можно прочесть — «Мы долго и трудно работали. Наслаждайтесь! » После работы с некоторыми программами Microsoft хочется изменить эту надпись таким образом: «Мы долго и трудно работали. Теперь… ваша очередь! »

***
Мой дед прошел 2 мировые войны.
Устал, выключил компьютер и пошел спать.

Посетите раздел юмора на форуме, который обновляется постоянно

Читать этот номер в клубе.

Случайные статьи

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: