Top.Mail.Ru

Задать вопрос экспертам!

Эксперты раздела Delphi Смотреть всех

Вопросы раздела Delphi

Не как ни пойма чем они отличаются

Думаю вопрос ясен, мне нужно чтоб нельзя было писать и стирать в RichEdit. Спасибо)

Желательно по подробней, т.к я не ас по делфи))) Буду очень признателен если поможети!))

У меня 2 вопроса: 1)У меня например есть определенная папка с картинками и мне нужно чтобы при нажатие на кнопку открывалась картинка и я мог переключать между ними посредствои действий Вперед и Назад. Так вот как такое реализовать?! 2) Как сделать тоже самое только на клавиши клавиатуры.

Желательно с кодом т.к в делфи занялся совсем недавно. Спасибо))

Найти все двузначные числа, сумма квадратов цифр которых делится на 17 delphi 7 ( на компонентах spinedit1 edit1 bitbtn)....
пожалуйста поподробностей обьяснить.... 

Желательно подробнее, так как я делфи не особо знаю

Как сделать определенный компонент в делфи не активным, например label, а уже при нажатии кнопки label вновь стал активным и смог выполнять свои действия?

В ADOQuery нет свойства Mastersource, как связать три таблицы? Одна их них главная с ключевым полем Ключ, а две остальные таблицы подчиненные. В каждой из этих таблиц есть ключевое поле Товар.
Действие должно быть такое: например пользователь щёлкает на записи в таб.1, а данные этой записи отображаются в табл.2

вычислить значение выражения по формуле e^x-x-2+(1+x)^2.В делфи, все переменные принимают действительные значения

197. Разложить число на простые множители.как решить в лазарусе

Здравствуйте, начал делать браузер в делфи и возникла проблема, как создать вкладки с помощью компонента PageControl. Желательно как можно подробней, так как не очень хорошо разбираюсь в делфи.

Добрый вечер. Очень нужна программа на делфи “шифрование RC2 с созданием ЭЦП по алгоритму DSA” для текстового сообщения. Т е программа должна подписывать сообщение, верифицировать подпись, шифровать и расшифровывать сообщение. Обязательно в Delphi, а то мне будет сложно разобраться в коде. Времени мало у меня осталось, помогите, пожалуйста. Пойдет любая часть задания даже, пусть только шифрование или создание sha1(хэширование). Уменя просто несколько программ на завтра, затянул последний зачет((( делаю сейчас то, что точно хорошо знаю, а вот с криптографией не сталкивался, вот и решил попросить помощи по ней

procedure TForm6.Button1Click(Sender: TObject);
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. "__" помогите пожалуйста вот если что вся интрукцыя котороямне сказана: "____________ 1) Итак, распаковываем скаченный архив, заходим в папочку packages и копируем все от туда в: «папка куда установлена delphi\lib» и в projects\bpl. 2) Так теперь нужно не нарушая последовательности по очереди запустить следующие файлы: 3) DirectX9_D7.dpk — при возникновении каких либо ошибок не обращаем на них внимания, далее вылезет маленькое, окошечко в котором нужно нажать Compile, я подчеркиваю жмем только Compile, Instal жать не нужно. 4) Так идем дальше запускаем DSPack_D7.dpk (возможно появиться запрос на сохранение изменений отвечаем Yes) и опять если после запуска появляется ошибка закрываем глаза не неё, в маленьком окошечке нажимаем только Compile. 5) И наконец запускаем третий файл DSPackDesign_D7.dpk — теперь уже нажимаем Compile, затем Instal. ______________"

Мне нужно чтобы при воспроизведении видео в MediaPlayer, trackbar двигался паралельно с видео. Немогу ни как связать. Если есть другие варианты, то можно и другие, лишь бы работало. Заранее спасибо.

Здравствуйте.

У меня такой вопрос: как использовать формулу для вычисления, введенную в TEdit?

Например я ввожу в поле Edit 'sin(x)' в другой Edit значение X и мне соответственно нужно программно извлечь формулу из edit'а, либо посчитать значение в нём… Подскажите как это реализовать?

Заранее благодарен

Очень нужен jsWebBrowser.pas и его ресурс jquery.res для работы с javascript в Delphi Webbrowser. Все ссылки, которые нашел, битые Помогите найти или поделитесь, у кого есть

Создаю 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 ячеек с информацией о расположенныхв них монстров. В нулевой ячейке хранится информация о герое отряда если таковой есть в отряде. В битве встречаются два отряда соперников. Главная проблема это расположить монстров и героев в очереди опираясь на их характеристику «приоритет». А затем все по очереди должны ходить и бить по соседним клеткам с монстрами соперников. А летающие монстры могут перелетать через ограды, которые могут быть на карте битвы. Все монстры занимают различное количество клеток (ширина, длина и высота). Вот как это хранить правильно, чтобы изменялась непроходимость участка с монстрами разной величины и правильно искать путь для летающих монстров через преграды — я пока не придумал. Буду благодарен за любую информацию: советы, ссылки на статьи, алгоритмы и тд. Заранее спасибо всем.

и кодировка там китайская, как я понял. Я с помощью программы ResHacker переводил CAPTION но при нажатии кнопки должна открываться форма того длл файла, этого не происходит. Менял Китайские символы на Русские
следующие свойства:  Размер формы: ширина – 700 пикселей, высота – 500 пикселей.  Заголовок формы – Лабораторная работа № 8.  Для предотвращения изменения размера окна указанные размеры задать в свойстве Constraints формы. 3. С использованием компонентов сконструировать интерфейс программы. Форма должна включать элемент управления PageControl на две вкладки. В каждую вкладку добавить табличную структуру StringGrid из 7 столбцов и 11 строк. Число фиксированных строк – 1, фиксированных столбцов – 0. Заголовки столбцов необходимо прочитать из внешнего текстового файла. Структура этого файла – 7 строк с наименованиями столбцов. Чтение заголовков для столбцов выполнить однократно и присвоить строки с именами столбцов каждой таблице. В данном примере чтение заголовков таблиц происходит из файла с псевдонимом fHead в цикле до m = 6. Параметр цикла i является счѐтчиком столбцов. Для присвоения ячейкам нулевой строки значения считанного из файла заголовка используется промежуточный одномерный строковый массив Head[0..m]. //Блок чтения заголовков таблиц из внешнего файла //и присвоения строковых значений всем ячейкам нулевой строки for i := 0 to m do begin ReadLN(fHead, Head[i]); StringGrid1.Cells[i,0]:=Head[i]; StringGrid2.Cells[i,0]:=Head[i]; end; 7 Заполнение таблицы в первой вкладке должно происходить программно данными, считанными из внешнего текстового файла. Текстовый файл должен иметь структуру, соответствующую столбцам 1–й таблицы. Данные для одной строки (7 полей) должны быть записаны в 7 последовательных строк. Например, для данной таблицы первые семь строк текстового файла Data.txt имеют вид: 1 Иванов Пѐтр Сергеевич 18.05.1958 Главный инженер 16000 Для использования в 1–й таблице данных о 10 сотрудниках необходимо ввести 70 строк. Чтение из файла происходит построчно. Для данной задачи чтение может быть выполнено следующим образом: AssignFile (fData, 'Data.txt'); Reset(fData); for i := 1 to n do for j := 0 to m do begin Readln(fData, S[j, i]); StringGrid1.Cells[j,i] := S[j, i]; end; CloseFile(fData); Чтение заголовков таблиц, данных для заполнения 1–й таблицы должно происходить при загрузке программы. 8 4. Вторая вкладка должна содержать таблицу того же размера, что в 1–я таблица. Данные во 2–й таблице необходимо заполнить самостоятельно и вывести во внешний файл построчно в том же формате, что и для файла исходных данных. Например, при выгрузке заполненных данных в текстовый файл в нѐм последовательно для первой записи таблицы должны быть сформированы строки: 1 Рузаев Дмитрий Александрович 12.04.1973 Инженер-проектировщик 18000 Для редактирования 2–й таблицы в свойствах компонента StringGrid необходимо следующим параметрам задать значение True: goEditing – для возможности редактирования ячеек таблицы, goTabs – для возможности перехода по таблице клавишей Tab при заполнении таблицы по строкам, goColSizing – для возможности изменять ширину столбцов для удобства отображения данных. Этот параметр так же необходимо задать и в первой таблице. Таким образом, для начального этапа работы программы необходимо создать два текстовых файла – с наименованиями заголовков к таблицам и исходными данными для заполнения 1–й таблицы. Результатом работы программы должен быть текстовый файл с данными сотрудников Проектного отдела)

Как при чтении из файла в двумерный массив пропускать значения? массив предварительно инициализируется, первая часть содержить номера элементов, а вторая получается из загружаемых значений из текстового файла.

. Пребразовать двумерную матрицу размерности 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(компьютер-компьютер) или через кабель). Подскажите в каком направлении мне нужно двигатся, чтобы создать чат, который можно было бы использовать в обычной сети. Статьи/исходники чатов приветствуются.

Задача: Создать оконное приложение, позволяющее вводить с клавиатуры список строк в поле редактора Memo, а затем нажатием кнопки добавляет число строк. Срочно нужна помощь))
...
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
excel   python   wi-fi   windows   windows 7   word   браузер   видеокарта   вики   вирус   драйвера   звук   игры   интернет   клавиатура   комп   компьютер   компьютеры   монитор   ноутбук   ошибка   пк   помогите   помощь   принтер   проблема   программа   программирование   сайт   срочно  

Задай вопрос экспертам по Delphi