Использование функции wsprintf

Автор: Виктор Кода

Данная заметка возможно, будет интересна для тех, кто программирует на Object Pascal с использованием только API-функций Windows.

Часто необходимо вывести (к примеру, даже в окошко с MB_OK) какое-то значение, будь то код ошибки типа HRESULT или результат работы какой-либо функции. Простейшее решение - использовать IntToStr() из модуля sysutils.pas. Однако в этом случае размер минимальной программы на Delphi увеличится с 16 до 41 кб, что лично меня очень неудовлетворяет. Хочется получить реальное преимущество в размерах, раз уж не используется VCL. Есть и другое объяснение - хотя мы и живём в эпоху быстрых процессоров и ёмких HDD, следить за качеством кода программ и его размерами обязывает культура программирования. В конце-концов это просто неразумно - ради одной функции тащить весь код из sysutils.pas и sysconst.pas. Складывается глупейшая ситуация - ради преобразования чисел в строку приходится мириться с тем, что к готовому exe-модулю подключаются многочисленные resourcestring и хлам в виде кучи ненужного кода.

Для некоторых преобразований можно использовать API-функцию wsprintf() из модуля windows.pas. Она позволяет произвести форматированную запись в буфер последовательности символов и значений аргументов. Вот как она описана:

function wsprintf(Output: PChar; Format: PChar): Integer; stdcall;

А вот так она описана в файле winuser.h:

WINUSERAPI int WINAPIV wsprintfA(LPSTR, LPCSTR, ...);

Как видно, осутствует третий параметр. Он подразумевает передачу значения произвольного типа - например, char* или int (при желании его можно даже опустить). Причина, по которой функция документирована неправильно - ограничение, накладываемое языком Object Pascal - он не позволяет передать в параметр функции значение произвольного типа (хотя, например, SizeOf() позволяет, но реализована она на системном уровне).

Я всё-таки нашёл способ приспособить wsprintf() для своих нужд. Выход - описать её самостоятельно в своей программе так:

function wsprintf(lpOut: LPSTR; lpFmt: LPCTSTR; p: Pointer): Integer;
  stdcall; external 'user32.dll' name 'wsprintfA';

Теперь для вывода в буфер достаточно написать так:

var
  szMessage: PChar;
  GetMem(szMessage, 256); // Определяем размер строки в памяти
  wsprintf(szMessage, 'Number %d', Pointer(899034));
  MessageBox(0, szMessage, 'Сообщение', MB_OK);

Предварительно надо выделить память для буфера, иначе форматирование не произойдёт.

Полную документацию по функции wsprintf() можно найти в справке Delphi. Добавлю, что для корректности можно приводить передаваемые значения не к типу Pointer, а к Pinteger - для типа Integer, PUINT - для целых беззнаковых и т. д.

Скачать demo-проект WsPrintf.zip (0.67 K)

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 172 • TDictionary Custom Sort 3 344 • Fast Watermark Sources 3 095 • 3D Designer 4 853 • Sik Screen Capture 3 350 • Patch Maker 3 556 • Айболит (remote control) 3 665 • ListBox Drag & Drop 3 018 • Доска для игры Реверси 81 745 • Графические эффекты 3 948 • Рисование по маске 3 253 • Перетаскивание изображений 2 633 • Canvas Drawing 2 761 • Рисование Луны 2 586 • Поворот изображения 2 196 • Рисование стержней 2 171 • Paint on Shape 1 569 • Генератор кроссвордов 2 240 • Головоломка Paletto 1 770 • Теорема Монжа об окружностях 2 237 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 059 • Игра HIP 1 282 • Игра Go (Го) 1 230 • Симулятор лифта 1 477 • Программа укладки плитки 1 219 • Генератор лабиринта 1 548 • Проверка числового ввода 1 368 • HEX View 1 497 • Физический маятник 1 359

Использование функции wsprintf

Похожие по теме исходники