Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: WinSock и Record Добавлено: 12.03.06 12:21  

Автор вопроса:  pashaq2000 | Web-сайт: нет | ICQ: 216117684 
как через винсок передать значение переменноой типа Record, не преоброзовывая её в строку?
Public Type MasDat
        PS  As Double
        NS  As Double
        DS As String * 10
End Type

Ответить

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

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



ICQ: 304238252 

Вопросов: 52
Ответов: 927
 Профиль | | #1 Добавлено: 12.03.06 14:19
Dim lpData As MasDat
Call Winsock1.SendData(lpData)

Так вроде можно

Ответить

Номер ответа: 2
Автор ответа:
 pashaq2000



ICQ: 216117684 

Вопросов: 13
Ответов: 29
 Web-сайт: нет
 Профиль | | #2
Добавлено: 12.03.06 17:34
пробовал,не катит, пишет вот что:
Compile error:
Type mismatch

Ответить

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



Вопросов: 60
Ответов: 808
 Профиль | | #3 Добавлено: 12.03.06 20:23
А зачем в строку? Можно CopyMemory в байтовый массив. Все же быстрее. Вооще VBшные строки кошмарно медленные.

Ответить

Номер ответа: 4
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #4 Добавлено: 12.03.06 20:54
SendData принимает что-то кроме строки? Приехали... :)

Ответить

Номер ответа: 5
Автор ответа:
 Sacred Phoenix



ICQ: 304238252 

Вопросов: 52
Ответов: 927
 Профиль | | #5 Добавлено: 12.03.06 21:06
SendData принимает что-то кроме строки? Приехали... :)

Сорри, никогда не проверял, вот и писал: "вроде"... :)

Ответить

Номер ответа: 6
Автор ответа:
 pashaq2000



ICQ: 216117684 

Вопросов: 13
Ответов: 29
 Web-сайт: нет
 Профиль | | #6
Добавлено: 13.03.06 06:50
Понял!!! CopyMemory - нужно попробовать!!!

Ответить

Номер ответа: 7
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
 Профиль | | #7 Добавлено: 13.03.06 11:35
По коду - как вариант попробуй такое

Option Explicit
Private Type MasDat
        PS  As Double
        NS  As Double
        ;DS As String * 10
End Type
Private Type SendStr
    SendString As String * 26
End Type

Private Sub Form_Load()
Dim MasVar As MasDat
Dim SendVar As SendStr
LSet SendVar = MasVar
Winsock1.SendData (SendVar.SendString)
End Sub

Без АПИ - следовательно, возможность выноса меньше.
По самому вопросу - тип Record это из ADO что ли?

Ответить

Номер ответа: 8
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #8 Добавлено: 13.03.06 14:52
А принять? Че-то у меня не очень...

Ответить

Номер ответа: 9
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
 Профиль | | #9 Добавлено: 13.03.06 15:14
Ну, если смог отправить - то, наверное, сможешь и принять. Если только не отправил не туда :)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам