Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

передача строки в ActiveX-приложение   Найти похожие ветки 

← →
korfu   (2004-10-20 19:48) [0]

Проблема в следующем. Есть 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) [1]

А почему бы просто не объевить экпортируемую функцию в ActiveX - приложении, в которой и передавать строку???

---

Страницы: 1 вся ветка

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.09 c