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

made in programmersforum 4

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

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

7th
Июл

Эмуляция COM устройства

Есть ли такая программа, чтоб могла эмулировать устройство на COM порту??? Ну к примеру, устанавливаешь в этой программе порт, и подключаешь к нему свою программу, а в эмуляторе видишь, что принимает порт. (читать всё…)

Добавлено в Софт. Дата Июль 7th, 2013

24th
Янв

Программы ip-телефонии

Надо:
1). В рамках организации организовать связь. Обычные проводные телефоны проблемно.
2) Программа должна быть бесплатной
3) С помощью данной программы нужно общаться только в рамках данной конторы.
4) Скайп не подходит
5) Программа должна настраиваться под прокси.

Какие есть варианты? (читать всё…)

Добавлено в Софт. Дата Январь 24th, 2013

13th
Ноя

Программа для создания кроссвордов — Lazarus[Delphi]-версия

Программа представляет собой Клёст-кроссворд переписанный на Lazarus так же, не используя ничего нестандартного, во избежании плохой межплатформенной переносимости. Носит кодовое название OpenKlest. Смысл его заключается в создании открытого стандарта файла кроссвордов для всех компиляторов, независимо от платформы или языка.
(читать всё…)

Добавлено в Delphi, Софт. Дата Ноябрь 13th, 2011

4th
Июл

Выражение1: IIf DateDiff — работа с функцией DateDiff и функцией IIf

Пример правильной работы с функциями Microsoft Office Access IIf и DateDiff. Код лучше всего скопировать с форума. (читать всё…)

Добавлено в Софт, Топик-обзор. Дата Июль 4th, 2011

24th
Июн

В Excel прайс лист должны загружаться строки, идущие после строки заголовка названия позиции товара и загружались в соответствующую позицию второго excel прайс листа.

в Excel прайс лист должны загружаться строки, идущие после строки заголовка модели автомобиля и загружались в соответствующую модель.
(читать всё…)

Добавлено в Архив, Софт, Топик-обзор, Файлы. Дата Июнь 24th, 2011

21st
Июн

Excel электронный калькулятор для автоматизированного определения стоимости пересылки письма

skarzh88:

Есть задание: Создать электронный калькулятор для автоматизированного определения стоимости пересылки письма в иностранные государства в зависимости от типа транспорта и массы письма.

(читать всё…)

Добавлено в Софт, Топик-обзор. Дата Июнь 21st, 2011

18th
Июн

Как девушке убедить начальника ИТ отдела в необходимости установки именно access 2007, а не 2003?

Silky:

Доброго времени суток! на самом деле я не блондинка, но просьба, да и сама ситуация, глупая. С самого начала моей работы в организации не заладились отношения с главным ИТ-шником. Новый монитор, как и всем, не поставили, сканер не чинят, о приведении в чувства компьютера и речи быть не может. А теперь по сути: я занимаюсь поиском жилья и поселением персонала компании. Недавно привела дома всю необходимую информацию в порядок — адреса, реквизиты владельцев, фото коттеджей/квартир в порядок в Access 2007. Понравилось — удобно, симпатишный интерфейс. Но на заявку в ИТ отдел установить данную программу получила предварительный отказ, т.к. «лицензий на access 2007 осталось штук 7, может обойдетесь версией 2003 года..» Завтра предстоят переговоры, и я должна буду доказать преимущества и необходимость установки именно access 2007. Доводы, типа, каждая последующая версия в идеале лучше и доработеннее, не подойдут точно

(читать всё…)

Добавлено в Софт, Топик-обзор. Дата Июнь 18th, 2011

24th
Май

Защита от накрутки просмотров в битрикс

Заголовок не совсем точен. У нас скоро выходит новостной портал (работает на Битриксе редакции «эксперт»), на котором пользователи могут не только оставлять свои статьи и новости, но и зарабатывать на них. Пользователь получает премию за просмотр его статьи. При чём он получает премию не за уникальных пользователей, а за хиты. То есть если один пользователь посмотрит статью, уйдёт на чужую, а потом снова к ней вернётся, то автор статьи получает уже 2 просмотра. Соответственно возникает вопрос: как уберечься от накрутки этих показов каким-то роботом? То есть я даже не против, если автор сам накрутит. Вопрос именно в том, что нужно уберечься от ботов.

