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

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

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

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

Прога общается с сервером по 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, а на картинке рисуется сбоку.

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

Столкнулся с необычной проблемой. У меня есть макрос в котором есть 6 циклов и каждый цикл разной длины и размерности. Суть моего макроса это сравнение двух разных книг и копирование всей информации из одной книги в другую при этом учитывает чтобы кол-во строк было равным, и поэтому в макросе много циклов. Сам макрос выполняется около 40 сек. Так вот возник вопрос как отобразить процесс выполнения макроса. Читал много разных идей но так и не нашёл нужный вариант. Т.е. мне не нужно создавать форму и делать в ней прогресбар для меня лучший вариант отображение в статус бар что упрощает вывод индикации. Ниже код который я использую для того чтобы видеть прогресс, но он работает если его вставить в один цикл, тогда понятно как связать его с макросом но у меня много разных циклов.

Так вот вопрос: как привязать данный код к макросу с множеством циклов? И можно ли запустить индикацию так чтобы параллельно выполнялся макрос? Ну и получится что я буду видеть ход выполнения макроса.
(читать всё…)

Помогите пожалуйста написать программу для PIC12F629. Нужен следующий алгоритм: питание подал — постоянно горит светодиод №1, светодиод №2 не горит. Кнопку нажал и держишь, светодиод №1 сразу потух, светодиод №2 горит. Кнопку отпустил — светодиод №2 моргает 3 секунды после чего загорается светодиод №1. Какие ноги будут задействованы разберусь сам из кода. В наличии установлены micropascal pro for pic и mplab ide.

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