RE:Llamar java desde foxpro
Local loScript, lcCode
* Instancio el Microsoft Script Control
loScript = CreateObject("MSScriptControl.ScriptControl.1")
* Indico que el script a ejecutar será en Javascript
loScript.Language = "Javascript"
* Agrego la referencia al desktop de VFP (objeto _Screen)
loScript.AddObject("VFPDesktop", _Screen)
* Escribo el código JScript en una variable
Text To lcCode Textmerge NoShow
var i, cCaption = "Esto lo hizo Javascript";
VFPDesktop.Caption = cCaption;
VFPDesktop.Cls();
for(i=1;i<=10;i++)
VFPDesktop.Print( "Iteración FOR en Java Nº" + i + "\n\r" );
EndText
* Finalmente, ejecuto el script
loScript.ExecuteStatement(lcCode)
Suerte