Как сделать на Delphi чтобы персонаж обходил препятствия?

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

Можно ли как нибудь сделать прозрачную форму по краям рисунка PNG и вообще как его поставить на форму?

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

Разработать алгоритм преобразования сферических координат в декартовы… дать графическую иллюстрацию.

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

Автоматически создаются документы в ворде на несколько сотен страниц состоящие из текста и таблиц. Вопрос как удалить пустые строки в табличной части документа.

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

Прога общается с сервером по api по https.
Она была написана около 3-х лет назад. Работала исправно до сегодняшнего дня.
Писалась на Delphi 10.2.
Используется компонент IdHTTP.

При выполнении idhttp1.Post возвращает ошибку:
Error connecting with SSL.
error:1409442E:SSL routines:ssl3_read_bytes:tlsv1 alert protocol version.

Так понимаю, что сервер теперь использует протокол другой версии…

Качаю более свежие библиотеки libeay32.dll и ssleay32.dll, не помогает

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

Я пытаюсь научится печатать содержимое окна. Из того, что я нашел в интернете, все выглядит очень просто, также как и рисование в окне. Только лишь надо сначала выбрать принтер, да еще добавить функции StartDoc и StartPage в начале и EndDoc и EndPage в конце печати. Только почему-то не получается. Принтер выбрать удается и он начинает работать, но выдает пустую страницу. Если вместо реального принтера выбрать pdf файл, то файл создается. Но при попытке открыть его выдается сообщение о «внутренней ошибке».
Внизу привожу мой пробный код. Этот код просто пытается нарисовать одну линию в качестве пробной печати. Пытался также вместо линии копировать содержимое всего окна через BitBlt, результат тот же самый — пустая страница или pdf файл с «внутренней ошибкой».

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

Есть таблица, в которой содержится каталог IP адресов. Нужно их пингануть в двух вариантах:
1. С открытием отдельного окна cmd с запуском стандартной программы ping.
2. Пингануть без открытия окна, с возвратом успешности или нет. Для занесения результата (успешно/нет) в таблицу.

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

Игра Судоку, исходник на PascalABC.net

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

Стоит задача выводить на произвольной ширины битмапе текст. Текст может быть длиннее, чем ширина битмапа. Нужен алгоритм, который выводит текст, разбивая его на строки (если в одну строку не влезает) и центруя.

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

Возникла необходимость рисовать на картинке в компоненте TImage.
У Image1 установлено свойство Stretch и Proportional в true.

На пустом компоненте рисуется без проблем в том месте где проходит курсор мыши следующим образом:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with Image1.Canvas do begin
   Pen.Color:= clNavy;
   Pen.Width:= 10;
   MoveTo(X, Y);
 end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then Image1.Canvas.LineTo(X, Y);
end;

Проблема возникает тогда, когда в компонент Image1 загружается какая-то картинка, реальный размер которой не равен размеру Image1. Благодаря установленным свойствам она подгоняется под размеры компонента, но при этом линии перестают рисоваться в том месте где находится курсор и той толщиной, которая была установлена. К примеру рисую в центре Image, а на картинке рисуется сбоку.

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