Конвертация String в PWideChar
Автор: Gua
WEB-сайт: http://delphibase.endimus.com
{ **** 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 ;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Конвертация String в PWideChar", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:
Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи , в сообщение обязательно указывайте название или ссылку на статью!