1. Столько, сколько сможет принять приемнмк.

3. В принципе, правильно

4. Надо давать модему команду ATS0=1.

Вот кусок программы, которым пользуюсь я:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''Модуль mdlRModem

''(c) - Олег Креков, 2003

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''Процедура инициализации модема''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Sub InitModem()

Dim SettString As String

On Local Error Resume Next

MSComm1.CommPort = 1

SettString = 4800,N,8,2

MSComm1.Settings = SettString

MSComm1.InputLen = 0

MSComm1.PortOpen = True

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''Процедура для передачи данных в модем''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub SendToModem()

On Local Error Resume Next

Dim j As Long, s As String

MSComm1.RTSEnable = True

s = ""

For j = 0 To DataOut(1) - 1

s = s & Chr(DataOut(j))

Next j

MSComm1.Output = s

MSComm1.RTSEnable = False

Do

DoEvents

Loop While MSComm1.CommEvent = 1

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''Процедура для чтения данных из модема''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function ReadFromModem() As Boolean

On Local Error Resume Next

Dim Debugs, ff As Long

Dim s As String, i As Integer, j As Integer

If MSComm1.CTSHolding = False Then Exit Function

MSComm1.RTSEnable = False

s = MSComm1.Input

If Len(s) > 0 Then

For i = 0 To Len(s) - 1

DataIn(i) = CByte(Asc(Mid(s, i + 1, 1)))

Next i

ReadFromModem = True

Else

ReadFromModem = False

End If

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''Процедура для ожидания данных с модема

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub WaitFromModem()

Dim t0 As Single, dummy As Integer

t0 = Timer

Do While Timer - t0 < 10 Or MSComm1.CommEvent = 0

dummy = DoEvents()

If Timer < t0 Then

t0 = t0 - CLng(24) * CLng(60) * CLng(60)

End If

Loop

Do While Timer - t0 < 10 Or MSComm1.CommEvent = 2

dummy = DoEvents()

If Timer < t0 Then

t0 = t0 - CLng(24) * CLng(60) * CLng(60)

End If

Loop

End Sub

Ответить

4) Действительно помогло

1) Когда я пытался передать 5 кило не дощло ни одного байта. Так от чего зависит размер приёмника

А в куске нельзя переписываться, пока идёт перекачка. А так всё мне очень помогло

Ответить

Ещё вопросы появились:

5) Как в ричтекстбокс добавлять строчки разных цветов??? Попробуйте сделать - если у кого получится, срочно сообщите!!!

6) Наконец дело дошло до практики, но при отправке 512 байт рич показывал сначала первые примерно 150 байт, потом, несмотря на то, что в программе стоит r1.textr=r1.text & Bufer (где буфер данные с модема), данные затираются новыми. Не подскажите, в чём дело??????? Мне позарез нужно!!!!!!!!!!!!!!!

Ответить

Ну и чё никто не отвечает. Как простые вопросы возникают, так сразу постов 20, а как интересный и непростой вопросец - и все играют в молчанку.

Ответить

Насчет RTB - я уже постил это на форуме. Делай так:

Private Sub Form_Load()

RichTextBox1.SelStart = Len(RichTextBox1.Text)

RichTextBox1.SelColor = vbGreen

RichTextBox1.SelText = "Green" & vbCrLf

RichTextBox1.SelStart = Len(RichTextBox1.Text)

RichTextBox1.SelColor = vbRed

RichTextBox1.SelText = "Red" & vbCrLf

End Sub

Ответить

Во первых, r1.textr=r1.text & Bufer работать не может, поскольку свойства textr нет.

Во вторых, это скорее всего у тебя где-то ошибка в коде.

В третьих, все TextBox'ы неадекватно реагируют на Null-Terminated strings, RTB в этом плане постабильнее, но использовать их крайне не рекомендую.

В четвертых, как я уже писал, используй лучше SelStart и SetText.

Ответить

Буфер приема - InBufferSize

Буфер передачи - OutBufferSize

Размер OutBufferSize определяет сколько байт можно впихнуть

в порт за один раз, так наверное.

Ответить

Offtopic: предложения к администраторам форума - может все же сделать защиту от дублирующихся сообщений? Тут скоро все в спаме погрязнет!

Ответить

to AI: Спасибо. Это то, что нужно.

to LamerOnLine: Спасибо. Ща буду эксперементировать

Ответить

Ответить

to LameOnLine: Большое спасибо. Давно искал, и вот нашёл.

to Павел(раз уж ты рядом Опять письма не приходят. Что же такое???

Ответить

Ответить

Ответить

Раз, два, три. Проверка связи

Ответить

Письмо дошло. Всё работает. Видите, сколько сразу проблем решили

Ответить