Сконвертировать Olevariant (Unicode) в string

[Sashunya]

Короче проблема такая: есть у меня переменная типа Olevariant. Она скорее всего содержит строку в unicode. Мне надо сконвертировать ее в обычную string. Как это сделать? Кусок кода

procedure TfrmMain.Telnet1Receive(Sender: TObject);
var
Data : olevariant;
ba:array of byte;
begin
// If blocking, receive will occur in the function that is blocking
if Telnet1.Timeout > 0 then exit;
// telnet has data ready to receive
// receive the data via a byte array
SetLength(ba,Telnet1.ReceiveBufferC ount);
Data := ba;
Telnet1.Receive(data);
// мне нужно работать именно с Data и анализировать что в этой строке содержится
Vt1.Display(Data); // это просто терминал, который отображает корректно информацию

end;

[Stilet]

Ну сделай переменку типа WideString и ей присвой эту data

[Sashunya]

Сообщение от Stilet

Ну сделай переменку типа WideString и ей присвой эту data

Делал, не катит. Имею набор ???????:::::???? знаков.

[Stilet]

В таком случае надо точно узнать что там в data находится.
И еще можеш попробовать функцию VarToWideStr.

[Sashunya]

Сообщение от Stilet

В таком случае надо точно узнать что там в data находится.
И еще можеш попробовать функцию VarToWideStr.

То же самое

с MultiByteToWideChar перепробовал все кодировки не помгло. Похоже не уникод. Hо в доке написано по поводу того что приходит в data

When Data is specified as a String, all bytes are converted to 16-bit
Unicode characters according to the default ANSI code page specified
on the system. If the code page is not ASCII, multi-byte characters
convert to single Unicode characters. This is not as efficient as
receiving into a large Byte array. The most efficient transfer is
possible when a large global Byte array is allocated once, and
all network data is repeatedly read into the same array (a single
memory transfer takes place directly from the system buffers into
the global Byte array allocated in the user's application).

Вообще это компонент для коннкекта с терминалом по протоколам Телнет и
RLOGIN (мне как раз и он и нужен). От компонента надо чтобы в Data пришел
текст обычный формата string. Хотя терминал этой компоненты нормально все
отображает.

Помогите, плиз.

[Stilet]

А просто его в массив char преобразовать? Может что и вылезет?

[Ring0Sn]

Если они пишут что их инфа в виде юникода то кодируй в ANSI для начала:
в ntdll.dll есть RtlUnicodeStringToAnsiString, её описания:
function RtlUnicodeStringToAnsiString(
DestinationString: PAnsiString;
SourceString: PUnicodeString;
AllocateDestinationString: boolean
): NTSTATUS; stdcall external 'ntdll.dll';

[Ring0Sn]

Структура PUnicodeString:
PUnicodeString = ^TUnicodeString;
TUnicodeString = packed record
Length: Word;
MaximumLength: Word;
Buffer: PWideChar;
end;

[Tokolist]

попробуй WideCharToString