Возможно ли сделать такое? Если к каждому зарегистрированному пользователю (а деньги он получает только за зарегистрированных пользователей) привязывать при каждом переходе по ссылке новый ID? То есть сделал человек переход, а к его URL’у прибавился один номер, перешёл дальше по ссылке — номер изменился. Таким образом мы сможем исключить накрутку роботами, потому как этот номер просто так угадать нельзя.
Если это возможно без слишком большой нагрузки на сервер, то можно ли этот ID сделать не в URL’е, а где-то ещё. Просто что бы битрикс сам как-то это определял. (читать всё…)

Добавлено в CMS, Софт. Дата Май 24th, 2011

1st
Сен

РЕДАКТОР — ПРЕОБРАЗОВАТЕЛЬ WML СТРАНИЦ

Новый раздел

Во время создания wap сайта, может возникнуть проблема с отображение русской кодмровки, для корректного перевода используйте специальные программыосуществляющие перевод кода в формат wml. одну из таких программ вы можете скачать здесь . Распакуйте оба файла в одну папку и запустите приложение. Тут для вас откроет окошко с двумя полями. В первое мы вводим наш код и тут же в соседнем поле появляется новый вариант этого же кода, тот что нам и нужен.

После перевода с помощью данной программы все русские буквы в нашем wap сайте будут отображаться правильно. Вы можете просмотреть страницу и убедиться в этом. Вот что должно получится при просмотре в браузере Opera:

( посмотреть gif-файл ).

Полная версия статьи

Programming articles
Создание сайтов на шаблонах
Множество вариантов работы с графикой на канве
Шифруем файл с помощью другого файла
Перехват API функций — Основы
Как сделать действительно хороший сайт
Создание почтового клиента в Delphi 7
Применение паскаля для
решения геометрических задач
Управление windows с помощью Delphi
Создание wap сайта
Операционная система unix, термины и понятия
SQL враг или друг
Возникновение и первая редакция ОС UNIX
Оптимизация проекта в Delphi
Ресурсы, зачем нужны ресурсы
Термины программистов 20 века
Советы по созданию собственного сайта с нуля
Шифруем файл с помощью пароля
Фракталы — геометрия природы
Crypt — Delphi программа для шифрования
Рассылка, зачем она нужна и как ее организовать?
Учебник по C++ для начинающих программистов
Уроки для изучения ассемблера
Загадочный тип PCHAR
Средства по созданию сайтов
Операторы преобразования
классов is и as
Borland Developer studio 2006. Всё в одном
Создание базы данных в Delphi, без сторонних БД
Software engineering articles

Добавлено в Софт. Дата Сентябрь 1st, 2010

1st

CD ПРИВОД.

CD привода (далее просто CD)я думаю пользуются все без исключения. Давайте разберём как создать несложную программу открытия CD. Создадим новый проект. Кидаем на форму ComboBox и две Button. Создадим две функции:

function CDOpen(Drive: PChar): Boolean;
var

Res: MciError;
OpenParm: TMCI_Open_Parms;
Flags: DWord;
S: string;
DeviceID: Word;
begin

Result := false;
S := Drive + ‘:’;
Flags := mci_Open_Type or mci_Open_Element;
with OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := ‘CDAudio’;
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
if Res <> 0 then
exit;
DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
if Res = 0 then
exit;
Result := True;
finally
mciSendCommand(DeviceID, MCI_OPEN, Flags, Longint(@OpenParm));
end;
end;

function CDClose(Drive: PChar): Boolean;
var

Res: MciError;
OpenParm: TMCI_Open_Parms;
Flags: DWord;
S: string;
DeviceID: Word;
begin

Result := false;
S := Drive + ‘:’;
Flags := mci_Open_Type or mci_Open_Element;
with OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := ‘CDAudio’;
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
if Res <> 0 then
exit;
DeviceID := OpenParm.wDeviceID;
try
Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSE, 0);
if Res = 0 then
exit;
Result := True;
finally
mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm)) else
end;
end;

В процедуре создания формы пишем

procedure TForm1.FormCreate(Sender: TObject);
var
w:dword;
Root:string;
I, K:integer;
begin
k:=0;
w:=GetLogicalDrives;
Root := ‘#:’;
for i := 0 to 25 do
begin
Root[1] := Char(Ord(‘A’)+i);
if (W and (1 shl i))>0 then
if GetDriveType(Pchar(Root)) = DRIVE_CDROM then
begin
k:=k+1;
Driv[k] := Root;
ComboBox1.Items.Add(Driv[k]);
ComboBox1.Text := Driv[1];
end;
end;
end;