Delphi 호출 javascrpit

874 단어 Delphi
우선 관련 파일
uses

Comobj;

----------------------------------------------------------------------------
실천 용 JavaScript
function getTime(){

	var d, s = "";

	var c = "";

	d = new Date();

	s += d.getYear()+c;

	s += (d.getMonth() + 1) + c;

	s += d.getDate() + c;

	s += d.getHours() + c;

	s += d.getMinutes() + c;

	s += d.getSeconds() + c;

	s += d.getMilliseconds();

	return s;

}

자바 스 크 립 트 코드 호출:
 
procedure TForm6.Button2Click(Sender: TObject);

var

  js: OleVariant;

  str: string;

begin

  js := CreateOleObject('ScriptControl'); //     

  js.Language := 'JavaScript'; //           ,    VBScript

  js.AddCode(Memo1.Text); //   JS  ,      

  str := js.Eval('getTime()');// getTime() function from JS

  ShowMessage(str);



end;

좋은 웹페이지 즐겨찾기