Как получить данные из _удалённого

← →
Xarkon (2005-11-06 16:09) [0]

Имею желание получить текст из richedit, расположенного в другом приложении. WM_GETTEXT достаёт только 64к - не подходит. Делаю через EM_STREAMOUT:

function StreamSave(dwCookie: Longint; pbBuff: PByte; cb: Longint; var pcb: Longint): Longint; stdcall;
var
StreamInfo: PRichEditStreamInfo;
begin
Result := NoError;
StreamInfo := PRichEditStreamInfo(Pointer(dwCookie));
try
pcb := 0;
if StreamInfo^.Converter <> nil then
pcb:= StreamInfo^.Converter.ConvertWriteStream(StreamInfo^.Stream, PChar(pbBuff), cb);
except
Result := WriteError;
end;
end;

procedure SaveToStream(h:HWND; Stream: TStream);
var
EditStream: TEditStream;
TextType: Longint;
StreamInfo: TRichEditStreamInfo;
Converter: TConversion;
begin
Converter := TConversion.Create;

StreamInfo.Stream := Stream;
StreamInfo.Converter := Converter;
try
with EditStream do
begin
dwCookie := LongInt(Pointer(@StreamInfo));
pfnCallBack := @StreamSave;
dwError := 0;
end;

sendmessage(h,EM_STREAMOUT, SF_TEXT, Longint(@EditStream));
if EditStream.dwError <> 0 then
raise EOutOfResources.Create("Error");
finally
Converter.Free;
end;
end;

Если делаю
s:=TFileStream.Create("tezt", fmCreate);
SaveToStream(RichEdit1.Handle,s);
s.free;
где RichEdit1 находится в этом же приложении - всё ок, текст сохраняется.

Если же делать SaveToStream(HANDLE,s);
где HANDLE - хэндл ричедита в постороннем приложении - то или не передаётся ничего, или вообще начинают вылезать АВ...
Что делать?

← →
Leonid Troyanovsky © (2005-11-07 10:30) [1]

> Xarkon (06.11.05 16:09)

> Если же делать SaveToStream(HANDLE,s);
> где HANDLE - хэндл ричедита в постороннем приложении - то
> или не передаётся ничего, или вообще начинают вылезать АВ.
> ..
> Что делать?

Выполнить SaveToStream(HANDLE,s) в контексте первичного потока
чужого приложения, например, из функции хука.

--
Regards, LVT.

Как получить данные из _удалённого_ richedit? Найти похожие ветки