Форум: "WinAPI";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];
Внизпередача строки в 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 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.049 c