We are currently migrating Bugzilla to GitHub issues.
Any changes made to the bug tracker now will be lost, so please do not post new bugs or make changes to them.
When we're done, all bug URLs will redirect to their equivalent location on the new bug tracker.

Delphi project source demonstrating the bug

SDLTest.dpr (text/plain), 2.13 KB, created by Alexander Iljin on 2010-10-23 07:33:56 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Alexander Iljin

Created: 2010-10-23 07:33:56 UTC

Size: 2.13 KB

patch

obsolete

>program SDLTest;
>
>{$ASSERTIONS ON}
>
>uses
>  Windows, SysUtils;
>
>function SDL_iconv_string (toCode, fromCode, inBuf: PChar; inbytesleft: INTEGER): PWChar; cdecl; external 'SDL.dll';
>
>VAR i: INTEGER;
>  ucs, ucsCopy: ARRAY [0..256] OF SmallInt;
>  utf: array [0..33] of Char;
>  ptr: PWChar;
>begin
>  (* write the same first part of Russian alphabet in UTF-8 and UCS-2 encodings *)
>  utf[00] := #$d0; utf[01] := #$90;
>  utf[02] := #$d0; utf[03] := #$91;
>  utf[04] := #$d0; utf[05] := #$92;
>  utf[06] := #$d0; utf[07] := #$93;
>  utf[08] := #$d0; utf[09] := #$94;
>  utf[10] := #$d0; utf[11] := #$95;
>  utf[12] := #$d0; utf[13] := #$96;
>  utf[14] := #$d0; utf[15] := #$97;
>  utf[16] := #$d0; utf[17] := #$98;
>  utf[18] := #$d0; utf[19] := #$99;
>  utf[20] := #$d0; utf[21] := #$9a;
>  utf[22] := #$d0; utf[23] := #$9b;
>  utf[24] := #$d0; utf[25] := #$9c;
>  utf[26] := #$d0; utf[27] := #$9d;
>  utf[28] := #$d0; utf[29] := #$9e;
>  utf[30] := #$d0; utf[31] := #$9f;
>  utf[32] := #$00;
>
>  ucs[00] := $410;
>  ucs[01] := $411;
>  ucs[02] := $412;
>  ucs[03] := $413;
>  ucs[04] := $414;
>  ucs[05] := $415;
>  ucs[06] := $416;
>  ucs[07] := $417;
>  ucs[08] := $418;
>  ucs[09] := $419;
>  ucs[10] := $41a;
>  ucs[11] := $41b;
>  ucs[12] := $41c;
>  ucs[13] := $41d;
>  ucs[14] := $41e;
>  ucs[15] := $41f;
>  ucs[16] := $0;
>  ucsCopy := ucs;
>
>  // the following test shows that WinApi converts UTF-8 to UCS-2 just fine
>  Windows.MultiByteToWideChar(CP_UTF8, 0, @utf[0], -1, @ucs[0], Length(ucs));
>  Windows.MessageBoxW(0, @ucs[0], 'WinApi result', 0);
>  // compare 'ucs' and its original contents in 'ucsCopy'
>  i := 0;
>  while (ucs[i] <> 0) and (ucs[i] = ucsCopy[i]) do begin
>    Inc(i);
>  end;
>  Assert((ucs[i] = 0) and (i = 16), 'WinApi failed the ASSERT test.');
>
>  // try to convert UTF-8 to UCS-2 using SDL_iconv_string
>  ptr := SDL_iconv_string(PChar('UCS-2'), PChar('UTF-8'), PChar(@utf[0]), 33);
>  Windows.MessageBoxW(0, ptr, 'SDL result', 0);
>  i := 0;
>  while (PWChar(ptr)[i] <> #0) and (PWChar(ptr)[i] = WChar(ucs[i])) do begin
>    Inc(i);
>  end;
>  Assert((PWChar(ptr)[i] <> #0) and (i = 16), 'SDL failed the ASSERT test.');
>end.

Actions: View

Attachments on bug 1069: 542

We are currently migrating Bugzilla to GitHub issues.Any changes made to the bug tracker now will be lost, so please do not post new bugs or make changes to them.When we're done, all bug URLs will redirect to their equivalent location on the new bug tracker.

We are currently migrating Bugzilla to GitHub issues.
Any changes made to the bug tracker now will be lost, so please do not post new bugs or make changes to them.
When we're done, all bug URLs will redirect to their equivalent location on the new bug tracker.