[Admiral]

ultrakiller, посоветую сделать перекодировку, функцией MultiByteToWideChar() ответа с консоли, перед отправкой в Memo.
Пример для Делфи не приведу, есть на С

Код:

BOOL ret = true;
char BufferA[MAX_PATH]="";

DWORD NumberOfBytesRead = 0;

do
{
	ret = ReadFile(hReadPipe, &BufferA, MAX_PATH-1, &NumberOfBytesRead, 0);
	if (NumberOfBytesRead < MAX_PATH-1)
		BufferA[NumberOfBytesRead]='\0';
	else
		BufferA[MAX_PATH-1]='\0';

	wchar_t BufferW[MAX_PATH]=L"";
	MultiByteToWideChar(CP_OEMCP, 0, BufferA, -1, BufferW, MAX_PATH);
	if (hEdit != NULL)
		AddTextW(hEdit, BufferW);
	//...
}while (ret != 0);

Это фрагмент кода с программы MultiBoot
Фрагмент добавлен в программу после перевода с VB6 - Capture the Output of a DOS application, в которой не было перекодировки.

[ultrakiller]

Спасибо за ответ, но подскажите все-таки в чем глюк

[Admiral]

ultrakiller, последний раз работал с Делфи в 7й Версии.
Выскажу предположение, что Memo в Делфи 2009, склонна к Юникоду, так что вызывая MultiByteToWideChar() с первым параметром CP_OEMCP идёт перекодировка с консольной кодировки непосредственно в Юникод, а не просто смена кодировки, как в случаи с OemToAnsi
Например в VB.NET текст для подобного компоненте желательно должен быть в Юникод кодировке, а для Win32 Api элемента управления EDIT, это не принципиально (видимо для обратной совместимости).

[Drongo]

что Memo в Делфи 2009, склонна к Юникоду »

Я уверен что там Unicode, т.к. C++ Builder 2009 поставляется на одном диске с Delphi 2009, а в первом Memo на юникоде.

Я не знаю только, есть ли в Delphi 2009 функции аналогичные в C++

Как мне сказали, нужно указывать вторым параметром в SaveToFile указывать соответствующую кодировку: Код: TEncoding::Unicode TEncoding::UTF8 TEncoding::Default TEncoding::ASCII »

Возможно, не пропобовал, для открытия нужно воспользоваться (C++) аналогичными для Delphi, функциями чтения

static TEncoding* __fastcall GetASCII(); static TEncoding* __fastcall GetBigEndianUnicode(); static TEncoding* __fastcall GetDefault(); static TEncoding* __fastcall GetUnicode(); static TEncoding* __fastcall GetUTF7(); static TEncoding* __fastcall GetUTF8();

[opel431]

Проблема что при выводе в Memo он выдает квадратики... Что вы посоветуете »

Среда Delphi 2009 »

var
Buffer:PAnsiChar;
......
......

begin
.....
OemToChar(Buffer,PWideChar(Buffer)); //XP
; OemToAnsi(Buffer, Buffer) //Seven
AMemo.Text:=AMemo.Text+String(Buffer);
.....
end;