以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 示例转换成FT的语言~ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139201) |
-- 作者:fubblyc -- 发布时间:2019/8/8 8:49:00 -- 示例转换成FT的语言~ 老师,如下代码示例,转换成我们FT的语言是什么样呢? 4.程序修改 浏览器插件会把相应的参数通过命令方式传到CS程序中,在CS程序中解析命令得到相应的浏览器参数,调用api就可以把程序附加到浏览器中,satrda提供了vb,pb,c++,c#,delphi等的调用示例,可以在下载的示例中查看。 以下代码将把当前窗口加载到当前的网页中: --------------------- 版权声明:本文为CSDN博主「pcwe2002」的原创文章,遵循CC 4.0 by-sa版权协议,转载请附上原文出处链接及本声明。 原文链接:https://blog.csdn.net/pcwe2002/article/details/74614173 C#代码: //在main函数中添加 static void Main(string[] args) { if (args.Length > 0) { parseCommand(args[0]); } //需要附加到浏览器的窗口中添加 private void Form1_Load(object sender, EventArgs e) { if ( SatRDA.WebPtr != (IntPtr)(0) ) { SatRDA.SatWebApp_Attach(SatRDA.WebPtr, this.Handle, 0 | SatRDA.WS_CHILD ); } } VB代码: VBWebApp Me.hwnd C++代码: //在窗口打开时添加,of_parseCommand函数具体见定义
of_parseCommand();
HMODULE h = LoadLibraryA("satrda.dll");
fWebApp_Attach webapp_attach = (fWebApp_Attach)GetProcAddress(h,"SatWebApp_Attach");
webapp_attach(gl_web,m_hWnd,WEBAPP_FULL); --------------------- |
-- 作者:有点蓝 -- 发布时间:2019/8/8 9:05:00 -- c# 转vb.net :http://converter.telerik.com/ |
-- 作者:fubblyc -- 发布时间:2019/8/8 11:08:00 -- 谢谢蓝老师,这样转换了: VB.NET 在main函数中添加 Private Shared Sub Main(ByVal args As String()) If args.Length > 0 Then parseCommand(args(0)) End If End Sub 转成FT的语言(在main函数中添加,在我们这里指什么呢): VB.NET(需要附加到浏览器的窗口中添加): Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) If SatRDA.WebPtr <> CType((0), IntPtr) Then SatRDA.SatWebApp_Attach(SatRDA.WebPtr, Me.Handle, 0 Or SatRDA.WS_CHILD) End If End Sub 转成FT的语言(需要附加到浏览器的窗口中添加,是不是指窗口的Afterload呢): [此贴子已经被作者于2019/8/8 11:12:09编辑过]
|
-- 作者:有点蓝 -- 发布时间:2019/8/8 11:20:00 -- 有没有开发文档,发上来看看 |
-- 作者:fubblyc -- 发布时间:2019/8/8 11:23:00 -- 谢谢蓝老师,是这个: 第4个步骤
[此贴子已经被作者于2019/8/8 11:23:35编辑过]
|
-- 作者:有点蓝 -- 发布时间:2019/8/8 11:28:00 -- 这里没有开发文档,只是一些关联用法而已。 指的是satrda这个玩意的开发文档
|
-- 作者:有点蓝 -- 发布时间:2019/8/8 11:32:00 -- 他这种是调用exe程序,然后传入参数,需要在afteropenproject事件处理,试试 afteropenproject事件 parseCommand(OpenFileargs(0)) If SatRDA.WebPtr <> CType((0), IntPtr) Then SatRDA.SatWebApp_Attach(SatRDA.WebPtr, basemainform.Handle, 0 Or SatRDA.WS_CHILD) End If |
-- 作者:fubblyc -- 发布时间:2019/8/8 11:33:00 -- 蓝老师,他们就是这样关联的,没有其他的开发文档。 能咋整吗?
|
-- 作者:有点蓝 -- 发布时间:2019/8/8 11:42:00 -- 看7楼 |
-- 作者:fubblyc -- 发布时间:2019/8/8 14:45:00 -- 蓝老师,parseCommand 未定义~~ |