WinSock без OCX'а (интересный глюк)

[XairOn]

Доброго времени суток, обращаюсь я к вам с довольно интересной (на мой взгляд) проблемой. Вобщем однажды передо мной встала
задача: написать прогу использующую все возможности WinSock, но не используя самого контрола, потому что, согласитесь, таскать за собой OCX, который весит 120 кило. когда сама прога занимает не больше 50 кБ не очень-то приятно. Т.е. мне нужно было использовать стандартные функции Windows'а, но к сожалению пока что я не умею ими хорошо пользоваться, поэтому я скачал с инета (не помню откуда именно..., но ссылку на этом форуме получил) готовый исходник - это простенький чат, который содержит в себе один Модуль и один Модуль Класса (Class Module), запускаю этот чат - всё работает отлично, но... есть одно "но", сокет реализованный в данной проге, почему-то отправляет только данные типа String, а мне нужно к примеру Byte передавать, вобщем, что-то я уже расписался тут, кому не лень и кoму интересно посмотрите этот сорс. Я его для наглядности чуть-чуть изменил, но изменения коснулись лишь формы, модули я вообще не трогал. Короче глюк заключается в том, что когда пытаешься передать от клиента серверу число 3 или любое другое, то до сервера доходит что-то типа 103 или 45 вобщем что угодно, кроме переданного числа (рандомайзер своеобразный получается ). Вобщем качайте, запускайте и следите за окошком Immediate (обратите особое внимание на строки А=... и В=..., число А-это число которое мы передаем, а число В-это ты что мы получаем). На последок одна просьба: не предлагайте пожалуйста передавать числа, как строки, так не пойдет.

[codemaster]

, но... есть одно "но", сокет реализованный в данной проге, почему-то отправляет только данные типа String, а мне нужно к примеру Byte передавать,.

Помоему что то ты не так делаеш!

для начала Какая OS на компе?

Посмотри внимательно
Sub SendData(Data As Variant) CSocketMaster
он вполне нормально понимает Byte.

[XairOn]

OS Win XP SP1... но я думаю дело не в этом, да я согласен он Byte и другие типы понимает, но при передачи что-то не то с ними делает, в первый раз когда пытаешься передать число, всё срабатывает нормально - это всегда а вот потом, как получится раз на раз не приходится, вобщем что-бы ошибку заметить нужно несколько раз разные числа попробовать отправлять и примерно на 5-7 (а может и раньше) ошибчка даст о себе знать.

[Ennor]

Формируй вручную CRC32 и проверяй целостность пакетов. Хотя... уж лучше бы ты с собой OCX таскал

[SSecurity]

Если тебе Byte слать .... переводи через CHR$ и шли, что тебе мешает:)

И вот что бывает менее геморойно тоскать контрол, если это у тебя прога для сети, то юзеру будет приятнее если у него инфа всёже полностью передаваться будет а не огрызками:)

[XairOn]

Если тебе Byte слать .... переводи через CHR$ и шли, что тебе мешает:)

Понимаешь, через CHR$ я не хочу потому, что мне нужно передавать несколько переменных одни из которых числа, а другие строки, так вот не знаю как в других языках, но в VB строки передаются всегда как одна строка, т.е. если я попытаюсь передать число переделанное в строку, а птом ещё одно число, а потом нужную мне строку, то получится, что всё в одной строке отправится. а это не есть гуд...

[xolod]

Введи разделители какие-нить, что-то вроде:
"10|30|&HF|Какая-то строка|"
Потом парсь их и все ..

[XairOn]

Это тоже не канает, я об этом думал, дело в том, что заранее не известно сколько переменных будет принято, т.е. иногда их будет 2, а иногда 5 так, что... нужен другой способ

[SSecurity]

Я бы ... в таком случае обратился к потусторонней силе -
И после разделителя втыкнул бы системный символ например
"|:Число1|:Число2| Какая-то строка|..."
(пустой символ там где не числа...)

[xolod]

На тебя не угодишь ..

Вариант первый:
ты первым делом посылаешь кол-во переменных, а потом сами переменные (например, вот так: "5|A|Cxcvsd|&H31|123|456")

Вариант второй (и последний):
Ты берешь мноюписную ActiveX DLL из аттача, пользуешься ей, но никому не говоришь, что она у тебя есть, я ее для фирмы писал

ЗЫ: Вариант третий (да, 2-ой был не совсем последним):
Забиваешь на все это, и идешь гулять

[xenomorph]

Вариант четвёртый и ИМХО наиболее оптимальный 8].

Любой пакет передаёться формулой: [длинна пакета х 10 байт + сколько надо Space-ов] + [сам пакет]

Если надо - бери 100 байт для заголовка - это пакетик в пару террабайт, навскидку .

в оригинале:
ws_Main.SendData Left(Trim(Str(Len(s_Data)) + 10) & " ", 10) & s_Data

Реверс функция сложнее:

'===== покусано =============================
'Getting Data
Public Sub DataArrival()

Dim l_PSize As Long
Dim s_Output As String

ws_Main.PeekData s_MainBuf

Start:

'Exiting if it is less than a header size
If Len(s_MainBuf) < l_PHSize Then Exit Sub

'Getting Packet Size out of the Header
l_PSize = CLng(Trim(Left(s_MainBuf, l_PHSize)))

Select Case Len(s_MainBuf)

Case Is >= l_PSize 'Packet is less than Data in Buffer

'Getting Packet Data
s_Output = Mid(s_MainBuf, l_PHSize + 1, l_PSize - l_PHSize)

'Clearing Data in Main Buffer
s_MainBuf = Right(s_MainBuf, Len(s_MainBuf) - l_PSize) ' 'Mid(s_MainBuf, l_PSize, Len(s_MainBuf) - l_PSize)

'Parcing Data
RaiseEvent GotPacket(s_Output)

'Recursing
GoTo Start

Case Is > l_PSize

Exit Sub 'Waiting for the rest of the Packet

End Select

End Sub
'===== покусано =============================

И оооочень внимательно рассматривай КАК в классе вырезаються такие пакеты .

Этот класс хватает инстансы при инициализации:

'===== погрызено ============================
Option Explicit

Dim ws_Main As Winsock
Dim s_MainBuf As String

Private Const l_PHSize = 10 'Packet Header Size

Public Event GotPacket(s_PData As String)

'Parcing Instance
Public Sub Inst(ByRef ws_Socket As Winsock)

Set ws_Main = ws_Socket

End Sub
'===== погрызено ============================

Но это не обязательно, делай так:

ByRef WS As WinAPISocket ' ))

Класс PacketDeployment приложен.

Он разделит твои переменные .

Он с ивентом. Как только к тебе прийдёт один пакет -
сработает ивент . В какчестве параметра - будут чистые данные.

Зная что сделано под винсок. Просто замени на соотв. фун=Х=цию
по приёму и передаче данных.

(Я не говорил что будет легко !)

--
Когда я в форуме вижу "Вот мене вп?*:о таскать за собой ОСХ !!!"
В голову лезут по очереди:

Гомер,
Парнокопытные лошади,
Дерево,
Одиссей приколист,
Спаленая город,
Маленький размер,
и всякое подобное неподобство )).

Удачи!

[XairOn]

xenomorph, Спасибо большое - конструктивное предложение
xolod, тебе за ДЛЛку тоже спасибо... не переживай никому не скажу, что она у меня есть