| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как получить строку SendMessage [D7, WinXP]

delphi-oracle ©   (2006-02-23 08:41:00) 

Я думал, что по
Если сделать, как Рихтер, то ето должно было бы выглядеть так:
sendmessage(form1.Handle,wm_gettext,sizeof(s),lparam(s)); S:Pchar //строка C
К сожалению, при исполнении кода выскакивает ошыбка в Controls / TControl.WndProc. Когда начал менять исходник, смог избавиться от ошыбки, но никакого результата все равно не получил. Видел все ошыбки начиная от Access Violation до ошыбки в ntdll. Здаюсь. Если кто-то может объяснить мне хоть что-то, очень спасибо.

---

Kolan   (2006-02-24 10:38:00) [1]

Еще одно решение. Передовать не строку а число, а при получении сообщения вызывать функцию, которая и вернет строку..

StatusBar.Panels[2].Text
               := DefineFFTError(TFFTErrorType(Msg.LParam));

function DefineFFTError(Error: TFFTErrorType): string;
begin
 case Error of
   ffteDeviceReplyError:
     Result := 'Íå äîæäàëñÿ îòâåòà óñòðîéñòâà.';
 end;
end;

Смысл ясен я надеюсь...

---

Nick Denry   (2006-02-23 17:27:00) [2]

delphi-oracle ©   (23.02.06 08:41)

ВМРЯ ж иш и

---

delphi-oracle   (2006-02-23 09:08:00) [3]

Защита от приколов
Ну не хоть что-то, а как решыть проблему. Спасибо.

---

begin...end   (2006-02-23 09:08:00) [4]

Перед получением текста нужно узнать его длину и выделить необходимый объём памяти для буфера, в который текст будет помещён. И, посылая WM_GETTEXT, нужно указывать размер буфера, а не размер указателя на него. Вот так:

var
 P: PChar;
 L: Integer;
begin
 L := SendMessage(Handle, WM_GETTEXTLENGTH, 0, 0) + 1;
 GetMem(P, L);
 try
   SendMessage(Handle, WM_GETTEXT, L, Integer(P));
   MessageBox(0, P, 'Text', MB_OK)
 finally
   FreeMem(P)
 end
end

PChar и GetMem/FreeMem можно заменить на String и SetString.

---

Наверх