Показать сообщение отдельно
Старый 07.09.2013, 14:51   #12  
InTacto is offline
InTacto
Участник
Аватар для InTacto
 
323 / 11 (1) +
Регистрация: 09.08.2005
BigText тоже не поможет, т.к. опять встает проблема получения потока из полученной строки
Тут нужна уже своя библиотека, через которую можно работать с Auda.dll.

Код на vb6(бибилиотеку с ходу не нашел, так что может быть не вполне рабочий)

Option Explicit

Public Function GetInfAuda(Login_ As String, _
Pass_ As String, _
DateFrom_ As String, _
DateTo_ As String, _
Tab_ As String, _
FileName As String, _
ByRef Errorno As Long, _
ByRef Errortext As String) As Boolean
' FileName - полный путь до файла

Dim vFF As Long, oResp() As Byte
' создаем объект Auda, возможно нужно как то по другому к нему подключаться
Dim Auda1 As Auda
Set Auda1 = New Auda
' Очищаем переменные ошибок
Errorno = 0
Errortext = ""
' запускаем перехват ошибок
On Error GoTo Err
' Получем информацию и помещаем в массив байт
oResp = Auda.GetTaskList(Login_, Pass_, DateFrom_, DateTo_, Tab_)
' создаем файл
vFF = FreeFile
Open FileName For Binary As #vFF
' записываем в файл полученные данные
Put #vFF, , oResp
' сохраняем файл
Close #vFF
' говорим что ф-ция завершилась успешно
SaveWrongFile = True
Exit Function
Err:
' если ошибка, то возвращаем ее номер и описание
Errorno = Err.Number
Errortext = Left(Err.Description, 250)
' говорим что в ф-ции произошла ошибка
SaveWrongFile = False
End Function

К проекту нужно подключить библиотеку Auda
из жирных минусов: необходимость регить 2 библиотеки.