Главная страница
    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.124 c
2-1330700037
German
2012-03-02 18:53
2013.03.22
МойДатаСет


8-1230998221
Б
2009-01-03 18:57
2013.03.22
Где можно скачать эту книгу???


2-1341236271
>|<
2012-07-02 17:37
2013.03.22
Повторная загрузка изображения на форму, которая в DLL


15-1346016093
Artem
2012-08-27 01:21
2013.03.22
Не поможете с Visual C++?


1-1295644073
Wadimka
2011-01-22 00:07
2013.03.22
Конвертация даты в миллисекундах в TDateTime





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский