TChrome中加载JS与delphi交互问题

最新推荐文章于 2021-12-28 12:31:23 发布
最新推荐文章于 2021-12-28 12:31:23 发布
阅读量634 收藏 2
点赞数
分类专栏： delphi 文章标签： def

关于TChrome中加载JS与delphi交互问题,

我这里直接给他代码，是转载的大神的，具体地址忘了。

(*

 *                               NeuglsWorkStudio

 *                     HTML Interface Javascript Extendtion

 *  This unit implmented TNCJsExtented which used for extend the capablity of

 *  javascript.

 *

 *  Author     : Neugls

 *  Create time: 4/27/2011

 *

 *  Thanks for : Henri Gourvest

 *

 *

 *

 *

 *

 *)

unit VCL.JSExtented;

 

interface

 

uses

  SysUtils, Classes,ceflib,Rtti,cefvcl;

 

const

  csErrorParameters            ='Error Parameters';

  csHaveNoThisMember           ='Have no member';

  csChromiumCouldNotBeNil      ='Chromium could not be nil, please first set the Chromium property';

 

type

  {}

  TVCLJsExtended = class(TComponent)

    type

      TANameType=(ntMethod,ntField,ntProperty);

      {Inner class}

      TNCJSHandle=class(TCefv8HandlerOwn)

        private

           FContainer:TVCLJsExtended;

        protected

          function Execute(const name: ustring; const obj: ICefv8Value;

            const arguments: TCefv8ValueArray; var retval: ICefv8Value;

            var exception: ustring): Boolean; override;

 

          procedure JsCallMethod(Method:TRttiMethod;out ReturnVal:ICefv8Value; const Param:TCefv8ValueArray);overload;

          procedure JsCallMethod(Method:TRttiMethod;out ReturnVal:ICefv8Value);overload;

          function MethodParamLength(Mn:string):Integer;

        public

          constructor Create(Container:TVCLJsExtended);

      end;

 

  private

    FProcessObject:TObject;

    FJsHandle:TNCJSHandle;

    FTypeInfo:Pointer;

    FCustomChromium:TChromium;

    FFrame:ICefFrame;

  public

    Frame:ICefFrame{  read FFrame write FFrame};

    property ProcessObject:TObject read FProcessObject;

    property ATypeInfo:Pointer read FTypeInfo;

    procedure SetProcessObject(value:TObject;ATypeInfo:Pointer);

    Procedure ExecuteJavaScript(const jsCode, scriptUrl: string; startLine: Integer);overload;

    Procedure ExecuteJavaScript(const jsCode:string);overload;

    constructor create(AOwner:TComponent);override;

 

    property Chromium:TChromium read FCustomChromium write FCustomChromium;

  end;

 

  TVCLNcJsExtended = class(TVCLJsExtended)

  published

    property Chromium;

  end;

  TNCWebBrowser=class(TChromium)

 

  end;

 

 

procedure Register;

 

implementation

uses TypInfo;

procedure Register;

begin

  RegisterComponents('NwControls', [TVCLNcJsExtended]);

  RegisterComponents('NwControls', [TChromium]);

end;

 

{ TVCLJsExtended }

 

constructor TVCLJsExtended.create(AOwner:TComponent);

begin

  inherited create(AOwner);

  FProcessObject:=nil;

  FJsHandle:=TNCJSHandle.Create(Self);

end;

 

procedure TVCLJsExtended.ExecuteJavaScript(const jsCode, scriptUrl: string;

  startLine: Integer);

begin

  if not Assigned(FCustomChromium) then

  begin

    raise Exception.Create(csChromiumCouldNotBeNil);

    Exit;

  end;

  FCustomChromium.Browser.MainFrame.ExecuteJavaScript(jsCode,scriptUrl,startLine);

end;

 

procedure TVCLJsExtended.ExecuteJavaScript(const jsCode:string);

begin

  ExecuteJavaScript(jsCode,'',0);

end;

 

procedure TVCLJsExtended.SetProcessObject(value: TObject;ATypeInfo:Pointer);

var

   RttiContext:TRttiContext;

   RttiType:TRttiType;

   RM:TRttiMethod;

   RP:TRttiProperty;

   RF:TRttiField;

 

   JsStr,name:String;

   I:Integer;

begin

  {

    根据object所提供的方法属性生成js字符串，希望注册.

  }

  FProcessObject:=value;

  FTypeInfo:=ATypeInfo;

  RttiType:=RttiContext.GetType(FTypeInfo);

 

  name:=RttiType.Name;

  JsStr:=Format('var %s;',[name]);

  JsStr:=Format('%s if(!%s) %s={};',[JsStr,name,name]);

 

  {Process method}

  for RM in RttiType.GetMethods  do

  begin

    JsStr:=JsStr+Format(#$A#$D' native function %s(',[RM.Name]);

    if Length(RM.GetParameters)=0 then

      JsStr:=Format('%s);',[JsStr])

    else

    begin

      for I := 0 to Length(RM.GetParameters)-2 do

        JsStr:=Format('%s %s,',[JsStr,chr(ord('A')+I)]);

      I:=Length(RM.GetParameters)-1;

      JsStr:=Format('%s %s);',[JsStr,chr(ord('A')+I)]);

    end;

  end;

 

  {Process Field}

  for RF in RttiType.GetFields  do

  begin

    JsStr:=Format('%s'#$A#$D' var %s;',[JsStr,RF.Name]);

    case RF.FieldType.TypeKind of

      tkUnknown: ;

      tkInteger: JsStr:=Format('%s'#$A#$D' %s=%d;',[JsStr,RF.Name,RF.GetValue(FProcessObject).AsInteger]);

      tkChar: JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RF.Name,RF.GetValue(FProcessObject).AsString]);

      tkEnumeration: JsStr:=Format('%s'#$A#$D' %s=%d;',[JsStr,RF.Name,RF.GetValue(FProcessObject).AsInteger]);

      tkFloat: JsStr:=Format('%s'#$A#$D' %s=%f;',[JsStr,RF.Name,RF.GetValue(FProcessObject).AsExtended]);

      tkString: JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RF.Name,RF.GetValue(FProcessObject).AsString]);

      tkSet: JsStr:=Format('%s'#$A#$D' %s=%d;',[JsStr,RF.Name,RF.GetValue(FProcessObject).AsInteger]);

      tkClass:{support later} JsStr:=Format('%s'#$A#$D' %s={};',[JsStr,RF.Name]);

      tkMethod: ;

      tkWChar: JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RF.Name,RF.GetValue(FProcessObject).AsString]);

      tkLString: JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RF.Name,RF.GetValue(FProcessObject).AsString]);

      tkWString: JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RF.Name,RF.GetValue(FProcessObject).AsString]);

      tkVariant: ;

      tkArray: ;

      tkRecord: ;

      tkInterface: ;

      tkInt64: JsStr:=Format('%s'#$A#$D' %s=%d;',[JsStr,RF.Name,RF.GetValue(FProcessObject).AsInteger]);

      tkDynArray: ;

      tkUString: JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RF.Name,RF.GetValue(FProcessObject).AsString]);

      tkClassRef: ;

      tkPointer: ;

      tkProcedure: ;

    end;

  end;

 

  {Process property}

  for RP in RttiType.GetProperties  do

  begin

    JsStr:=Format('%s'#$A#$D' var %s;',[JsStr,RP.Name]);

    case RF.FieldType.TypeKind of

      tkUnknown: ;

      tkInteger: JsStr:=Format('%s'#$A#$D' %s=%d;',[JsStr,RP.Name,RP.GetValue(FProcessObject).AsInteger]);

      tkChar: JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RP.Name,RP.GetValue(FProcessObject).AsString]);

      tkEnumeration: JsStr:=Format('%s'#$A#$D' %s=%d;',[JsStr,RP.Name,RP.GetValue(FProcessObject).AsInteger]);

      tkFloat: JsStr:=Format('%s'#$A#$D' %s=%f;',[JsStr,RP.Name,RP.GetValue(FProcessObject).AsExtended]);

      tkString: JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RP.Name,RP.GetValue(FProcessObject).AsString]);

      tkSet: JsStr:=Format('%s'#$A#$D' %s=%d;',[JsStr,RP.Name,RP.GetValue(FProcessObject).AsInteger]);

      tkClass:{support later} JsStr:=Format('%s'#$A#$D' %s={};',[JsStr,RP.Name]);

      tkMethod: ;

      tkWChar: JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RP.Name,RP.GetValue(FProcessObject).AsString]);

      tkLString: JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RP.Name,RP.GetValue(FProcessObject).AsString]);

      tkWString: JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RP.Name,RP.GetValue(FProcessObject).AsString]);

      tkVariant: ;

      tkArray: ;

      tkRecord: ;

      tkInterface: ;

      tkInt64: JsStr:=Format('%s'#$A#$D' %s=%d;',[JsStr,RP.Name,RP.GetValue(FProcessObject).AsInteger]);

      tkDynArray: ;

      tkUString: if not RP.GetValue(FProcessObject).IsObject then  JsStr:=Format('%s'#$A#$D' %s="%s";',[JsStr,RP.Name,RP.GetValue(FProcessObject).AsString]);

      tkClassRef: ;

      tkPointer: ;

      tkProcedure: ;

    end;

  end;

 

  if not CefRegisterExtension(RttiType.Name,JsStr,FJsHandle) then

    Raise Exception.Create('Register JavaScript Extension Error');

end;

 

{ TVCLJsExtended.TNCJSHandle }

 

constructor TVCLJsExtended.TNCJSHandle.Create(

  Container: TVCLJsExtended);

begin

  inherited Create;

  FContainer:=Container;

end;

 

function TVCLJsExtended.TNCJSHandle.Execute(const name: ustring;

  const obj: ICefv8Value; const arguments: TCefv8ValueArray;

  var retval: ICefv8Value; var exception: ustring): Boolean;

var

   RttiContext:TRttiContext;

   rm:TRttiMember;

   M:TRttiMethod;

   F:TRttiField;

   P:TRttiProperty;

   A:TRttiArrayType;

   nameType:TANameTYpe;

   o:TObject;

   n:string;

 

  function ObjectHaveName(const AObject:TObject; const name:String;out isMethod:TANameTYpe; out mb:TRttiMember):Boolean;

  var

     RttiType:TRttiType;

     RM:TRttiMethod;

     RP:TRttiProperty;

     RF:TRttiField;

  begin

     Result:=false;

     RttiType:=RttiContext.GetType(FContainer.FTypeInfo);

     for RM in RttiType.GetMethods do

     begin

       if CompareText(RM.Name,name)=0 then

       begin

         isMethod:=ntMethod;

         mb:=RM;

         Exit(True);

       end;

     end;

 

     for RP in RttiType.GetProperties do

     begin

       if CompareText(RP.Name,name)=0 then

       begin

         isMethod:=ntProperty;

         mb:=RP;

         Exit(True);

       end;

     end;

 

     for RF in RttiType.GetFields do

     begin

       if CompareText(RF.Name,name)=0 then

       begin

         isMethod:=ntField;

         mb:=RF;

         Exit(True);

       end;

     end;

  end;

begin

  Result:=true;

  O:=FContainer.ProcessObject;

  n:=name;

  if not ObjectHaveName(O,name,nameType,rm) then

  begin

     exception:=csHaveNoThisMember;

     Exit(False);

  end;

 

  case nameType of

    ntMethod:

    begin

       M:=rm as TRttiMethod;

 

       //Assert(M.MethodKind<>mkFunction);

       if Length(M.GetParameters)>0 then

       begin

         if (Length(arguments)>0) and (Length(arguments)=Length(M.GetParameters)) then

         begin

           JsCallMethod(M,retval,arguments);

 

         end

         else

         begin

           exception:=csErrorParameters;

           Exit(False);

         end;

       end

       else

       begin

         JsCallMethod(M,retval);

       end;

 

    end;

    ntField:

    begin

       F:=rm as TRttiField;

       case F.FieldType.TypeKind of

         tkUnknown: ;

         tkInteger: retval:=TCefv8ValueRef.CreateInt(F.GetValue(FContainer.ProcessObject).AsInteger);

         tkChar: retval:=TCefv8ValueRef.CreateString(F.GetValue(FContainer.ProcessObject).AsString);

         tkEnumeration: retval:=TCefv8ValueRef.CreateInt(F.GetValue(FContainer.ProcessObject).AsInteger);

         tkFloat: retval:=TCefv8ValueRef.CreateDouble(F.GetValue(FContainer.ProcessObject).AsExtended);

         tkString: retval:=TCefv8ValueRef.CreateString(F.GetValue(FContainer.ProcessObject).AsString);

         tkSet: retval:=TCefv8ValueRef.CreateInt(F.GetValue(FContainer.ProcessObject).AsInteger);

         tkClass: ;//retval:=TCefv8ValueRef.CreateObject(F.GetValue(FContainer.ProcessObject).AsObject);

         tkMethod: ;

         tkWChar: retval:=TCefv8ValueRef.CreateString(F.GetValue(FContainer.ProcessObject).AsString);

         tkLString: retval:=TCefv8ValueRef.CreateString(F.GetValue(FContainer.ProcessObject).AsString);

         tkWString: retval:=TCefv8ValueRef.CreateString(F.GetValue(FContainer.ProcessObject).AsString);

         tkVariant: ;

         tkArray:

         begin

                   {

                    retval:=TCefv8ValueRef.CreateArray;

                    A:=F.FieldType as TRttiArrayType;

                    //support only one demision array

                    if A.DimensionCount=1 then

                     for I := 0 to A.TotalElementCount do

                     begin

                       case A.ElementType.TypeKind of

                         tkUnknown: retval.SetValueByIndex(I,TCefv8ValueRef.create());

                         tkInteger: ;

                         tkChar: ;

                         tkEnumeration: ;

                         tkFloat: ;

                         tkString: ;

                         tkSet: ;

                         tkClass: ;

                         tkMethod: ;

                         tkWChar: ;

                         tkLString: ;

                         tkWString: ;

                         tkVariant: ;

                         tkArray: ;

                         tkRecord: ;

                         tkInterface: ;

                         tkInt64: ;

                         tkDynArray: ;

                         tkUString: ;

                         tkClassRef: ;

                         tkPointer: ;

                         tkProcedure: ;

                       end;

                       retval.SetValueByIndex(I,TCefv8ValueRef.create)

                     end;

 

 

 

                    retval.SetValueByIndex()

                  end;;

           tkRecord: ;

           tkInterface: ;

           tkInt64: retval:=TCefv8ValueRef.CreateInt(F.GetValue(FContainer.ProcessObject).AsInteger);

           tkDynArray: ;

           tkUString: retval:=TCefv8ValueRef.CreateString(F.GetValue(FContainer.ProcessObject).AsString);

           tkClassRef: ;

           tkPointer: retval:=TCefv8ValueRef.CreateInt(F.GetValue(FContainer.ProcessObject).AsInteger);

           tkProcedure: ;  }

         end;

       end;

    end;

    ntProperty:

     begin

       P:=rm as TRttiProperty;

       case P.PropertyType.TypeKind of

         tkUnknown: ;

         tkInteger: retval:=TCefv8ValueRef.CreateInt(p.GetValue(FContainer.ProcessObject).AsInteger);

         tkChar: retval:=TCefv8ValueRef.CreateString(p.GetValue(FContainer.ProcessObject).AsString);

         tkEnumeration: retval:=TCefv8ValueRef.CreateInt(p.GetValue(FContainer.ProcessObject).AsInteger);

         tkFloat: retval:=TCefv8ValueRef.CreateDouble(p.GetValue(FContainer.ProcessObject).AsExtended);

         tkString: retval:=TCefv8ValueRef.CreateString(p.GetValue(FContainer.ProcessObject).AsString);

         tkSet: retval:=TCefv8ValueRef.CreateInt(p.GetValue(FContainer.ProcessObject).AsInteger);

         tkClass: ;//retval:=TCefv8ValueRef.CreateObject(p.GetValue(FContainer.ProcessObject).AsObject);

         tkMethod: ;

         tkWChar: retval:=TCefv8ValueRef.CreateString(p.GetValue(FContainer.ProcessObject).AsString);

         tkLString: retval:=TCefv8ValueRef.CreateString(p.GetValue(FContainer.ProcessObject).AsString);

         tkWString: retval:=TCefv8ValueRef.CreateString(p.GetValue(FContainer.ProcessObject).AsString);

         tkVariant: ;

         tkArray:;

       end;

     end;

  end;

 

end;

 

 

procedure TVCLJsExtended.TNCJSHandle.JsCallMethod(Method: TRttiMethod;

  out ReturnVal: ICefv8Value; const Param: TCefv8ValueArray);

var

   VA:array of TValue;

   I:Integer;

   rva:TValue;

   AInstance:TObject;

begin

  if Param<>nil then

  begin

    SetLength(VA,Length(Param));

    for I := 0 to Length(Method.GetParameters)-1 do

    begin

      if Param[I].IsBool then

         VA[I]:=TValue.From<Boolean>(Param[I].GetBoolValue);

 

      if Param[I].IsInt then

      begin

         VA[I]:=TValue.From<Integer>(Param[I].GetIntValue);

         Continue;

      end;

 

      if Param[I].IsDouble then

      begin

         VA[I]:=TValue.From<Double>(Param[I].GetDoubleValue);

         Continue;

      end;

 

 

      if Param[I].IsString then

         VA[I]:=TValue.From<String>(Param[I].GetStringValue);

 

      if Param[I].IsObject then

         {VA[I].AsObject:=Param[I].get};

      //if Param[I].is then

 

 

 

    end;

  end

  else

      ;//VA:=nil;

  AInstance:=FContainer.ProcessObject;

  Rva:=Method.Invoke(AInstance,VA);

  case rva.Kind of

    tkUnknown: ;

    tkInteger: ReturnVal:=TCefv8ValueRef.CreateInt(rva.AsInteger);

    tkChar: ReturnVal:=TCefv8ValueRef.CreateString(rva.AsString);

    tkEnumeration: ReturnVal:=TCefv8ValueRef.CreateInt(rva.AsOrdinal);

    tkFloat: ReturnVal:=TCefv8ValueRef.CreateDouble(rva.AsExtended);

    tkString: ReturnVal:=TCefv8ValueRef.CreateString(rva.AsString);

    tkSet: ReturnVal:=TCefv8ValueRef.CreateInt(rva.AsInteger);

    tkClass: ;//ReturnVal:=TCefv8ValueRef.CreateObject(rva.AsObject);

    tkMethod: ;

    tkWChar: ReturnVal:=TCefv8ValueRef.CreateString(rva.AsString);

    tkLString: ReturnVal:=TCefv8ValueRef.CreateString(rva.AsString);

    tkWString: ReturnVal:=TCefv8ValueRef.CreateString(rva.AsString);

    tkVariant: ;

    tkArray:;

    tkRecord: ;

    tkInterface: ;

    tkInt64: ReturnVal:=TCefv8ValueRef.CreateInt(rva.AsInteger);

    tkDynArray: ;

    tkUString: ReturnVal:=TCefv8ValueRef.CreateString(rva.AsString);

    tkClassRef: ;

    tkPointer: ;

    tkProcedure: ;

  end;

end;

 

procedure TVCLJsExtended.TNCJSHandle.JsCallMethod(Method: TRttiMethod;

  out ReturnVal: ICefv8Value);

begin

  JsCallMethod(Method,ReturnVal,nil);

end;

 

function TVCLJsExtended.TNCJSHandle.MethodParamLength(Mn: string): Integer;

var

   Rtx:TRttiContext;

   M:TRttiMethod;

   RT:TRttiType;

begin

   RT:=Rtx.GetType(FContainer.FTypeInfo);

   M:=Rt.GetMethod(Mn);

   Result:=Length(M.GetParameters);

end;

 

 

 

end.

 这是一个控件，他的功能是把delphi函数预注册到程序环境中，这样，在本程序内的所有chrome控件，都可以通过js调用到delphi函数，不过请注意，最好不要用到boolean类型的变量，这样会导致js调用不到delphi。

具体的用法可以在网上搜索下，我就里就不详细写了，毕竟是转载的。

Golden_soft
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
delphi与JavaScript进行交互，获取JS端返回值
05-16
Delphi中调用JavaScript方法，并获得返回值，具体看资源里的DEMO程序。
关于TChrome中加载JS与delphi交互问题
weixin_30390075的博客
07-17 268
我这里直接给他代码，是转载的大神的，具体地址忘了。 ? (* * NeuglsWorkStudio * HTML Interface Javascript Extendtion * This unit implmented TNCJsExtented...
Delphi中Chrome Chromium、Cef3学习笔记（四）
蓝色的雨
07-21 8955
Delphi中Chrome Chromium、Cef3学习笔记（一） 2015年06月25日 13:25:02 阅读数：6421 官方下载地址：https://cefbuilds.com/   尊重作者原创，转载请注明出处，原文地址： http://blog.csdn.net/xtfnpgy/article/details/46635225   CEF简介:       嵌入式...
CEF中文教程(google chrome浏览器控件) -- CEF简介
热门推荐
daoxwj的专栏
04-10 10万+
官方主页:  点击打开链接 CEF简介:     嵌入式Chromium框架(简称CEF) 是一个由Marshall Greenblatt在2008建立的开源项目，它主要目的是开发一个基于Google Chromium的Webbrowser控件。CEF支持一系列的编程语言和操作系统，并且能很容易地整合到新的或已有的工程中去。   它的设计思想政治就是易用且兼顾性能。CEF基本的框架包
CEF3开发者系列之JS与C++交互之二
农村的我的专栏
06-29 3675
本文翻译自JavaScriptIntegration （https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration）。本人在CEF3方面的功力尚浅，翻译中有不当之处，请赐教。对于一些没有太大把握的地方，同时给出了英文和翻译。如不想看本人的拙作，亦可看幻灰龙的JavaScript和Cpp交互示例(Custom Imp
delphi与javascript交互
10-08
本程序列举出 delphi与javascript交互 delphi与html交互 的各种方法
Delphi 测试ActiveX与JavaScript的交互
11-17
Delphi 测试ActiveX与JavaScript的交互 Delphi 测试ActiveX与JavaScript的交互 Delphi 测试ActiveX与JavaScript的交互
Delphi TCPIP通信 实例 解决中文乱码问题 SOCKET SERVER-CLIENT
12-16
敝人近期整理的客户端与服务端通信实例，数据编码约定采用UTF-8编码,解决中文乱码问题.ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的连接，进行单独的...
delphi交互flash文字动画
09-16
delphi交互flash文字动画
将最新Chromium浏览器集成到.NET应用程序中
mnrssj的博客
12-03 608
DotNetBrowser是一个.NET库，允许将基于Chromium的WPF和WinForms组件嵌入到.NET应用程序中，以显示使用HTML5，CSS3，JavaScript，Silverlight等构建的现代网页。 DotNetBrowser更新至v2.3版本，Chromium更新至84版本，允许从JavaScript访问和修改属性的值，增加拖放事件拦截和IDataObject支持，以及更多改进和修复，还没有使用过可以点击文末“了解更多”获取 该产品的特征如下： 1、WPF或WinForms
ChromiumWebBrowser 与js 交互类
12-18
wpf 加载ChromiumWebBrowser 浏览器 与js交互 发消息同信
Chromimu与JS交互的测试
GrassDragon的专栏
06-13 1917
测试一 为解决ExecuteJavascript无法得到返回值的问题，尝试采用JS Dialog和OnJsDialog的方法。 测试结果：可以采用此法传递Js的结果值。 JS alter('abc'); confirm('abc'); DELPHI procedure TForm1.ChromiumFMXJsdialog(Sender: TObject;   const brows
Delphi中Chrome Chromium、Cef3学习笔记（三）
weixin_34377065的博客
11-11 365
原文http://blog.csdn.net/xtfnpgy/article/details/46635871 Delphi与JS的交互问题： 一、执行简单的JS 上一篇已经讲过: chrm1.browser.MainFrame.ExecuteJavaScript('alert("abc");','about:blank',0);chrm1.browser.MainFr...
Delphi中Chrome Chromium获取元素的方法
wjw806[旺旺]的专栏
10-21 2240
一、遍历网页元素并点击JS: 转载请注明出处，原文地址： http://blog.csdn.net/xtfnpgy/article/details/48155323 1.遍历所有元素 var eles=document.all; for(var i=0;i<eles.length;i++){var a; var d=eles[i]; var s=eles[i].getAttribute("class"); if(s!=null){ ...
es6常用的属性方法总结
weixin_46995731的博客
09-28 1093
es6语法总结
cef3 获得js 返回值， 以及js 指挥delphi 函数的 总结参考
weixin_30646315的博客
11-30 968
cef3如何加载本地html文件。请教老师【吐槽】常忘<[email protected]>22:21:45@lazarus下载cef3中的范例中就有【吐槽】常忘<[email protected]>22:22:13其中一个是怎么和js进行数据传递的。【活跃】lazarus(964489899)22:22:25是哪个【吐槽】常忘<run_fa...
在delphi中执行javascript代码
dkopg24406的专栏
09-03 888
有时做项目难免用到代码交叉调用，delphi中执行js就是一种，两种方法可用： 一、使用webbrower，比较麻烦 二、使用ScriptControl，简单方便： 1.首先 uses ComObj; 2.通用函数： function ExecScript(Code,Lang,Func:string):string; var script:OleVariant; b...
Delphi XE 10.2.3使用Chrome浏览器控件并调用执行页面JS
Cinway的专栏
12-28 1695
参考： 在dcef3当中执行js代码并获得返回值 - 西瓜大 - 博客园 Chrome浏览器控件可从 Delphi中Chrome浏览器开发_delphi谷歌浏览器,delphi浏览器控件-Delphi代码类资源-CSDN下载 下载 注意，在开发新的Project的时候，要在Project的Options里设置好Search Path和Output Directory，否则会出现：“缺少指定的模块”的错误，参考那个SimpleBrowser案例。 ...
(转)delphi chrome cef3 控件学习笔记 (三)
一葉輕舟的笔记
04-27 4815
Delphi与JS的交互问题： 一、执行简单的JS 上一篇已经讲过: chrm1.browser.MainFrame.ExecuteJavaScript('alert("abc");','about:blank',0);chrm1.browser.MainFrame.ExecuteJavaScript('function aaa(){alert("abc");}aaa();','about:
cef delphi js 交互
最新发布
05-16
cef和delphi都是常用的软件开发工具，在进行网页应用程序...总的来说，cef和delphi的交互可以实现在应用程序中嵌入浏览器窗口，并通过JavaScript进行应用程序与网页之间的交互，从而达到更加丰富的应用程序开发效果。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值