Barev dzez
Здраствуйте!
Нужно конвертировать текст в юникод, а потом записать в файл, но готовых функций я не нашел. Пробовал написать сам.
Только возникли некторые проблемы. Может есть уже готовые функции? Подскажите пожалуйста.

| Сообщение посчитали полезным:

какие проблемы?

| Сообщение посчитали полезным:

Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Конвертит текст в юникод

Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

и обратно

| Сообщение посчитали полезным:

На каком языке пишешь?
Еще можно заюзать готовые таблицы ASCII/Unicode симоволов, которые хранятся в файлах *.nls в подкаталоге виндов SYSTEM32

| Сообщение посчитали полезным:

n90p пишет:
готовых функций я не нашел
Что-то ты плохо искал.
Unicode and Character Set Functions
msdn2.microsoft.com/en-us/library/ms776415.aspx

| Сообщение посчитали полезным:

MultiByteToWideChar и наоборот
=\
где искал то, раз ненашел )

| Сообщение посчитали полезным:

SeQuick пишет:
Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Конвертит текст в юникод
...


Они делают другую операцию с текстом
LazzY верно указал функции

| Сообщение посчитали полезным:

Myk пишет:
Они делают другую операцию с текстом

Вот интересно узнать какую же? В справке по апи написано что именно в юникод хотя сам не проверял.

| Сообщение посчитали полезным:

SeQuick пишет:
В справке по апи написано что именно в юникод хотя сам не проверял.

Я такое не увидел.


LazzY пишет:
MultiByteToWideChar и наоборот
=\
где искал то, раз ненашел )

Не работает, можно хоть какой нибуть примерчик?
А искал я в справке солво Unicode и не нашел.

YDS пишет:
На каком языке пишешь?
Пишу на дельфи

| Сообщение посчитали полезным:

n90p пишет:
Я такое не увидел

Фунция CharToOem
Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Платформа
Windows 95/98: Поддерживается
Windows NT: Требуется Windows NT 3.1 или выше
Windows 2000: Поддерживается

CharToOem конвертирует текст из win-кодировки в dos-кодировку

Возвращаемое значение
Функция всегда возвращает ненулевое значение


Параметры

lpszSrc
Строка для перекодировки

lpszDst
Перекодированая строка в буфере. Если функция CharToOem используется как функция ANSI, строка может быть переведена на месте, устанавливая параметр lpszDst в тот же адрес,что и параметр lpszSrc


Пример

' конвертируем строку "Русский_Проект!" в dos-кодировку.
Dim sourcestring As String ' нужная строка
Dim deststring As String ' получаемая строка
Dim code As Long

sourcestring = "Русский Проект" 'строка для перекодировки
deststring = Space$(Len(sourcestring))'получаем перекодированную строку
code = CharToOem(sourcestring, deststring)
Debug.Print deststring

| Сообщение посчитали полезным:

SeQuick пишет:
Вот интересно узнать какую же? В справке по апи написано что именно в юникод хотя сам не проверял.
Не, ну блин
The CharToOem function translates a string into the OEM-defined character set.
The OemToChar function translates a string from the OEM-defined character set into either an ANSI or a wide-character string.
Т.е. еще OemToChar можно применить для этих целей, но при условии что у нас текст в OEM-defined character set. А у n90p я так понял просто обычный текст. MultiByteToWideChar в руки и вперед! И что значит не работает? Оно не может не работать

| Сообщение посчитали полезным:

Myk пишет:
Оно не может не работать

Оно не может не работать если руки оттуда растут

| Сообщение посчитали полезным:

Myk пишет:
И что значит не работает? Оно не может не работать

Тогда скажи пожалуйста в чем ошибка?

procedure TForm1.Button1Click(Sender: PObj);
const asd:pansichar='asdfgh';
var uasd:pwidechar;
f:textfile;
begin
assignfile(f,'file.txt');
rewrite(f);
multibytetowidechar(CP_ACP,0,asd,-1,uasd,0);
write(f,uasd);
closefile(f);
end;

Файл "file.txt" создается, но размер всего 3 байта, а должен быть 12!

| Сообщение посчитали полезным:

n90p пишет:
YDS пишет:
На каком языке пишешь?
Пишу на дельфи

для семерки: system.pas
UTF8Encode/UTF8Decode - для UTF8;
Utf8ToUnicode/UnicodeToUtf8

из апи - упоминавшийся уже multibytetowidechar.

| Сообщение посчитали полезным:

n90p пишет:
var uasd:pwidechar;


таки смотри msdn:
MultiByteToWideChar
The MultiByteToWideChar function maps a character string to a wide-character (Unicode) string. The character string mapped by this function is not necessarily from a multibyte character set.

int MultiByteToWideChar(
UINT CodePage, // code page
DWORD dwFlags, // character-type options
LPCSTR lpMultiByteStr, // string to map
int cbMultiByte, // number of bytes in string
LPWSTR lpWideCharStr, // wide-character buffer
int cchWideChar // size of buffer
);

...бла...

Return Values
If the function succeeds, and cchWideChar is nonzero, the return value is the number of wide characters written to the buffer pointed to by lpWideCharStr.

If the function succeeds, and cchWideChar is zero, the return value is the required size, in wide characters, for a buffer that can receive the translated string.

If dwFlag equals zero, the input string is UTF-8 and contains invalid characters the function returns ERROR_NO_UNICODE_TRANSLATION.

If the function fails, the return value is zero. To get extended error information, call GetLastError. GetLastError may return one of the following error codes:

ERROR_INSUFFICIENT_BUFFER
ERROR_INVALID_FLAGS
ERROR_INVALID_PARAMETER
ERROR_NO_UNICODE_TRANSLATION

