передача строки в ActiveX-приложение [D7, WinXP]
korfu © (2004-10-20 19:48:00)
Проблема в следующем. Есть 2 приложения: первое - обычное,
второе - ActiveX-компонент, встроенный в браузер. Нужно передать
строку из первого приложения во второе. Пытаюсь делать следующее.
В первом приложении:
procedure TForm1.Button1Click(Sender:TObject);
var cd: TCopyDataStruct;
begin
cd.cbData:=Length(Edit1.Text)+1;
cd.lpData:=PChar(Edit1.Text);
SendMessage(FindWindow('TActiveFormX',nil),WM_COPYDATA,0,LParam(@cd));
end;
В ActiveX-приложении:
TActiveFormX = class(TForm)
private
procedure ReceiveMessage(var Msg:TMessage);
message WM_COPYDATA;
end;
implementation
procedure TActiveFormX.ReceiveMessage;
var pcd:PCopyDataStruct;
begin
pcd:=PCopyDataStruct(Msg.LParam);
Edit1.Text:=PChar(pcd.lpData);
end;
Только это все никакого эффекта не дает.
tesseract (2004-10-22 13:07:00) [1]
А почему бы просто не объевить экпортируемую функцию в ActiveX
- приложении, в которой и передавать строку???
Наверх 
ЧАТ |
Орешник |
|
