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

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

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

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

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

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

Возникла необходимость рисовать на картинке в компоненте 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, а на картинке рисуется сбоку.

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

Передаю параметры в Post …

Авторизация уже прошла и страничка БЕЗ ПАРАМЕТРОВ загружается,
на ней есть несколько полей и кнопка [Применить фильтр]
в запросе ей соответствует поле Filter.
Поля заполняю точно так же как это вижу сниффером в момент ручного заполнения полей и нажатия кнопки [Применить фильтр]
вот часть кода:

  код delphi: 
  ...
  ADDR := 'http://' + Edit1.Text;
  mpfd := TIdMultiPartFormDataStream.Create;
  ...
  mpfd.AddFormField('ENaklDateF', '');
  mpfd.AddFormField('ZStatusList', '(все)');
  mpfd.AddFormField('Filter', 'Применить фильтр');
  ...
  stream := TMemoryStream.Create;
  ...
  idhttp1.Post(ADDR,mpfd,stream);
  ...

Сниффер показывает, что я передаю (сниффер: HTTPAnalyzer Stand-alone)

... 
mpfd.AddFormField('ENaklDateF', ''); 
mpfd.AddFormField('ZStatusList', '(???)'); 
mpfd.AddFormField('Filter', '????????? ??????'); 
...

HTTPEncode, AnsiToUtf8, UTF8Encode не помогаю.

Как бороться с этими ВОПРОСИКАМИ , есть знатоки ???

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

Как открыть картинку формата PNG ?
Вообще, надо его конвертировать в JPG.

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

… Где то я не догоняю — как с этим бороться , передаю параметры в Post …

Авторизация уже прошла и страничка БЕЗ ПАРАМЕТРОВ загружается,
на ней есть несколько полей и кнопка [Применить фильтр]
в запросе ей соответствует поле Filter.
Поля заполняю точно так же как это вижу сниффером в момент ручного заполнения полей и нажатия кнопки [Применить фильтр]
вот часть кода:

  код delphi: 
  ...
  ADDR := 'http://' + Edit1.Text;
  mpfd := TIdMultiPartFormDataStream.Create;
  ...
  mpfd.AddFormField('ENaklDateF', '');
  mpfd.AddFormField('ZStatusList', '(все)');
  mpfd.AddFormField('Filter', 'Применить фильтр');
  ...
  stream := TMemoryStream.Create;
  ...
  idhttp1.Post(ADDR,mpfd,stream);
  ...

Сниффер показывает, что я передаю (сниффер: HTTPAnalyzer Stand-alone)

... 
mpfd.AddFormField('ENaklDateF', ''); 
mpfd.AddFormField('ZStatusList', '(???)'); 
mpfd.AddFormField('Filter', '????????? ??????'); 
...

HTTPEncode, AnsiToUtf8, UTF8Encode не помогают

Как бороться с этими ВОПРОСИКАМИ , есть знатоки ?

… Некоторые наблюдения …
Запускаю проект и смотрю, что в итоге ушло в Post Data в соответствующей переменной
Точно так же просматриваю, что отсылает на сервер http://…/OrderList.aspx
при нажатии на кнопку [Применить фильтр]

Так вот:
если я отправляю из программы — то переменная ZStatusList = ‘(???)’,
если запрос отправить со странички ручками — то переменная ZStatusList = ‘(все)’ и остальные поля тоже с русскими буковками а не с вопросиками.
Вот такая неувязочка.
( ЗЫ: Причем если получать данные со странички простым GET сразу в MEMO будет таже проблема с ВОПРОСИКАМИ а если через ПОТОК то все ок. И еще — если скомпилировать проект не на 10 INDY а на старой что идет в комплекте с дистрибутивом Delphi 7 то все ОК — вижу русский и при приеме и при отправки. )
Естественно Post отрабатывается без параметров, как будто я просто первый раз зашел на страничку.
( там данный просто за последнюю неделю отображаются ).

Что посоветуете — сносить INDY 10 и вертать старую (хотя очень не хочется да и будут думаю те еще траблы с возвратом) или есть способ побороть проблему?

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

Имеется RichEdit, в котором ведётся лог в уже отформатированном виде. У RichEdit’а есть свойство PlainText. Если оно стоит False, то RichEdit передаёт в файл не только голый текст, но и мета-данные. И можно уже не разбираться в особенностях тегирования RTF’а, а выгружать в файл уже отформатированный текст.
У RichEdit’а есть SaveToFile. Сохраняет в файл текст вместе со всем редактированием текста (цвет, шрифт, жирность/курсивность и т.д.). Но минус SaveToFile в том, что он всегда перезатерает файл.
Необходимо файл не перезатерать, а дополнять текстом.
Также как альтернатива есть SaveToStream.
Думал, что можно через него дозаписывать файл:

procedure asdasd;
var RTFfile: TFileStream;
begin
  RTFfile := TFileStream.Create('File.rtf', fmOpenWrite); //Открываем для записи в файл
  try
    RTFfile.Seek(0, soEnd); //Проматываем файл в конец
    RichEditLog.Lines.SaveToStream(RTFfile);
  finally
    RTFfile.Free;
  end
end;

Всё равно файл перезатерается, хотя в параметре Seek указал soEnd.
Залез в код SaveToStream, посмотреть как он работает, но ничего не понял.

Не подскажите как из RichEdit’a дозаписывать текст в имеющийся RTF-файл с форматированием в соответствии с тем, что было в RichEdit?

Delphi XE2.

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

Как вытащить из *.ini файла названия разделов? (В идеале вытянуть названия разделов и вбить их в ComboBox)

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

Есть строка — названия файла с расширением, как получить расширение?
«1. MyImage.png».

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