〔西门子通讯〕SAPI_S7 com版本接口

熟悉自动控制的朋友，一定会了解西门子的。西门子的SAPI_S7 编程接口可以实现普通PC机利用以太网连接西门子PLC的功能。这样就可以通过高级语言（C、C＋＋）编程，达到操作PLC的目的。不过这个api是一个c语言接口，用其他语言调用c语言库显的很不方便；我自己用平时用c#多一些，在c#中调用这个api就牵涉到了数据封送的问题，处理起来相当烦琐；所以，干脆做个com库，最起码在win平台下，大部分主流编程语言都可以调用这个库了。

我的基本思路是：在com中调用sapi_s7接口，把与语言相关的数据类型（c语言的指针、结构）在com中预处理一遍，处理后再输出就可以了。

片断：S7_READ_PARA 结构体的修改

[uuid(DCA5D958-C381-43A0-9BDB-000000000000)]

struct S7_READ_PARA

{

ord16 access;

LPSTR var_name;

ord16 index;

ord16 subindex;

ord16 address_len;

byte address[S7_MAX_ADDRESSLEN];

};

interface Isapi_s7com : IDispatch{

[id(1), helpstring("方法get_vfd")] HRESULT get_vfd([in]LPSTR dev_name, ord16 index, [in,out] ord16* number_ptr, [in,out,size_is(33)] LPSTR* vfd_name, [out,retval] int32* ret);

[id(2), helpstring("方法init")] HRESULT init(LPSTR cp_name, LPSTR vfd_name, [in,out] ord32 * cp_descr_ptr,[out,retval] int32* ret);

[id(3), helpstring("方法get_device")] HRESULT get_device(ord16 index, [in,out] ord16 * number_ptr, [in,out] LPSTR* dev_name, [out,retval] int32* ret);

[id(4), helpstring("方法abort")] HRESULT abort(ord32 cp_descr, ord16 cref, [out,retval] int32 * ret);

[id(5), helpstring("方法await_initiate_req")] HRESULT await_initiate_req(ord32 cp_descr, ord16 cref, [out,retval] int32* ret);

......

[id(59), helpstring("方法write_trace_buffer")] HRESULT write_trace_buffer(LPSTR filename);

[id(60), helpstring("方法get_read_cnf")] HRESULT get_read_cnf( [in,out] ord16* var_length_ptr, [in,out] VARIANT* value_ptr,[out,retval] int32* ret);

[id(61), helpstring("方法get_read_cnf_byte")] HRESULT get_read_cnf_byte( [in,out] ord16* var_length_ptr, [in,out] ord16* value_ptr, [out,retval] int32* ret);

};

完整的IDL文件下载：sapis7com.idl

DLL文件下载：sapis7com.dll

下载后请将后缀txt去掉

使用注意事项：使用前需用regsrv32注册com组件，然后就可以在程序中调用控件了。

程序需要配合Simatic Net使用。

本程序在 C#、Delphi中测试成功。

编译环境：windowXP Sp3 + visual Studio 2008

测试环境：windowXP Sp3 + visual Studio 2008 / Delphi 2003 + Simatic Net 2005 + s7 300 PLC