Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка при обращении со строками [D7, WinXP]

capkoh © (2006-01-04 20:11:00)
Написал код вставки текста из буфера обмена. В этом коде на последней строке происходит ошибка. Это связано с тем что что-то не в порядке с обрашением с памятью и\или обращением со строками.

Если использовать код для малых кусков текста, то все в порядке. Однако, при больших текстах что-то в WideCharToMultiByte ломается. Никак не пойму что. У кого-нибудь есть идеи как проконтролировать длину строки? И какая она максимальная? На сколько я знаю - 4ГБ...

procedure TSomeEdit.GetBuffer(Format: word; var Buffer : PWideString);
var
temp : WideString;
Data: THandle;
begin
OpenClipboard(Handle);
Data := GetClipboardData(Format);
try
if Data <> 0 then
begin
temp := PWideChar(GlobalLock(Data));
Buffer := PWideString(temp);
end
else
Buffer := 0;
finally
if Data <> 0 then GlobalUnlock(Data);
CloseClipboard;
end;
end;

Вызов:

ws : TWideString;

GetBuffer(CF_UNICODETEXT, PWideString(ws));
n := WideCharToMultiByte(CodePage, 0, PWideChar(ws), -1, 0, 0, 0, 0);

capkoh (2006-01-05 16:30:00) [1]
Спасибо, починил!

Гаврила (2006-01-05 00:31:00) [2]

>temp := PWideChar(GlobalLock(Data));
> Buffer := PWideString(temp);

temp - локальная переменная, которая будет автоматически освобождена компилятором при выходе из
процедуры GetBuffer().
соответственно, в переменной
var Buffer : PWideString
ты запоминаешь ссылку на ужзе освобожденный участок памяти

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »