Форум TRACE MODE: техническая поддержка Послать новую тему / Post New Topic  Послать ответ / Post A Reply
мой профиль / my profile авторизация / login | регистрация / register | поиск / search | часто задаваемые вопросы / faq | начало / forum home

  Следующая старая тема / next oldest topic   Следующая новая тема / next newest topic
» Форум TRACE MODE: техническая поддержка » ТЕХНИЧЕСКАЯ ПОДДЕРЖКА / TECHNICAL SUPPORT TRACE MODE 6 » TRACE MODE 6 бесплатная Базовая версия / TRACE MODE 6 free Base version » обмен по TCP/IP с источником питания Spellman

   
Автор / Author Тема / Topic: обмен по TCP/IP с источником питания Spellman
shippite
Junior Member / Новичок
Участник № / Member № 3060


Icon 1 отправлено / posted      Профиль для / Profile for shippite           Редактировать/удалить сообщение / Edit/Delete Post   Вставить в ответ текст исходного сообщения  / Reply With Quote 
Добрый день. Подскажите пожалуйста как реализовать обмен по TCP/IP с источником питания фирмы Spellman.
в каком направлении почитать хелп?
формат посылаемой команды

<STX><CMD><,>ARG><,><ETX>

Where:
<STX> = 1 ASCII 0x02 Start of Text character
<CMD> = 2 ASCII characters representing the command ID
<,> = 1 ASCII 0x2C character
<ARG> = Command Argument
<,> = 1 ASCII 0x2C character
<ETX> = 1 ASCII 0x03 End of Text character

В руководстве источника питания есть пример на Visual Basic.

tcpClient.RemoteHost = host
tcpClient.RemotePort = portNumber
tcpClient.Connect

Data Output Example

MSComm1 TcpClient is the Ethernet port.

If (portType = "ethernet") Then
tcpClient.SendData (str)
Else
MSComm1.InBufferCount = 0
On Error GoTo done
MSComm1.Output = str
done:
tmrOpenClose.Enabled = True
End If

Data Input Example

If (portType = "ethernet") Then
Do
DoEvents
tcpClient.GetData temp$
str = str + temp$
Loop Until InStr(str, Chr(3)) Or Timer - t1 > 1
On Error Resume Next
Else
Do
DoEvents
If MSComm1.InBufferCount > 0 Then
str = str & MSComm1.Input
End If
Loop Until InStr(str, Chr(3)) Or Timer - t1 > 1
If InStr(str, Chr(3)) > 0 Then
tmrOpenClose.Enabled = False
End If
End If

Сообщения / Posts 18 | Из / From: Казахстан  |  IP / IP: IP адрес / IP address | Report this post to a Moderator
АдАстра. Техподдержка
Administrator
Участник № / Member № 4


Icon 1 отправлено / posted      Профиль для / Profile for АдАстра. Техподдержка           Редактировать/удалить сообщение / Edit/Delete Post   Вставить в ответ текст исходного сообщения  / Reply With Quote 
Надо писать новый драйвер типа Type 12 в соответствии со спецификацией, описанной в разделе "Разработка драйверов".
Сообщения / Posts 17114 | Из / From: Россия  |  IP / IP: IP адрес / IP address | Report this post to a Moderator
   

Quick Reply
Сообщение / Message:

HTML код не разрешен. / HTML is not enabled.
UBB код разрешен. / UBB Code is enabled.

Значки Graemlins / Instant Graemlins
   


Послать новую тему / Post New Topic  Послать ответ / Post A Reply Закрыть тему / Close Topic   Feature Topic   Переместить топик / Move Topic   Удалить топик / Delete Topic Следующая старая тема / next oldest topic   Следующая новая тема / next newest topic
 - Printer-friendly view of this topic
Перейти к / Hop To


Новости АСУ ТП / News | SCADA / HMI | Обучение / Trainings | Свяжитесь с нами / Contact Us



Powered by Infopop Corporation
UBB.classic™ 6.7.2