таки да. надо сперва размер данных которые получатся определить. а код

n90p пишет:
write(f,uasd);


записывает вовсе не данные из буфера. и как у тебя получилось при этом 3 байта - загадочно. должен быть цикл с перемещением указателя. или надо код привести? (лень дельфу открывать)

| Сообщение посчитали полезным:

Нашел я в "system.pas" функцию "StringToWideChar", она более удобная.
Я тоже думаю, что проблема в write(f,uasd).

n1kto пишет:
или надо код привести?
Если можно.

| Сообщение посчитали полезным:

n90p пишет:
n1kto пишет:
или надо код привести?
Если можно.

program Project1;

{$APPTYPE CONSOLE}

uses
windows,
SysUtils;

const
asd: pansichar = 'asdfgh';

var
c: array[ 1..30 ] of char;
i,j: Integer;
uasd: pwidechar;
f: textfile;
begin
assignfile(f, 'file.txt');
rewrite(f);
uasd := @c;
i := multibytetowidechar(CP_ACP, 0, asd, -1, uasd, 15);
for j := 1 to i*2 do write(f,c[j]);
closefile(f);
end.

| Сообщение посчитали полезным:

procedure TMainForm.Button1Click(Sender: TObject);
var
s: AnsiString;
ws: WideString;
begin
s:= 'Some ansi string';
ws:= WideString(s);
end;



| Сообщение посчитали полезным:

rmn пишет:
procedure TMainForm.Button1Click(Sender: TObject);
var
s: AnsiString;
ws: WideString;
begin
s:= 'Some ansi string';
ws:= WideString(s);
end;

да, я знаю. не факт что при этом произвдится приведение к юникоду. не проверял, поэтому и не написал.

| Сообщение посчитали полезным:

rmn пишет:
procedure TMainForm.Button1Click(Sender: TObject);
var
s: AnsiString;
ws: WideString;
begin
s:= 'Some ansi string';
ws:= WideString(s);
end;

Проверил, не получается!

| Сообщение посчитали полезным:

n1kto пишет:
for j := 1 to i*2 do write(f,c[j]);
Зачем так извращаться, лучше уж винапи задействовать, там можно размер буфера указать. Хотя есть и в Delphi функции работы с буфером (BlockWrite).

-----
Yann Tiersen best and do not fuck

| Сообщение посчитали полезным:

PE_Kill пишет:
n1kto пишет:
for j := 1 to i*2 do write(f,c[j]);
Зачем так извращаться, лучше уж винапи задействовать, там можно размер буфера указать. Хотя есть и в Delphi функции работы с буфером (BlockWrite).

А можно попадробнее, пожалуйста?

| Сообщение посчитали полезным:

PE_Kill пишет:
Зачем так извращаться, лучше уж винапи задействовать, там можно размер буфера указать. Хотя есть и в Delphi функции работы с буфером (BlockWrite).

действительно, через апи проще. а blockwrite, если я правильно помню (использовал еще под дос в BP7) работает только с нетипизированными файлами. Тут же - текстовый.

из хелпа:
Delphi syntax:

procedure BlockWrite(var f: File; var Buf; Count: Integer [; var AmtTransferred: Integer]);

F is an untyped file variable, Buf is any variable, Count is an expression of type Integer, and AmtTransferred is an optional variable of type Integer.

BlockWrite writes Count or fewer records to the file F from memory, starting at the first byte occupied by Buf. The actual number of complete records written (less than or equal to Count) is returned in AmtTransferred.
...

что я и говорил.

пример из хелпа:
...
var

FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then { Display Save dialog box}
begin
AssignFile(ToF, SaveDialog1.FileName); { Open output file }

Rewrite(ToF, 1); { Record size = 1 }
Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
+ ' bytes...');
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;
...

| Сообщение посчитали полезным:

WCHAR UnicodeNameBuff[64];

MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, "my test ansi string", -1, UnicodeNameBuff, 64);

wprintf(L"%s", UnicodeNameBuff);

Это работает

-----
Research is my purpose

| Сообщение посчитали полезным:

Error_Log пишет:
wprintf(L"%s", UnicodeNameBuff);

n90p пишет:
YDS пишет:
На каком языке пишешь?
Пишу на дельфи

| Сообщение посчитали полезным:

n90p
Ну раз пишешь на дельфи, то должен знать, что тебе нет необходимости вызывать API для таких операций, как присвоение, сравнение, преобразование типа строк. Достаточно выполнить приведение типа (как в примере, что я дал), а компилер сам заменит это на вызов WStrFromLStr (с присвоением аналогично - ты используешь s:= 'some string', компилер заменяет это на вызов LStrAsg и т.п.).

| Сообщение посчитали полезным:

rmn пишет:
Ну раз пишешь на дельфи, то должен знать, что тебе нет необходимости вызывать API для таких операций, как присвоение, сравнение, преобразование типа строк

А как по твойму я должен записать этот результат в файл?
Я же пробовал, потаму и говорю.

| Сообщение посчитали полезным:

а почему бы програмкой какой то не конвертировать

| Сообщение посчитали полезным:

n1kto пишет:
да, я знаю. не факт что при этом произвдится приведение к юникоду. не проверял, поэтому и не написал.

Если уж пошло обсуждение VCL, то я делал так (синтаксис C++):

AnsiString Text;
wchar_t *str = new wchar_t[Text.WideCharBufSize()];
Text.WideChar(str,Text.WideCharBufSize());

// str - будет юникод

delete [] str;

| Сообщение посчитали полезным:

andy007
Потаму что я должен сам написать программку

Rush
Пасибки.

| Сообщение посчитали полезным: