Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Технологии
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 25.03.2011, 11:42
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Метод Connect вызывает Access Violation.
Ответить с цитированием
  #17  
Старый 05.04.2011, 18:42
Rat Rat вне форума
Активный
 
Регистрация: 12.09.2008
Сообщения: 391
Репутация: 6078
По умолчанию

Скинте примеры на С и бэйсике. Работал с объектами Siemens из Excel. Интересует эта тема.
Ответить с цитированием
  #18  
Старый 06.04.2011, 17:33
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию из руководства

Код:
Programming an Interface to S7-PLCSIM with S7ProSim
To use S7ProSim to programmatically operate the S7-PLCSIM simulated controller, you must perform
these tasks:
• Include the Siemens S7ProSim COM Object in the project.
• Add a declaration to your project for S7ProSim.
Example: Visual Basic 6.0
Option Explicit
Private WithEvents S7ProSim As S7PROSIMLib.S7ProSim
...
Private Sub Form_Load()
Set S7ProSim = New S7PROSIMLIB.S7ProSim
...
End Sub
Example: Visual Basic .NET
Private WithEvents S7ProSim As New S7PROSIMLib.S7ProSim
Example: Visual C++ 6.0
// the ProSim library/tlb is in the dll
#import <S7wspsmx.dll> named_guids, no_namespace//, raw_interfaces_only
class ProSimWrapper
{
public:
ProSimWrapper() : m_pProSim(OLESTR("S7wspsmx.S7ProSim"), NULL,
CLSCTX_INPROC_SERVER)
{}; // the spartptr is automatically created on the stack when the app
starts
virtual ~ProSimWrapper()
{}; // no implementation, the smartptr is automatically released when the
app shutsdown
IS7ProSim * GetPtr()
{
return m_pProSim;
};
// Attributes
protected:
// IProSimPtr is a CComPtr (smart ptr) to the IProSim interface
// It is from the dll file from the #import
// CoCreateInstance will be called automatically on the ptr object in the
constructor of this class
// release ptr is automatically called by the destructor of this class
IS7ProSimPtr m_pProSim;
};
Example: C#
using S7PROSIMLib;
...
private S7ProSim ps;
• For Visual Basic, program event handlers for the S7ProSim events. Event handlers are not
necessary in Visual C++. Within each event handler, you can insert any custom code for your
application.
S7ProSim Overview
S7ProSim V5.4 9
A5E00992430-01
Example: Visual Basic 6.0
Private Sub S7ProSim_PauseStateChanged(ByVal NewState As String)
DoEvents
...
End Sub
Private Sub S7ProSim_ScanFinished(ByVal ScanInfo As Variant)
DoEvents
...
End Sub
Private Sub S7ProSim_PLCSimStateChanged(ByVal NewState As String)
DoEvents
...
End Sub
Private Sub S7ProSim_ConnectionError(ByVal ControlEngine As String, ByVal error
As Long)
DoEvents
MsgBox "Connection Error"
End Sub
Private Sub S7ProSim_ScanModeChanged(ByVal NewState As String)
DoEvents
...
End Sub
Note
In Visual Basic .NET, the "DoEvents" call is not necessary.
• Add command buttons, textboxes or other objects to your application as needed to access the
various S7ProSim methods. Program the code for each command button handler to call S7ProSim
methods and set corresponding values for textboxes as appropriate for your application.
Ответить с цитированием
  #19  
Старый 06.04.2011, 17:34
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Это VB
frmMain.txt
Ответить с цитированием
  #20  
Старый 06.04.2011, 17:40
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Это C#
COM Control ProSim - PLCSim.rar
Ответить с цитированием
  #21  
Старый 06.04.2011, 17:56
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Заметил, что в Basic ключевое слово With Events.

В C#
Код:
S7ProSimClass ps = new S7ProSimClass();

ps.ConnectionError += new IS7ProSimEvents_ConnectionErrorEventHandler(S7ProSim_ConnectionError);
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:53.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter