Предел размера сообщения PostMessage?

Question

Я посылаю сообщение журнала в основной форме с помощью этого:

Для отправки сообщения:

procedure LogMsg(Msg: string; Kind:TMsgType=msgNormal); 
var 
    p: pChar; 
begin  
    case Kind of 
    msgError: Msg := '[Error] ' + Msg; 
    msgInformation: Msg := '# ' + Msg; 
    msgExternal: Msg := 'Plugin: ' + Msg; 
    end;//if 

    GetMem(p, (Length(Msg) + 1)*SizeOf(Char)); 
    Move(Msg[1], p^, (Length(Msg)+ 1)*SizeOf(Char)); 

    PostMessage(Application.MainForm.Handle, WM_LOG_MESSAGE, 0, integer(p)); 
end; 

И показать его:

procedure TfrmMain.WMLog(var Message: TMessage); 
var 
    p: pChar; 
    Lista:TStringList; 
begin 
    try 
    p := pChar(Message.LParam); 

    if EditLog.Lines.Count>100 then 
    begin 
     EditLog.Lines.Clear; 
    end;//if 

    Lista := TStringList.Create; 
    try 
     Lista.Delimiter := #10; 
     Lista.text := p; 
     EditLog.Lines.AddStrings(Lista); 
    finally 
     Lista.Free; 
    end;//try 

{$ifndef FPC} 
    EditLog.GotoLineAndCenter(EditLog.Lines.Count); 
{$endif} 

    Freemem(p); 
    except 
    on E: Exception do 
     EditLog.Lines.Add(E.Classname + ': ' + E.Message); 
    end;//try 
end; 

Это для журнала выходе из выполнить некоторые скрипты python.

Однако, если строка сообщения слишком велика, процесс зависает и, как следствие, убивает процесс python.

Я не знал, что может существовать предел. PostMessage имеет ограничение по размеру данных или может быть что-то еще?

Это с Delphi 2010.

EDIT: К сожалению, я забыл показать тип сообщ. Является String.

Answer 1

Я думал, что вы не должны использовать Move. Вы уверены, что все персонажи имеют одинаковую длину?

UPDATE:

GetMem(p, (Length(Msg) + 1)*SizeOf(Char)); 
Move(Msg[1], p^, (Length(Msg)+ 1)*SizeOf(Char)); 

Я никогда не использовал PChar слишком много, но вы не должны присоединять # 0 символ в Msg строку, прежде чем сделать это. Delphi 2010 не обнуляет память при использовании GetMem.

Answer 2

Я беру другой маршрут, чем mghie здесь (whoes ответить только волшебно полностью и совершенно не-волшебно исчез на меня: P), глядя на свой код, я могу только вывести вы отправляете данные в пределах одного обработать.

Вы просто передаете указатель через PostMessage, поэтому нет ограничений на размер сообщения. Когда вы отлаживаете свой код (вы, , отлаживаете этот кусок кода, не так ли?), На какой строке он сломается? Назначение .text?

Попробуйте сначала назначить pchar строке и записать эту строку в файл. Если это работает, у вас есть направление для изучения.

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