اجرا java script در twebbrowser

[firststep]

سلام دوستان خسته نباشید

من به یه مشکلی برخوردم تویه صفحه وب که قصد کامل کردنشو توی برنامم از طریق webbrowser دارم باید یک دکمه ای بزنم که در رویداد onclick اون یک کد جاوا اسکریپت نوشته شده حالا می خوام اون کلیدو فشار بدم بایدچه کاری انجام بدم

پیشاپیش با تشکر

[firststep]

سلام و خسته نباشید

چون کسی جواب نداد و خودم جواب رو یافتم گفتم بگم که تو آرشیو بمونه

var
Doc: IHTMLDocument2; // current HTML document
HTMLWindow: IHTMLWindow2; // parent window of current HTML document
JSFn: string; // stores JavaScipt function call
begin
// Get reference to current document
Doc := Wb1.Document as IHTMLDocument2;
if not Assigned(Doc) then
Exit;
// Get parent window of current document
HTMLWindow := Doc.parentWindow;
if not Assigned(HTMLWindow) then
Exit;
// Run JavaScript
try
JSFn := 'nextPage();'; // build function call
HTMLWindow.execScript(JSFn, 'JavaScript'); // execute function
except
// handle exception in case JavaScript fails to run
end;
end;


بایستی اول اون رو درقالب IHTMLDocument2 ریخت و از اون به parentWindow دسترسی پیدا کرد --- و از این طریق SCRIPT مورد نظر رو هم میشود EXECUTE که برای مثال دستور NEXTPAGE() در این کد فراخوانی شده است... همین



هرچی که میخواد بشکنه - بشکنه اینشا.. دل کسی نشکنه... (هرچند هم که اگه شکست هم نیازه)