Форум программистов, компьютерный форум, киберфорум
Pure Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 11.12.2017
Сообщений: 95
1

Кодирование файлов в текст для последующей передачи, реально ли это на PureBasic?

15.10.2018, 19:09. Просмотров 1392. Ответов 5
Метки нет (Все метки)


кодирование файлов в текст для последующей передачи, реально ли это на пуре?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.10.2018, 19:09
Ответы с готовыми решениями:

Кодирование строки для передачи в POST/GET
Доброго времени суток. Обнаружил неприятную проблему, собираю, значит POST-запрос: QString...

Кодирование последовательности байт для передачи без повторений
Всем привет! Столкнулся вот с задачей, несложной на первый взгляд, но пока никак не могу решить....

DLC для Андроид- реально ли это?
Здравствуйте, хочу написать простенький сборник миниигр на Android с помощью RAD Studio. ...

PureBasic: плеер swf-файлов
Установил Пюре_v5.3 Плеер из папки с примерами ...\Examples\Sources -...

5
2736 / 1251 / 166
Регистрация: 28.10.2011
Сообщений: 4,623
Записей в блоге: 6
15.10.2018, 23:22 2
При такой постановке задачи - Base64EncoderBuffer и Base64DecoderBuffer.
Но нужно именно это или что-то другое, сложно сказать по вопросу.
0
0 / 0 / 0
Регистрация: 11.12.2017
Сообщений: 95
16.10.2018, 12:01  [ТС] 3
Да спасибо, это я нашел но я так понял он только строки, а мне нужно файлы или я ошибаюсь?
0
2736 / 1251 / 166
Регистрация: 28.10.2011
Сообщений: 4,623
Записей в блоге: 6
16.10.2018, 13:12 4
Кодировать можно любые данные. В описании функции Base64DecoderBuffer есть пример работы с данными.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
DataSection
  Test:
  Data.a $00, $01, $02, $03, $04, $05, $06, $07
  Data.a $08, $09, $0A, $0B, $0C, $0D, $0E, $0F
  TestEnd:
EndDataSection
 
Size = (?TestEnd - ?Test) * 1.35
If Size < 64
  Size = 64
EndIf
 
*EncodeBuffer = AllocateMemory(Size)
Size = Base64EncoderBuffer(?Test, ?TestEnd - ?Test, *EncodeBuffer, MemorySize(*EncodeBuffer))
Encoded$ = PeekS(*EncodeBuffer, Size, #PB_Ascii)
Debug Encoded$
 
*DecodeBuffer = AllocateMemory(Size)
Size = PokeS(*EncodeBuffer, Encoded$, StringByteLength(Encoded$, #PB_Ascii), #PB_Ascii|#PB_String_NoZero)
Size = Base64DecoderBuffer(*EncodeBuffer, Size, *DecodeBuffer, MemorySize(*DecodeBuffer))
ShowMemoryViewer(*DecodeBuffer, Size)
0
0 / 0 / 0
Регистрация: 11.12.2017
Сообщений: 95
16.10.2018, 21:37  [ТС] 5
да точно ) спасибо

Добавлено через 4 часа 34 минуты
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
ReadFile(0,"test.txt")
length = Lof(0)                            
*MemoryID = AllocateMemory(length)
bytes = ReadData(0, *MemoryID, length)
CloseFile(0)
  Size1 = bytes * 1.5
  If Size1 < 64
    Size1 = 64
  EndIf
  
  *EncodeBuffer = AllocateMemory(Size1*1.5)
  Size3 = Base64EncoderBuffer(*MemoryID, Size1, *EncodeBuffer, MemorySize(*EncodeBuffer))
  Encoded$ = PeekS(*EncodeBuffer, Size3, #PB_UTF8)
  Debug Encoded$
  
  *DecodeBuffer = AllocateMemory(Size3)
  Size = PokeS(*EncodeBuffer, Encoded$, StringByteLength(Encoded$, #PB_UTF8), #PB_UTF8|#PB_String_NoZero)
  Size = Base64DecoderBuffer(*EncodeBuffer, Size, *DecodeBuffer, MemorySize(*DecodeBuffer))
  ShowMemoryViewer(*DecodeBuffer, Size)
фаил кодируется и вроде как то декодируется а как его обратно в фаил превратить?
0
2736 / 1251 / 166
Регистрация: 28.10.2011
Сообщений: 4,623
Записей в блоге: 6
17.10.2018, 23:20 6
Цитата Сообщение от error_systems Посмотреть сообщение
а как его обратно в фаил превратить
CreateFile, WriteData, CloseFile. https://www.purebasic.com/docu... index.html
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2018, 23:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Приложение для передачи файлов по сети
Доброго времени суток всем!!! Я тут новенький да и в программировании тоже. Меня собственно...

Разработать библиотеку процедур для приёма-передачи данных по сети на основе протокола UDP и текст для её проверки
Здравствуйте. Вот задание. Разработать библиотеку процедур для приёма-передачи данных по сети на...

Программа для передачи файлов по локальной сети
Подскажите как реализовать программу передачи файлов по локальной сети ( на несколько компьютеров ).

Приложение для передачи файлов + локальный чат
Есть приложение для отправки и получения файлов по локальной сети. На сокетах. Нашёл готовое и...

Преобразование файлов, для передачи по линии связи
День добрый. У меня есть ПК и есть одноплатный ЭВМ. Эти 2 устройства общаются через протокол...

Программа для передачи файлов через wifi
Здравствуйте,помогите пожалуйста хочу создать программу для передачи файлов через wifi но не знаю с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.