Почему SendMessage -> WM_COPYDATA -> Poka摅皲摺皲８ ?

[ArtGrek]

TO SEND
cd : TCopyDataStruct;
...
    cd.dwData := 0;
    cd.cbData := 1 + Length('Pokazat');
    cd.lpData := PChar('Pokazat');
    SendMessage ( FindWindow(nil, 'myForm'), WM_COPYDATA,  0, LParam(@cd));

TO RECEV
pcd : PCopyDataStruct;
...
  pcd := PCopyDataStruct(Msg.LParam);
  Memo1.Lines.Add(PChar(pcd.lpData));

Pokazat

приходит вот так:

Poka摅皲摺皲８

P.S. Windows7 Ultimate Rus, Текущии язык програм, не поддерживающих Юникод: Русскии, DelphiXe

[Человек_Борща]

мэйби http://www.delphisources.ru/pages/fa...m_cd_link.html

[GunSmoker]

Потому что SizeOf <> Length.

[ArtGrek]

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

Потому что SizeOf <> Length.

заменил на

cd.cbData := SizeOf('Pokazat');

результат тот же

[Пепел Феникса]

cd.cbData := (1+Length('Pokazat'))*SizeOf(Char);

[ArtGrek]

Сообщение от Пепел Феникса

cd.cbData := (1+Length('Pokazat'))*SizeOf(Char);

спасибо, понял в чем дело

[GunSmoker]

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

заменил на

cd.cbData := SizeOf('Pokazat');

результат тот же

Некоторые намёки не надо воспринимать буквально. Думать иногда полезно.

Ещё полезнее читать документацию, а не тупо копировать код:

cbData
DWORD
The size, in bytes, of the data pointed to by the lpData member.

Кстати, это можно сообразить, даже не смотря в документацию: ведь сообщение передаёт произвольные данные ("данные вообще"), а не просто/только строки.

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

[ArtGrek]

количество символов умножить на размер выделяемои памяти для каждого символа типа Char, что б получить общии размер
я понял, просто сразу не сообразил, когда менял местами Length c SizeOF

Потому что SizeOf <> Length.

написали б уже SizeOf * Length