Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

Преобразование String в PwideChar   Найти похожие ветки 

 
Писатель   (2012-09-23 14:18) [0]

Используется RAD Studio XE. В интернетах удалось обнаружить по этой теме следущее.

var
 wideChars   : array[0..11] of WideChar;
 myString    : String;

begin
 // Задание значения нашей строке
 myString := "Hello World";

 // Копирование в формат WideChar в наш массив
 StringToWideChar(myString, wideChars, 12);

 // Показываем, что копирование дало
 ShowMessage(WideCharToString(wideChars));
end;


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;


Но ни первое ни второе не работает, а вылетает с ошибками. В первом случае ему не нравится, что ему вместо PWideChar передают массив, если заменить массив на PwideChar, то будет вылет по ошибке связанной с памятью в которую неправильно обратились. Во втором случае он начинает матюкаться на это PChar(sStr).

Вопрос, как же все такие его преобразовать? API функция требует PWideChar.


 
Писатель   (2012-09-23 14:31) [1]

Забавно вот так 50); работает

PWideName := StringToWideChar(choosenChar, PWideName, (Length(WindowName) +50)); а так нет


 
Писатель   (2012-09-23 14:31) [2]

PWideName := StringToWideChar(choosenChar, PWideName, 50); вот так )


 
Hole   (2012-09-23 16:26) [3]

Для наглядности:

var
 S: AnsiString;
 W: WideString;
 P: PWideChar;
begin
 S := "Hello, World!";
 W := S;
 P := PWideChar(W);
end;


Delphi сама выполняет преобразование между типами данных AnsiString, WideString и UnicodeString. Поытому можно вообще написать вот так: PWideChar(WideString(S)); но это будет временная переменная, а поэтому пользоваться этим можно только "по месту".

И по поводу того, что вы тут в трех постах написали:

function StringToWideChar(const Source: UnicodeString; Dest: PWideChar; DestSize: Integer): PWideChar;
Returns a UNICODE string from an AnsiString.
StringToWideChar converts a string from ANSI to UNICODE and stores the result in a specified buffer.
Source is the string to convert. It must include at most DestSize – 1 characters.
Dest is the buffer into which StringToWideChar writes the corresponding UNICODE string. The caller allocates this memory to include at least DestSize wide characters. Following the call, Dest contains at most DestSize - 1 characters, terminated by a NULL wide character.
DestSize is the size of the buffer Dest.
StringToWideChar returns a pointer to Dest.


Посмотрите, чему равно SizeOf(WideChar), и сделайте соотвествующие исправления в коде.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.08 c
15-1349123402
Юрий
2012-10-02 00:30
2013.03.22
С днем рождения ! 2 октября 2012 вторник


15-1345475256
DdiK
2012-08-20 19:07
2013.03.22
нужная программа мигая в трее забирает фокус


2-1328031868
fil-23
2012-01-31 21:44
2013.03.22
Фсе что на форме и форму в исходное состояние


15-1352647406
Аббат Пиккола
2012-11-11 19:23
2013.03.22
Вот кто решает, что вкус ароматизатора идентичен натуральному


2-1330505116
AlexDn
2012-02-29 12:45
2013.03.22
if....then.....





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский