VPF::vb6 & xml - Форум программистов

Igor Graf

Дата 26.11.2005, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет

Привет всем!
Вопрос такой можно ли с помощью vb6 отправлять инфу в формате xml?
Если да то может кто знает ссылку на эту тему, желательно с нуля.

С уважением Graf.

cardinal

Дата 26.11.2005, 15:31 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Модератор: Зачем тебе две темы? Одну я удалил.

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

cardinal

Дата 26.11.2005, 15:43 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

У меня есть такой вот модуль

Код


Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Public Function Encode(ByVal iStr As String) As String
Dim iXml As New MSXML2.DOMDocument30
Dim iArray() As Byte

    With iXml.createElement("Encoder")
        .dataType = "bin.base64"
        ReDim iArray(LenB(iStr))
        CopyMemory iArray(0), ByVal StrPtr(iStr), LenB(iStr)

        .nodeTypedValue = iArray()
        Encode = .Text
    End With
    
End Function


Public Function Decode(ByVal iStrbase64 As String) As Byte()
Dim strXML As String

    strXML = "<DECODER xmlns:dt=" & Chr(34) & "urn:schemas-microsoft-com:datatypes" & Chr(34) & " dt:dt=" & Chr(34) & "bin.base64" & Chr(34) & ">" & iStrbase64 & "</DECODER>"
    With New MSXML2.DOMDocument30
        .loadXML strXML
        Decode = .selectSingleNode("DECODER").nodeTypedValue
    End With
    
End Function

Public Function ToHex(ByVal iStr As String) As String
Dim iXml As New MSXML2.DOMDocument30
Dim iArray() As Byte

    With iXml.createElement("Encoder")
        .dataType = "bin.hex"
        ReDim iArray(LenB(iStr))
        CopyMemory iArray(0), ByVal StrPtr(iStr), LenB(iStr)

        .nodeTypedValue = iArray()
        ToHex = .Text
    End With
    
End Function

Public Function FromHex(ByVal iStrbase64 As String) As Byte()
Dim strXML As String

    strXML = "<DECODER xmlns:dt=" & Chr(34) & "urn:schemas-microsoft-com:datatypes" & Chr(34) & " dt:dt=" & Chr(34) & "bin.hex" & Chr(34) & ">" & iStrbase64 & "</DECODER>"
    With New MSXML2.DOMDocument30
        .loadXML strXML
        FromHex = .selectSingleNode("DECODER").nodeTypedValue
    End With
    
End Function

Может чем тебе поможет. Хотя бы пример будет...

--------------------

Igor Graf

Дата 27.11.2005, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет

Спасибо за ответ прошу прощения за 2 темы случайно получилось. smile

Буду разбираться

С уважением Graf

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »