При печати графического файла распечатывается только часть изображения. Подскажите, как вывести на печать все изображение?
Использовал такой код:

 using (var pd = new System.Drawing.Printing.PrintDocument())
            {
                               pd.PrintPage += (o, en) =>
                {
                    var img = System.Drawing.Image.FromFile(@"D:\Scan.jpg");

                    en.Graphics.DrawImage(img, new Point(100, 100));
                };
                pd.DefaultPageSettings.Landscape = true;
                pd.Print();

            }

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

Какие существуют аналоги WinAPI-шных функций FindFirstFile, CopyFile, DeleteFile в Qt?

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

Вопрос по использованию технологии OLE Automation. Есть интерфейс IWFBP, который непосредственно наследуется от IDispatch. Как я могу ссылку на этот интерфейс передать в стороннюю функцию, а в последующем использовать её? Допустим, у меня сейчас есть следующий код этой функции(пытаюсь использовать тип VARIANT):

void Func(VARIANT WFBL) {
   WFBL.Func1();
}

Здесь Func1 собственно функция интерфейса, WFBL — ссылка на него. Компилятор ругается, что он не видит Func1() в составе WFBL, причём ещё до компиляции. В чём может быть ошибка?

Пытался заменить VARIANT WFBL на IDispatch* WFBL, с последующим приведением переданного указателя к указателю на IWBP с помощью dynamic_cast. Предварительно импортировав библиотеку типов из нужной DLL. В этом случае компилятор уже видит Func1, но при написании чего-то вроде WFBL->Func1() во время выполнения вылезает ошибка Access violation с указанием на данную строку.

Буду признателен, если кто-то сможет помочь разобраться.

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

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

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

Как перевернуть второй экран? На 90 и 180 градусов. Основной я разобрался:

procedure ChangeOrientation(NewOrientation:DWORD);
var
  dm      : TDeviceMode;
  dwTemp  : DWORD;
  dmDisplayOrientation : DWORD;
begin
   ZeroMemory(@dm, sizeof(dm));
   dm.dmSize   := sizeof(dm);
   if EnumDisplaySettings(nil, DWORD(ENUM_CURRENT_SETTINGS), dm) then
   begin
      Move(dm.dmScale,dmDisplayOrientation,SizeOf(dmDisplayOrientation));
      // swap width and height
      if Odd(dmDisplayOrientation)<>Odd(NewOrientation) then
      begin
       dwTemp := dm.dmPelsHeight;
       dm.dmPelsHeight:= dm.dmPelsWidth;
       dm.dmPelsWidth := dwTemp;
      end;

      if dmDisplayOrientation<>NewOrientation then
      begin
        Move(NewOrientation,dm.dmScale,SizeOf(NewOrientation));
        if (ChangeDisplaySettings(dm, 0)<>DISP_CHANGE_SUCCESSFUL) then
         RaiseLastOSError;
      end;
   end;
end;

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

Имеется задача отрисовывать текст по выбранному шрифту на Image в определенном формате. При этом текст сразу отрисовываться сразу одной строкой не может, т.к. элементы строки содержат разный цвет, поэтому отрисовка текста происходит в цикле со смещением вправо.
Проблема возникает в том, что на выходе текст обрезается, т.к. по каким-то причинам некорректно рассчитывается его ширина. Особенно это проглядывается при выборе курсива — там вообще ширина получается идентичной, что и без курсива почему-то. Но и без курсива проблема имеется.

Упрощенный пример задачи:

procedure TForm2.Button1Click(Sender: TObject);
var
  i, WidthShift: Integer;
  str, delim: string;
  Font: TFont;
  Colors: TArray<TColor>;

begin
  Font := TFont.Create;
  Colors := TArray<TColor>.Create(clRed, clBlack, clGreen);
  WidthShift := 10;

  if FontDialog1.Execute then
  begin
    Font.Assign(FontDialog1.Font);
  end;

  Image1.Canvas.Brush.Color := clWhite;
  Image1.Canvas.FillRect(Image1.Canvas.ClipRect);

  Image1.Canvas.Font.Assign(Font);
  delim := '/';

  for i := 0 to 2 do
  begin
    str := '0';
    if i <> 0 then
      str := delim + str;
    Image1.Canvas.Font.Color := Colors;
    Image1.Canvas.TextOut(WidthShift, 100, str);
    WidthShift := WidthShift + Image1.Canvas.TextWidth(str);
  end;
  Font.Free;
end;

В первом случае текст обычный и все равно обрезается. А во втором курсив — там вообще все плохо.
В качестве решения можно было бы рассчитывать какой-то промежуточный запас (относительно высоты шрифта или еще по какой-то зависимости) и добавлять его на каждой итерации, однако по условиям задачи пробелов быть не должно.

Подскажите, пожалуйста, как можно побороть данную проблему?

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

Вот какая возникла проблема. Нужно ограничить количество символов, которые может ввести пользователь в TEdit. Для этого предназначено свойство MaxLength, но оно не понимает кодировку UTF8, а именно с ней и работает Lazarus (странно, да, работает с этой кодировкой, но свойства ее не понимают).

В итоге если, скажем, прописать MaxLength := 30, то длина строки будет ограничена лишь 15 символами для русского текста.

Применил костыльное решение:
1. Установил MaxLength := 60, то есть в два раза больше, чем надо (но так оно пропустит более 30 нерусских символов).
2. На обработчик события KeyPress прописал следующее:

  if (Key >= ' ') and (UTF8Length(TEdit(Sender).Text) >= 30) then Key := #0;

Оно, конечно, как-то работает, но, во-первых, это реальный костыль, а, во-вторых, работает только если вводить прямо с клавиатуры, а если скопировать длинный текст из буфера, то ограничение не сработает.

Можно, конечно, еще дополнительно проверять длину текста и обрезать его, если окажется длиннее, но это уже двойной костыль будет.

Есть ли нормальное решение проблемы?

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

Подскажите, есть скрипт на моем веб сервере. Через get запрос принимает фразу и переводит на англ.
С веб браузера скрипт отображает текст нормально, кирилица + латиница.

А с делфи (THTTPSend) ни как не могу получить ответ без кракозябр..

const
  URL = 'https://.com/translate/translate.php?source=ru&target=en&text=привет';
var

  HTTPs: THTTPSend;
    res: TStringList;
    JS:ISuperObject;
begin
      HTTPs := THTTPSend.Create;
    res := TStringList.Create;


    HTTPs.Headers.Clear;
    if not HTTPs.HTTPMethod('GET', URL) then
      showmessage('internet connection: error') else
      begin
           res.LoadFromStream(HTTPs.Document);


           JS:=SO(res.text);
           Clipboard.AsText :=Utf8ToAnsi(RawByteString(res.Text));
           ShowMessage(res.text);
      end;
end;

Utf8ToAnsi(RawByteString( — это уже от безисходности начал варианты с интернета перебирать…

Может есть у кого совет ?

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

есть csv файл, в функции pgplsql прочитать этот файл и создать на его основе таблицу (заголовок csv файла), и затем заполнить эту таблицу данными из этого csv файла.

Как это сделать средствами plpgsql ? Если нельзя то какими средствами можно это реализовать в PostgreSQL ?

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

Как лучше сделать, чтобы при отправке формы требовалось загрузить фото?

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