Отправляет email-рассылки с помощью сервиса Sendsay

Клуб программистов

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Интернет, финансы и успех" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Декабрь 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Alar

Статистика

3.899 подписчиков
+1 за неделю
←   Все выпуски   →

Клуб программистов рассылка. Выпуск 87


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] of integer
             =(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, они отличаются.
Тема на форуме

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

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

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

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

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

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

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

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

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

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

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

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