Использование функции 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 (Тетрис) 124 • TDictionary Custom Sort 3 311 • Fast Watermark Sources 3 060 • 3D Designer 4 817 • Sik Screen Capture 3 313 • Patch Maker 3 527 • Айболит (remote control) 3 628 • ListBox Drag & Drop 2 990 • Доска для игры Реверси 81 531 • Графические эффекты 3 921 • Рисование по маске 3 226 • Перетаскивание изображений 2 607 • Canvas Drawing 2 731 • Рисование Луны 2 555 • Поворот изображения 2 162 • Рисование стержней 2 160 • Paint on Shape 1 564 • Генератор кроссвордов 2 223 • Головоломка Paletto 1 764 • Теорема Монжа об окружностях 2 209 • Пазл Numbrix 1 682 • Заборы и коммивояжеры 2 052 • Игра HIP 1 278 • Игра Go (Го) 1 224 • Симулятор лифта 1 470 • Программа укладки плитки 1 214 • Генератор лабиринта 1 542 • Проверка числового ввода 1 350 • HEX View 1 488 • Физический маятник 1 355

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

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