| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как изменить размер памяти, на которую указывает указатель?
__DATA__ © (2006-08-24 09:42:00)Допустим у меня есть указатель на строку, далее я получаю строку на которую указывает указатель(Pointer), изменяю ее и пытаюсь вставить новый вариант в память на которую указывает указатель, но если новая строка больше старой, то происходит обрезание "лишней" части строки.
Записываю строку обратно в память, на которую указывает указатель так :Move(PChar(NewString)^, MyPointer^, Length(NewString)+1);
Как расширить память на которую указывает указатель, чтобы у меня помещалась вся новая строка?
TUser (2006-08-24 13:41:00) [1]Но в целом - не совсем просто придумать задачу, где это действителньо необходимо.
TUser (2006-08-24 13:39:00) [2]Обсуждалось несколько раз тут. Мастера решали (если не ошибаюсь, то Юрий Зотов). Смысл решения - менеджер мапяти (тот, который getmem.inc) хранит эти значения. До этого архива можно достучаться. Формат хранения данных можно узнать, покопав файл getmem.inc.
Reindeer Moss Eater (2006-08-24 12:36:00) [3]>Нелья изменить данное событие, нет исходников ...
А это кто написал?
if Length(s) <= Length(OldS) then // Вот это условие нужно убрать, и чтобы все работало даже если s > OldS
Move(PChar(s)^, pv^, Length(s)+1)
Сергей М. (2006-08-24 12:31:00) [4]
> и чтобы все работало
По-моему, тема эта уже обсуждалась не так давно.
Не будет это работать.
__DATA__ (2006-08-24 12:22:00) [5]> [4] Reindeer Moss Eater © (24.08.06 10:10)
Нелья изменить данное событие, нет исходников ...
Reindeer Moss Eater (2006-08-24 10:10:00) [6]Передавай pv как var параметр и распределяй память внутри метода
__DATA__ (2006-08-24 09:54:00) [7]
function TOurNSHandler.Read(pv: Pointer; cb: ULONG; out cbRead: ULONG): HResult;
var
s,OldS,s2,Word,NewWorld: String;
i,n: Integer;
strl: TStringList;
sr: TSearchRec;
b: Boolean;
begin
(*Read Data from DataStream to Browser/URLMON *)
DataStream.Read(pv, cb, @cbRead);
s := StrPas(pv);
OldS := s;
//Меняем содержимое s ...
if Length(s) <= Length(OldS) then //Вот это условие нужно убрать, и чтобы все работало даже если s > OldS
Move(PChar(s)^, pv^, Length(s)+1)
end;
Inc(written, cbread);
if (written = totalSize) then result := S_FALSE else Result := E_PENDING;
end;
MBo (2006-08-24 09:49:00) [8]>Как расширить память на которую указывает указатель
А как была выделена эта память?
Вообще проблема смотрится надуманной. Откуда берется эта свистопляска с указателями?
Reindeer Moss Eater (2006-08-24 09:48:00) [9]НовыйПойнтер := StrNew(<Старая строка>);
| |
