页面正在加载中
请稍候...
免费版本2018-01-05
ETABS TO PERFORM-3D
Author: dinochen1983
Time: 2023-12-31
[小记]ETE2018是由陈学伟(DINO)与李明(LI MING)开发的集成程序,它可以完成结构概念设计
优化设计、模型转换、快速建模,快速验算与结构总信息统计的小程序,在设计的基础上开发,不是纯学术研究
满足工程人员对设计的极致要求。由于程序太巨大量,学习操作的教程会慢慢在DINOCHEN.COM上发布
有兴趣的工程师可以下载试用,我们定期会在微信公众号平台公布程序的最新进展
我们的微信公众号是 DINOSTRU , 或扫码关注, 微信的更新是永远最快的。
ETE2018
Author: dinochen1983
Time: 2023-12-27
ETABS to ABAQUS 内置于 ETE2018
ETABS to ABAQUS
Author: dinochen1983
Time: 2023-12-09

后台程序控制OpenSEES操作

2008年11月7日,开始进行基于OpenSEES的CSA研究项目,也叫Hybrid Simulation,该项目由我与王响合作开始进行。我的第一步是研究基于OPP的Delphi去控制OpenSEES程序,实时的放送命令。很久没有搞控制了。查了一些书终于做出来了。这个项目我很感兴趣,同时谢谢日本的Motohide Tada教授在学习资料上面的帮助。
程序源代码如下
procedure TForm1.Button1Click(Sender: TObject);
var h:hwnd;
i:integer;
txt:string;
begin
h:=findwindow(nil,pchar('opensees.exe'));
setForeGroundWindow(h);
txt:=edit1.text;
SendMessage(h,wm_char,ord(char(txt[i])),0);
SendMessage(h,wm_char,ord(#13),0);
end;



[本日志由 dinochen1983 于 2010-02-06 09:59 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 编程
评论: 5 | 引用: 0 | 查看次数: 7889
  • 1
dinochen1983 [2010-07-03 01:49 AM]
你好,是的,你真聪明,好像是写少了一个读字的过程。原理是一样的。这个功能其它编程语言都有,是调用了windows API。有空再交流。
loveoobaby [2010-07-02 03:07 PM]

楼主的程序应该这样写吧
i:=1;
while i<=length(txt) do
begin
SendMessage(h,wm_char,ord(char(txt[i])),0);
i:=i+1;
end;
谢谢分享,在你的启发下我也做出来了
loveoobaby [2010-07-01 02:55 PM]
根据楼主的代码我也写了一个控制opensees的程序,启动opensees到没问题,可是用楼主的代码却没发出命令,只发出了一个回车,请楼主指点SendMessage函数,谢谢!!
dinochen1983 [2008-11-07 12:13 AM]
C++能做,Delphi就能做的,呵呵,我用过c++的,后来觉得与DELPHI没什么区别就没学了,看了C++的东西都可以用Delphi来实现,但是看书还是看C++的
CASDer [2008-11-07 12:00 AM]
不懂Delphi,后台控制用C++可能更好一些。
  • 1
发表评论
昵 称:
密 码: 游客发言不需要密码.
验证码: =1+9
内 容:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 2000 字 | UBB代码 开启 | [img]标签 开启