Конвертация String в PWideCharDelphi , Синтаксис , ПреобразованияКонвертация String в PWideChar
Автор: Gua { **** UBPFD *********** by delphibase.endimus.com **** >> Конвертация String в PWideChar Зависимости: ??? Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol Copyright: Andre .v.d. Merwe Дата: 18 июля 2002 г. ***************************************************** } function StringToPWide(sStr: string; var iNewSize: integer): PWideChar; var pw: PWideChar; iSize: integer; begin iSize := Length(sStr) + 1; iNewSize := iSize * 2; pw := AllocMem(iNewSize); MultiByteToWideChar(CP_ACP, 0, PChar(sStr), iSize, pw, iNewSize); Result := pw; end; Пример использования: procedure TForm1.Button1Click(Sender: TObject); var iSize: integer; begin ChangeWallpaper(StringToPWide('C:\1.jpg', iSize)); end; { **** UBPFD *********** by delphibase.endimus.com **** >> Конвертация PWideChar в String Зависимости: ??? Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol Copyright: Andre .v.d. Merwe Дата: 18 июля 2002 г. ***************************************************** } function PWideToString(pw: PWideChar): string; var p: PChar; iLen: integer; begin iLen := lstrlenw(pw) + 1; GetMem(p, iLen); WideCharToMultiByte(CP_ACP, 0, pw, iLen, p, iLen * 2, nil, nil); Result := p; FreeMem(p, iLen); end; Статья Конвертация String в PWideChar раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |