
Последние записи
- PostgreSQL — чтение файла
- Обязательное прикрепление изображений
- Игра «Крестики-Нолики» на чистом HTML (без скриптов)
- Динамическое создание массива TScrollBar
- Как разместить форму в панель задач?
- CMD скрипт, запустить из memo
- Как проверить работу сессий на PHP
- Как узнать дату окончания сертификата
- Как передать значение во внешний JS-скрипт?
- Определить количество знаков после запятой

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

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
13th
Июн
Как вывести русский текст в графическом режиме? Pascal.
uses graph, dos;
{$L EGA3FONT.OBJ}
procedure Ega3Font; external;
var gd, gm: integer;
begin
SetIntVec($1F, @Ega3Font);
gd := detect;
InitGraph(gd, gm, '');
OutTExtXY(260, 220, 'Что-то в dos-кодировке');
ReadLn;
CloseGraph;
end.
EGA3FONT – шрифт, выдранный из русского доса, содержит символы с кодами 128-255 (русские буквы и псевдографика), пропущенный через утилиту binobj и слинкованный с программой.
В аттаче пример и русские векторные шрифты (те, что через SetTextStyle выбираются)
13th
Аудио вКонтакте.
И так, в последнее время развелось очень много программ – фейков для вконтакта. Некоторые программы ищут музыку вконтакте, и дают возможность скачать её. Программам этим я не доверяю, и решил сделать свою, для себя. Разубеждать меня не надо =)
Вопрос: как получить ссылку на скачивание той или иной музыки?
Исходный код audio.php перерыл, ссылок не нашел, хорошо, видать, Дуров защитил =)Может, кто поможет.. Я не прошу написать за меня код, прошу просто подсказки. Копирование из кеша неподойдет.
http://cs4586.vkontakte.ru/u2663363/audio/61bea91731fc.mp3
вот, надеюсь понятно?)) (правда запоздал немного)
вот моя старая функция(раньше то везде ссылок чистых не было)
function WB_AudioLinkMP3(sourse:string):string;
var s:string;
begin
s:=sourse;
if Pos('operate',s)=0 then exit;
Delete(s,1,PosEx('(',s,Pos('operate',s)));
Delete(s,1,Pos(',',s));
sourse:='http://cs'+Copy(s,1,pos(',',s)-1);
Delete(s,1,Pos(',',s));
sourse:=sourse+'.vkontakte.ru/u'+Copy(s,1,pos(',',s)-1);
Delete(s,1,Pos(',',s));
sourse:=sourse+'/audio/'+Copy(s,2,pos(',',s)-3)+'.mp3';
Result:=Sourse;
end;
правда он не очень оптимизирован
можно и лист бокс, раньше я когда то занимался этим(сейчас то вернусь в эту тему…но не раньше чем разберусь со своей библиотекой классов на С++/Delphi(правда С++ важнее в этом плане))
я юзал листбокс, а если парсить и далее этой кнопки(данные песни) то можно и в листвиев все запихать как угодно
Интересная тема на форуме. Советую присоединиться к обсуждению.
11th
Июн
Рассылка. Выпуск 62.
От ведущего рассылки.
Добрый вечер читатели. Сегодня выходит очередной 62 выпуск рассылки клуба программистов. В этом номере вы сможете прочитать обзор интересных тем с форума, и еще последнюю статью с третьего номера журнала ПРОграммист.
11th
Создание exe-файла
Для удовлетворения любопытства, создаю минимодель простейшего компилятора. Пока остановился на стадии синтаксического разбора(выполняется операция “сдвиг-свертка”), следующим шагом будет построение триад, однако забегая вперед задумался над вопросом, как создать исполняемый файл. Прошу вкратце объяснить, как создается exe-шник, или даже просто com-файл. Заранее благодарен за внимание
Интересная тема на форуме о низкоуровневом программировании.
10th
Июн
Перегрузка оператора “=”(присваивание)
Класс person содержит поля beg1 (как минимум)
person &person:perator=(person &z) //в левой и правой частях от оператора два объекта типа person
{
node1 *p, *pend, *pz;
if (&z == this) return *this; //если правая и левая часть равны возвращаем левую часть
if (z.beg1==NULL) beg1=NULL;
else {p=new node1;
if (p==NULL) {cout<<"ERROR... Lack of Memory.\n"; //типа не удалось выделить память
getch(); //задерживаем экран чтобы пользователь прочитал ошибку
exit(-1); //завершаем выполнение программы
}
p->d=z.beg1->d;
p->next=NULL;
beg1=p;
pend=p;
for (pz=z.beg1->next;pz!=NULL;pz=pz->next) //в этом цикле в p присваивается z.beg1
{p=new node1;
if (p==NULL) {cout<<"ERROR... Lack of Memory.\n";
getch();
exit(-1);
}
p->d=pz->d; //присваиваем поле d
p->next=NULL; //на каждой итерации мы предполагаем что этот элемент последний
pend->next=p; //pend теперь не последний, делаем
pend=p; //его таковым
}
}
return *this; //возвращаем текущий объект
}
10th
Создание робота и все что с ним связанно
Интересная тема на форуме о создании роботов. Со ссылками на интересные ресурсы, советами и размышлениями.
9th
Июн
Игра FunWorld2
Форумчанин Манжосов Денис представляет вашему вниманию вторую часть игры Fun World.
Задача: дойти до конца уровня, желательно собрав все шарики. Уровней 9(два тестовых-скоростных и 7 нормальных). Игра написана на собственном движке, вывод графики через Canvas, на форме нет ничего кроме таймера. Отличия от первой версии:
1) Динамичная структура карты. Уровни могут быть неограниченно большими.
2) Переделана система столкновений. Багов нет!
3) Добавление своих текстур в игру, модификация игры
4) “Плавающая” камера;
Ну это не всё, пунктов много, но все они не столь значительны…Версия можно сказать тестовая, так как есть новые версии игры, но в них нет уровней и пока что сыроватые относительно этой. Найти остальные версии можно здесь FunWorld2
В новых версиях вместо fmod.dll используется bass.dll, есть анимация, редактор переоформлен, доработка старой версии, чекпоинты… Новые версии создаются при поддержке Perfect-Light!
В-общем, я жду Вашего мнения об игре. Спасибо за внимание!
FunWorld2
9th
Анализ введённой строки на наличие цифр. Java.
Как можно сравнить каждую букву в введённой пользователем строки символов на наличие цифр?
примерно так
if(!str.matches("^\\D*$")){
//содержит
}else{
//не содержит
}
7th
Июн
IE и закрывающийся тег LI
Столкнулся со следующей проблемой
...
echo '<li id="'.$field.'">'.$title.'</li>';
echo <div>...</div>
...
так вот в 1 строке </li> не обрабатывается, т.е. див рисуется прямо в <li> а потом в конце автоматически создается </li>
И еще, если в реквесте в ИЕ есть переменные типа ¬_redirect то в ие почемуто заменяется $not на какой то спец символ.
Решение было найдено быстро.
Все, решено – косяк в том что IE не позволяет никаких структур в <UL> кроме <LI> ну или по крайней мере <DIV>
Облако меток
реестр css timer ассемблер SaveToFile ShellExecute массив советы word программы random pos SQL MySQL ListView дата компоненты form LoadFromFile база данных сеть RichEdit html php indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет excel Microsoft Office Excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту

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

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

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)