VBNet - Форум - Это как и ....

Вопрос: Это как и .... Добавлено: 28.09.03 22:29

Автор вопроса: tigrix | Web-сайт: f

Незнаю! Облазил уже весь инет! Но как В ком порт записать\получить данные никто не говорит.
Я работаю через mscom32.ocx
Ктонибудь чтонибудь....

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

crackoff

ICQ: 156165990

Вопросов: 12
Ответов: 229

Профиль | | #1

Добавлено: 29.09.03 08:27

И чем тебя mscom32.ocx не устраивает? Я вот тоже им пользуюсь, и пока никаких серьёзных глюков не выявил.

Инициализируешь:

Sub InitComm()
Dim SettString As String
On Local Error Resume Next
With MSComm1
    .MSComm1.CommPort = right(GetSetting(App.Title, "COMPort", "Num", "1"), 1)
    SettString = Trim(GetSetting(App.Title, "COMPort", "Speed", "4800")) & "," _
        & Trim(GetSetting(App.Title, "COMPort", "Sum", "N")) & "," _
        & Trim(GetSetting(App.Title, "COMPort", "DataBits", "8")) & "," _
        & Trim(GetSetting(App.Title, "COMPort", "StopBits", "2"))
    .Settings = SettString
    .InputLen = 0
    .PortOpen = True
    .RTSEnable = True
End With
End Sub

Пишешь:

With MSComm1
    .RTSEnable = True
    s = "ШЛЁМ"
    .MSComm1.Output = s
    .MSComm1.RTSEnable = False

    Do
        DoEvents
    Loop While .MSComm1.CommEvent = 1
End With

Читаешь:

MSComm1.RTSEnable = False
s = MSComm1.Input

Ответить

Номер ответа: 2 Автор ответа: tigrix Вопросов: 13 Ответов: 16	Web-сайт: f Профиль \| \| #2	Добавлено: 29.09.03 20:06
	Да это то да! НО! как например мне файл MyFile.txt Отправить и его потом чтонибудь принять! И как мне узнать файл ко мне идёт или текст сообщения мне написали!!!!???:?: Ответить

Номер ответа: 3
Автор ответа:

Nio

Вопросов: 15
Ответов: 115

Web-сайт: www.fea.nxt.ru
Профиль | | #3

Добавлено: 07.10.03 06:24

www.ya.ru

Ищи DLPORTIO

Ответить

Номер ответа: 4 Автор ответа: Malyav ICQ: 8440085 Вопросов: 15 Ответов: 117	Web-сайт: malyav.narod.ru Профиль \| \| #4	Добавлено: 07.10.03 07:34
	Я так мыслю, что если ты хочешь отличить файл от текста, передающиеся сторонней программой, то нужно реализовывать такой же протокол передачи данных по RS-232. Или писать премо-передатчик со своим протоколом. Тогда передать файлы можно только между экземплярами твоей проги. Я как раз над этим бьюсь. Проблема у меня сейчас в том, что куда-то теряется первый байт пакета. А формат такой: длина пакета в байтах (4 байта), контрольная сумма (3 байта), порядковый номер пакета (3 байта), данные (max 9500 байт). Прияняв пакет, отделяю заголовок, проверяю контрольную сумму, затем данные пишу в файл. В ответ шлю ОК с номером следующего пакета (или этого-же, если пакет пришел с ошибкой). Вот такой немудреный алгоритм. В настройках контрола нужно установить тип передачи "Данные" отправлять из массива байтов и принимать в массив байтов. И еще убрать NullDiscard. Ответить

Страница: 1 |