Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

Очистка памяти выделенной в RunTime   Найти похожие ветки 

 
IgorR   (2004-05-28 11:01) [0]

Вот такой код

procedure TAlignEdit.SWMInitializeDoc(var Message: TMessage);
var sTemp: Pointer;
begin
 //New(sTemp); //Работает и без этого
 GetMem(sTemp, Message.LParam);
 Move(Pointer(Message.WParam)^, sTemp, Message.LParam);
 Self.Text := string(sTemp);
 //FreeMem(sTemp, Message.LParam);  //RUNTIME ERROR
end;

В принципе все работает, только вот почему нельзя память освободить? Если этого не делать оно же будет там гадить?
И как сделать так, чтоб ни гадило?


 
Тимохов ©   (2004-05-28 11:05) [1]


>  Self.Text := string(sTemp);

в этой строке ошибка.
пользуйтесь setstring


 
IgorR   (2004-05-28 11:14) [2]

Эту кусок исправил.
SetString(s, PChar(sTemp), Message.LParam);

Хотя оно и так работало.
Основной вопрос, как освободить память выделенную GetMem.
Если использовать FreeMem происходит ОШИБКА "Invalid rointer operation". Если не использовать, то работает без ошибок, но память то надо за собой очищать! Как?


 
Sandman25+1   (2004-05-28 11:17) [3]

SetString(s, PChar(Pointer(Message.WParam)), Message.LParam);


 
Тимохов ©   (2004-05-28 11:21) [4]

приведите еще раз свой код, который вызвает ошибку, только без всяких закомментаренных мест


 
IgorR   (2004-05-28 11:23) [5]

rocedure TAlignEdit.SWMInitializeDoc(var Message: TMessage);
var sTemp: Pointer;
begin
GetMem(sTemp, Message.LParam);
Move(Pointer(Message.WParam)^, sTemp, Message.LParam);
Self.Text := string(sTemp);
FreeMem(sTemp, Message.LParam);
end;


 
Sandman25+1   (2004-05-28 11:25) [6]

[5] IgorR   (28.05.04 11:23)

Зачем Вам этот GetMem сдался... Получается, что данные гоняются 2 раза вместо одного.


 
Тимохов ©   (2004-05-28 11:29) [7]

замените всю эту лабуду на то, как говорит Sandman25+1 : на один setsting


 
Sandman25+1   (2004-05-28 11:32) [8]

rocedure TAlignEdit.SWMInitializeDoc(var Message: TMessage);
var S: String;
begin
 SetString(S, Pointer(Message.WParam), Message.LParam);
 Self.Text := S;
end;


 
IgorR   (2004-05-28 11:39) [9]

Поменял

 SetString(S, Pointer(Message.WParam), Message.LParam);
 Self.Text := S;

Теперь вместо букв и цифр краказябры лезут.


 
Тимохов ©   (2004-05-28 11:45) [10]

значит wparam ссылается на кракозябры.

как вы полылаете сообщение?
Приведите код


 
Erik1   (2004-05-28 11:47) [11]

Удалено модератором


 
IgorR   (2004-05-28 11:52) [12]

как посылаются сообщения

var Temp: string;
begin
 Temp := TPropertys(GetOwner).ParamByName(FName).AsString;
 Control.Perform(MY_INITIALIZE, Int64(@Temp), SizeOf(sTemp));
end;

прием

var s: string;
begin
 SetString(S, PChar(Pointer(Message.WParam)), Message.LParam);
 Self.Text := s;
end;


 
Тимохов ©   (2004-05-28 11:57) [13]


> SizeOf(sTemp)

1. равен 4 байтам (это так, для сведения)
2. зачем вы преобразуете к int64?

надо так
perform(..., longint(pchar(temp)), length(temp));


 
Erik1   (2004-05-28 11:58) [14]

Зайди в дебагер и проверь, что находится в
Pointer(Message.WParam)^ Наверное тебе так надо написать
SetString(S, Pointer(Message.WParam)^, Message.LParam);
А можно так:
SetLength(S, Message.LParam+1);
Move(Pointer(Message.WParam)^, S, Message.LParam);


 
Тимохов ©   (2004-05-28 11:58) [15]

я понял, что вы делаете :)))

вы передаете ссылка на строку, котоорая сама уже ссылка.
нафига - строка это уже ссылка.


 
IgorR   (2004-05-28 12:03) [16]

Ура, заработало!

var s: string;
begin
 SetString(S, PChar(Pointer(Message.WParam)^), Message.LParam);
 Self.Text := s;
end;

Все дело в "^".
Всем спасибо.


 
Тимохов ©   (2004-05-28 12:10) [17]


> Ура, заработало!

все дело совсем не в этом
и работать это будет до поры до времени т.к. в lparam у вас всегда передается 4 :)))


 
IgorR   (2004-05-28 12:15) [18]

Уже исправил на Length(...)
Спасибо!


 
IgorR   (2004-05-28 12:16) [19]

Уже исправил на Length(...)
Спасибо!



Страницы: 1 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.022 c
1-1086080080
Семен Сорокин
2004-06-01 12:54
2004.06.13
TFrame + XPStyle (XPManifest) => отрисовка на TFrame


14-1084473025
ИМХО
2004-05-13 22:30
2004.06.13
Установка Office.XP


3-1085398790
Andrey
2004-05-24 15:39
2004.06.13
Открытие таблицы MySQL


14-1085836974
Drakon
2004-05-29 17:22
2004.06.13
Перенос Linux-приложений на Linux


1-1086024148
Delphin
2004-05-31 21:22
2004.06.13
Есть код, только при попытке компиляции, орёт, что какая-то там о