Задать вопрос экспертам!
Вопросы раздела Delphi
Не как ни пойма чем они отличаются
Думаю вопрос ясен, мне нужно чтоб нельзя было писать и стирать в RichEdit. Спасибо)

Консультация по интеграции LLM GPT
Проконсультирую по интеграции LLM GPT и сервиса coreapi.ru в ваши проекты
Желательно по подробней, т.к я не ас по делфи))) Буду очень признателен если поможети!))

Консультация по интеграции LLM GPT
Проконсультирую по интеграции LLM GPT и сервиса coreapi.ru в ваши проекты
У меня 2 вопроса: 1)У меня например есть определенная папка с картинками и мне нужно чтобы при нажатие на кнопку открывалась картинка и я мог переключать между ними посредствои действий Вперед и Назад. Так вот как такое реализовать?! 2) Как сделать тоже самое только на клавиши клавиатуры.
Желательно с кодом т.к в делфи занялся совсем недавно. Спасибо))
Найти все двузначные числа, сумма квадратов цифр которых делится на 17 delphi 7 ( на компонентах spinedit1 edit1 bitbtn)....
пожалуйста поподробностей обьяснить....
Желательно подробнее, так как я делфи не особо знаю
Как сделать определенный компонент в делфи не активным, например label, а уже при нажатии кнопки label вновь стал активным и смог выполнять свои действия?
Действие должно быть такое: например пользователь щёлкает на записи в таб.1, а данные этой записи отображаются в табл.2
вычислить значение выражения по формуле e^x-x-2+(1+x)^2.В делфи, все переменные принимают действительные значения
197. Разложить число на простые множители.как решить в лазарусе
Здравствуйте, начал делать браузер в делфи и возникла проблема, как создать вкладки с помощью компонента PageControl. Желательно как можно подробней, так как не очень хорошо разбираюсь в делфи.
Добрый вечер. Очень нужна программа на делфи “шифрование RC2 с созданием ЭЦП по алгоритму DSA” для текстового сообщения. Т е программа должна подписывать сообщение, верифицировать подпись, шифровать и расшифровывать сообщение. Обязательно в Delphi, а то мне будет сложно разобраться в коде. Времени мало у меня осталось, помогите, пожалуйста. Пойдет любая часть задания даже, пусть только шифрование или создание sha1(хэширование). У
Label lb1;
var i,a,b:integer;
key:char;
begin
ShowMessage('Privet parthner!'+#13+'Я рад, что вы состязаетесь со мной!'
+#13+#13+'Отгадайте мое любимое число!'+#13+'Для справки: оно меньше тысячи.');
lb1: Randomize;
b:=Random(1000);
i:=0;
a:=Round(StrToFloat(InputBox('Ввод числа','Введите число','')));
Repeat
if a<b then a:=Round(StrToInt(InputBox('Ввод числа','Больше','')));
if a>b then a:=Round(StrToInt(InputBox('Ввод числа','Меньше','')));
i:=i+1;
if not (key in ['A'..'Z']) then begin ShowMessage('Только цифры!');
end;
until a=b;
case i of
1..9:ShowMessage('Это случайность!');
10:ShowMessage('Чудесно!');
11,12:ShowMessage('Очень хорошо!');
13,14:ShowMessage('Посредственно!');
else ShowMessage('Удачно!');
end;
If MessageDlg('Сыграем еще?',mtInformation,[mbYes,mbNO],0)=mrYes
then goto lb1;
ShowMessage('Пока.');
end;
end.
Необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от xn до xk с шагом h=(xk-xn)/n. Близость значений S(x) и Y(x) во всем диапазоне значений x указывает на правильность вычисления S(x) и Y(x).
Задание приложила, вариант 12 и 14
У меня есть плейр, и оболочка, и внем при нажатие например на кнопку открывается видео, так вот какой код нужен чтоб при нажатие на кнопку видео открывалось на весь экран? Видео воспроизводится на панеле.
DSPack. расскажите о установке компонента DSPack. в обычной инструкции по установке сказано "___ 1) Итак, распаковываем скаченный архив, заходим в папочку packages и копируем все от туда в: «папка куда установлена delphi\lib» и в projects\bpl. ___" я понятия не имею где эта папка -> "__«папка куда установлена delphi\lib» и в projects\bpl. "__" помогите пожалуйста вот если что вся интрукцыя котороя
Мне нужно чтобы при воспроизведении видео в MediaPlayer, trackbar двигался паралельно с видео. Немогу ни как связать. Если есть другие варианты, то можно и другие, лишь бы работало. Заранее спасибо.
Здравствуйте.
У меня такой вопрос: как использовать формулу для вычисления, введенную в TEdit?
Например я ввожу в поле Edit 'sin(x)' в другой Edit значение X и мне соответственно нужно программно извлечь формулу из edit'а, либо посчитать значение в нём… Подскажите как это реализовать?
Заранее благодарен
Создаю VCL приложение, в котором с помощью REST компонентов намереваюсь получить доступ к Dropbox
Успешно создал api-приложение на сайте разработчиков Dropbox, на форме моей программы авторизируюсь и получаю access_token.
Дальше пытаюсь скачать файл, но не получается правильно составить запрос
Вот моя попытка
В документации сказано запрос составлять так
https://www.dropbox.com/developers/documentation/http/documentation#files-download
При попытке выполнить срабатывает исключение «400 Bad Request»
В чем ошибка?
Здравствуйте, у меня такой вопрос, я хочу сделать приложение про отличия в картинках, и чтоб к примеру при нахождении отличия и при нажатии, выводилось сообщение что 1 отличе найдено. Прошу кто чем поможет
У меня вопрос по работе с сетью в Delphi
С помощью REST library (с которой знаком поверхностно) подключаюсь к google drive api
в OAuth2Authenticator-е успешно получил Access и Refresh token-ы
пытаюсь обновить AccesToken так, как на фото

получаю исключение
ETHTTPProtocolException with message 'HTTP/1.1 404 not found'
Видимо неправильно составил запрос
Но параметры добавлял все те, которые указаны в документации google
https://developers.google.com/identity/protocols/OAuth2WebServer
(Пункт Refreshing an access token (offline access))
Как правильно составить запрос?
Дана задача
На форме находятся 3 обьекта: edit1,edit2 и button1.
Нужно, чтобы после ввода строки в edit1 и клике на кнопку button1, в edit2 появлялась эта же строка, только перевернутая
Добрый день! Вопрос такой, у меня есть хостинг и статический IP адрес и мне нужно создать такую систему как удаленное упрвление, к примеру один комп дома а второй на работе и сидя дома я должен управлять программой которая на работе, естественно оба компа должны быть привязаны к одному хосту, теперь у меня несколько вариантов вопроса.
1. возможно ли передавать и принимать
2. если обязательно требуется программа на хостинге то как реализовать эту систему?
Вообщем нужно сделать так чтобы 2 или несколько компьютеров общались друг сдругом по командам, а еще хостинг у меня на Linux-е. Заране благодарен.
Добрый вечер. Я решил сделать игрушку на подобие героев меча и магии 3 с 2д графикой, но со своей спецификой. Подскажите как правильно организовать саму пошаговую битву? Я сам пытался создавать алгоритмы, но они иногда неправильно работают и к тому же требуют хранения большого количества информации. Я придумал массив отрядов игроков. В каждом отряде 11 ячеек с информацией о расположенных
Как при чтении из файла в двумерный массив пропускать значения? массив предварительно инициализируется, первая часть содержить номера элементов, а вторая получается из загружаемых значений из текстового файла.
. Пребразовать двумерную матрицу размерности n∙n в одномерный массив путем обхода всех элементов двумерной матрицы по скручивающейся против часовой стрелке спирали. Прога будет состоять из 2ух массивов первый это квадратная матрица 3х3 2х2 и т.д. второй просто массив по порядку числа которые мы нашли в матрице (по условию) Ещё раз повторю написать в Delphi 6-7.
вот мой исходный код
- procedure TUserForm.bbDrawnClick(Sender:TObject);
Var i,j:integer;
begin
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clBlack;
for i:=1 to 4 do
for j:=1 to 4 do
UserImage.Canvas.rectangle(0+(i-1)*150,0+(j-1)*150,75+(i-1)*150,75+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clBlack;
for i:=1 to 4 do
for j:=1 to 4 do
UserImage.Canvas.rectangle(75+(i-1)*150,75+(j-1)*150,150+(i-1)*150,150+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clOlive;
for i:=1 to 4 do
for j:=1 to 2 do
UserImage.Canvas.ellipse(5+(i-1)*150,5+(j-1)*150,70+(i-1)*150,70+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clOlive;
for i:=1 to 4 do
for j:=1 to 1 do
UserImage.Canvas.ellipse(80+(i-1)*150,80+(j-1)*150,145+(i-1)*150,145+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clWhite;
for i:=1 to 4 do
for j:=1 to 2 do
UserImage.Canvas.ellipse(80+(i-1)*150,380+(j-1)*150,145+(i-1)*150,445+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clWhite;
for i:=1 to 4 do
for j:=1 to 1 do
UserImage.Canvas.ellipse(5+(i-1)*150,455+(j-1)*150,70+(i-1)*150,520+(j-1)*150);
end; - procedure TUserForm.UserImageDblClick(Sender: TObject);
Var i,j:integer;
begin
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clBlack;
for i:=1 to 4 do
for j:=1 to 4 do
UserImage.Canvas.rectangle(0+(i-1)*150,0+(j-1)*150,75+(i-1)*150,75+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clBlack;
for i:=1 to 4 do
for j:=1 to 4 do
UserImage.Canvas.rectangle(75+(i-1)*150,75+(j-1)*150,150+(i-1)*150,150+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clWhite;
for i:=1 to 4 do
for j:=1 to 2 do
UserImage.Canvas.ellipse(5+(i-1)*150,5+(j-1)*150,70+(i-1)*150,70+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clWhite;
for i:=1 to 4 do
for j:=1 to 1 do
UserImage.Canvas.ellipse(80+(i-1)*150,80+(j-1)*150,145+(i-1)*150,145+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clOlive;
for i:=1 to 4 do
for j:=1 to 2 do
UserImage.Canvas.ellipse(80+(i-1)*150,380+(j-1)*150,145+(i-1)*150,445+(j-1)*150);
UserImage.Canvas.pen.color := clBlack;
UserImage.Canvas.brush.color:= clOlive;
for i:=1 to 4 do
for j:=1 to 1 do
UserImage.Canvas.ellipse(5+(i-1)*150,455+(j-1)*150,70+(i-1)*150,520+(j-1)*150);
end;
Здравствуйте, создал сетевой чат по статье pblog.ru/?p=91 с помощью клиент и сервер сокетов. Все работает, но связь устанавливается только при личном соединении компьютеров(wi-fi(компьютер-компьютер) или через кабель). Подскажите в каком направлении мне нужно двигатся, чтобы создать чат, который можно было бы использовать в обычной сети. Статьи/исходники чатов приветствуются.