Виктор Кода
дата публикации 27-05-2002 14:21 Использование функции 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)
Виктор Кода
Смотрите также :
[Функции для работы со строками ] [Обработка текста] [Параметры вызова процедур и функций]
 Обсуждение материала [ 11-10-2008 17:25 ] 15 сообщений |
