Последние записи
- Как убрать окно «Подтвердите повторную отправку формы»?
- Windows Driver Framework — подпись драйвера
- Функция GetCurrentProcessToken (processthreadsapi.h)
- With … do и вызов функции. Как получить указатель на сам объект?
- TChromium обработка клика
- Delphi 7: замостить TImage маленьким изображением
- Определить, что кнопка зажата сейчас
- ATmega128 — При появлении положительного фронта на входе PD3 запустить таймер-счётчик 0
- Можно вставить в HTML элемент из XML?
- Не получается запустить компьютер, при старте показывает no codec initialized
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
20th
Ноя
Использование OpenCL в Delphi-коде под Win64
Для ускорения расчётов в программе, написанной на Delphi XE2 (…XE6), ранее использовались потоки (объект TThread) на CPU. Сейчас возникла идея использовать возможности GPU. Простой, как казалось, путь — подключить модули (заголовочные файлы к OpenCL.dll по сути) — и использовать возможности OpenCL от Khronos Groupe.
Работает всё это, но…только при компиляции дельфового проекта под Win32. А мне нужны большие массивы, динамические: компиляция всей научной программы под Win64 просто необходима (используем иногда до 12 Гбайт оперативки CPU).
При компиляции под Win32 работает, а под Win64 — нет!!
16th
Ноя
Нарисовать синусоиду или огибающую на PaintBbox с использованием BASS.DLL
мне нужно нарисовать синусоиду или огибающую на paintbox , не могу найти ,как сделать это на bass.dll , есть примеры с WAV форматом , через звуковую карту непосредственно , а мне так не надо.Типа этого.Спасибо.
15th
Ноя
Сделать неактивными часть элементов в RadioGroup
Хотелка: после считывания базы данных те месяцы, которых еще нет в базе, в subj сделать невозможно-выбранными или вообще невидимыми.
RadioGroup1.Buttons[0].Enabled:= false;
RadioGroup1.Buttons[6].Enabled:= false;
RadioGroup1.Buttons[7].Enabled:= false;
RadioGroup1.Buttons[5].Enabled:= false;
RadioGroup1.Buttons[11].Enabled:= false;
14th
Ноя
Установить RadioButton в соответствии со значением в таблице базы данных
На форме 2 RadioButton. при вызове этой формы должно быть условие: если в БД в определенном поле значение 0, то активен RadioButton1, если в БД в этом поле 1, то активен RadioButton2.
28th
Окт
Нужно ли чистить память локальных переменных, используемых в функциях?
Нужно ли чистить память локальных переменных, используемых в функциях?
Особенно интересует нужно ли освобождать объекты, типа TStringList.
Нужно. Исключение строки и динамическские массивы.
26th
Окт
Узнать имя компонента зная его координаты на форме
Как узнать имя компонента зная его координаты на форме? (читать всё…)
23rd
Окт
Команды Cmd в консоли Delphi
Насчёт запуска какого нить файла понятно:
ShellExecute или WinExec
А как выполнять другие команды cmd с параметрами?
Например:
del /S/F/Q %USERPROFILE%\AppData\Local\Temp\*.*
Или
copy /y file1.txt file2.txt
или
MKDIR Newfolder
или
XCOPY /E/G/H/Y 'D:\myfiles\*.*' 'j:\backup\myfiles\*.*'
или
ATTRIB -R-A-S-H C:\folder /D
Ну и т.д.
Если можно конкретные примеры.
20th
Окт
Выбор случайных вопросов без повторений
К примеру есть 57 вопросов из которых должны отобразится всего 15 у пользователя на экране.
Каждый следующий вопрос должен появляться при нажатии кнопки.
Но как показала практика из за генерации случайных чисел вопросы могут выпадать по два раза подряд одни и те же. Или за все время прохождения теста.
Вопрос, как сделать проверку чисел чтобы не выводить значения которые уже были?
7th
Окт
Распаковка определённых файлов/папок из 7zip (sevenzip.pas)
Использую код:
Код:
uses
...sevenzip, ...
function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;
begin
if total then
Form1.sprgrsbr1.Max:= value
else
Form1.sprgrsbr1.Position:= value;
Result:= S_OK;
end;
function Decompress(FileName, DestDir, ArcFname: String; ArcDir: Boolean ): Boolean;
var
i: Integer;
ItP: string;
items: array[1..11] of Cardinal;
sprgrsbr1: TsProgressBar;
begin
Result:= False;
Application.ProcessMessages;
try
with CreateInArchive(CLSID_CFormat7z) do
begin
OpenFile(FileName);
SetProgressCallback(sprgrsbr1, ProgressCallback);
for i:= 1 to NumberOfItems - 1 do
if not ItemIsFolder then
//ExtractItem(items, Steam, False); - как ей пользоваться в душе не понимаю...
ExtractTo(DestDir);
end;
finally
Result:= True;
end;
end;
Как распаковать только нужные, кто знает подскажите..?
Вот файлы 7zip
30th
Сен
Сохранение экрана и звука в AVI файл
Как сделать такую программу которая могла бы записывать все что происходит на компьютере в AVI файл?
(желательно со звуком).
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit 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 (Компьютерное железо)