| Вопрос: Декодер Base64 | Добавлено: 02.09.07 00:12 |
Автор вопроса:  Stasik
|
| Ответы | Всего ответов: 22 |
|
Номер ответа: 16 Автор ответа:  Stasik Вопросов: 3 Ответов: 21 |
Профиль | | #16 | Добавлено: 02.09.07 15:00 |
|
Кооче говоря у меня 2 варианта:
1. Эта функция преобразует переменную не правильно arr = StrConv(fileCont, vbFromUnicode) 2. Декодер глючный... |
||
|
Номер ответа: 17 Автор ответа: Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #17 | Добавлено: 03.09.07 01:13 |
| ЕЕЕ!!! Я разобрался в чем дело! | ||
|
Номер ответа: 18 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #18 | Добавлено: 03.09.07 01:14 |
|
Private Sub Form_Load()
Dim fName As String, File1 As Long, Data As String fName = "C:/1/starcraft.mim" File1 = FreeFile Open fName For Binary Access Read As File1  ata = Space(FileLen(fName))
Get File1, , Data Close File1 Dim arr() As Byte 'MsgBox Len(Data) Data = Replace(Data, vbNewLine, "" 
arr = StrConv(Data, vbFromUnicode) 'MsgBox UBound(arr) & vbNewLine & Len(Data) Call Base64Array_Decode(arr) End Sub Обратите внимание на Data = Replace(Data, vbNewLine, ""
|
||
|
Номер ответа: 19 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #19 | Добавлено: 03.09.07 01:20 |
|
Картинка JPG 1600x1200 671Кб
отлично раскодировалась |
||
|
Номер ответа: 20 Автор ответа: StasikВопросов: 3 Ответов: 21 |
Профиль | | #20 | Добавлено: 03.09.07 01:59 |
|
Точно! Принятый attachment соджал символы переноса строк. Поэтому-то и декодеровка была неверной.
Всем огромное спасибо за помощь! Всё чудестно работает! Желаю удачи всем специалистам! |
||
|
Номер ответа: 21 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #21 | Добавлено: 03.09.07 02:28 |
|
Я надеюсь, мне тоже удачи пожелал))
я не спец |
||
|
Номер ответа: 22 Автор ответа: StasikВопросов: 3 Ответов: 21 |
Профиль | | #22 | Добавлено: 03.09.07 08:08 |
|
Не важно! Спасибо ВСЕМ кто учавтствовал в обсуждении и помогал!
Я тоже не спец... Всему своё время! Учиться никогда не позно! )
|
||