Home/ Questions/Q 8086593
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-06-05T18:30:06+00:00

I read the input buffer from a console application (CMD) like this: var pBuffer

  • 0

I read the input buffer from a console application (CMD) like this:

var
pBuffer     : array [0..2400] of Widechar;
dBuffer     : array [0..2400] of WideChar;
CReadBuffer : Cardinal;
BytesRead   : Cardinal;
begin
// ....
 ReadFile(BuffHandle, pBuffer[0], CReadBuffer, BytesRead, nil);
 pBuffer[BytesRead] := #0; // Finish/End the WideString
 OemToCharW(pBuffer, dBuffer);
 MessageBoxW (0, dBuffer, '', 0);
// ....
end;

For some reason I get weird chars…
CMD should have the oem charset. I used OEMtoCharA before and it worked fine.
What do I do wrong?

Thanks for help.

EDIT:
I use Delphi7

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    As you said, CMD has the OEM charset, which means the pBuffer should be declared as 

    pBuffer: array[0..2400] of AnsiChar;

    Now try again (can’t check this right now myself).

    It transpires that the declaration of OemToCharW is incorrect in Delphi 7. In Delphi 7 the first parameter is incorrectly declared as PWideChar when it should be PAnsiChar. You should redeclare OemToCharW correctly in your code and possibly consider using OemToCharBuffW instead.

    • 0