Нужно отредактировать строку в буфере обмена. А именно: убрать из неё CRLF’ы с их заменой на » » или «,». Собственно замену символов в строке я могу сделать. Интересует именно как скопировать содержимое буфера обмена в String. Как это можно сделать?

Варианты подходящих решений, как я вижу на настоящий момент:
1) Отредактировать строку с заменой символов прямо в буфере обмена и потом скопировать её в переменную типа String
2) Скопировать в переменную типа String содержимое буфера обмена и уже там делать замену символов.

Второе думаю проще?

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

Для своих классов можно просто добавить свойство Self (или любое иное имя), которое вернет ссылку на объект.

И как его добавить?

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

Почему деление на 0?

Function ProbelsInStr(const s:string128; const c:char; const chastota, nachalo:byte):ShortString;
asm
  mov ecx, 0
  mov cl, chastota

  push ebx
  push edi
  push esi

  mov edi, result
  mov esi, s

  mov eax, 0
  mov al, [esi]
  mov edx, 0

  div ecx

  pop esi
  pop edi
  pop ebx
end;

Почему на «div ecx» выдаёт ошибку деления на ноль?

Почему после такого кода

  mov ecx, 0
  mov cl, chastota

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

Как сделать на 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, не помогает

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

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

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

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

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

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