TFileStream *InpStream = new TFileStream(ExtractFilePath(Application->ExeName)+"Inp\\bln220409Z.txt", fmOpenRead);
TFileStream *OutStream = new TFileStream(ExtractFilePath(Application->ExeName)+"Inp\\out.txt", fmCreate);
Main_f->NMUUProcessor->InputStream=InpStream;
Main_f->NMUUProcessor->OutputStream=OutStream;
Main_f->NMUUProcessor->Decode();
Принять письмо с вложением (вложение закодировано в UUE)
Всем привет!!!!!
Есть такая задача, получать вложения писем, но они закодированы, если с браузера сохранить или открыть, то получаем:
begin 666 bn01049Z.txt
M-3@J,S(V,3@R*C(V,#`T,S8Y-2HW.3(P*LW.T<7-RLX@PBX@PBXJ.3`W-#`X
M.#,J,3<W*C`Q+C`T+C(P,#DJ,3$J,#@J,#(J,#DJ/%I!5D]$3SXJ/%I!5D]$
M3U`^*CQ:059/1$]+/BH\6D%63T14/BH\6D%63T144#XJ/%I!5D]$5$L^*CQ:
M059/1$8^*CQ:059/1$90/BH\6D%63T1&2SXJ/%I!5D]$0SXJ/%I!5D]$0U`^
end
сохранил это на диск, и в тотал командере нажал файл - декодировать UUE
в итоге получил нормальное вложение.
Сторонние почтовые проги не подходят, нужно своей тащить.
Наскочил в хелпе на компонент, который делает то что мне нужно (декодировать UUE)
Для экспиремента взял файл в котором текст закодирован:
begin 644 bln220409Z.txt
=8FQN,C(P-#`Y6BYT>'0J,#0R,S$Q,#8J,"HP#0H`
`
end
и применил к нему такой код:
в результате получаю в фале out.txt следующее:
rbln220409Z.txt*04231106*0*0
8AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28
прога пишет вот это - 28AN 28AN 28 пока ее насильно не вырубишь!
мои КОРРЕКТНО раскодированные данные это bln220409Z.txt*04231106*0*0
Вопрос что это:
перед моими данными r и после 28AN 28AN ....
И как это поправить?))
Есть такая задача, получать вложения писем, но они закодированы, если с браузера сохранить или открыть, то получаем:
begin 666 bn01049Z.txt
M-3@J,S(V,3@R*C(V,#`T,S8Y-2HW.3(P*LW.T<7-RLX@PBX@PBXJ.3`W-#`X
M.#,J,3<W*C`Q+C`T+C(P,#DJ,3$J,#@J,#(J,#DJ/%I!5D]$3SXJ/%I!5D]$
M3U`^*CQ:059/1$]+/BH\6D%63T14/BH\6D%63T144#XJ/%I!5D]$5$L^*CQ:
M059/1$8^*CQ:059/1$90/BH\6D%63T1&2SXJ/%I!5D]$0SXJ/%I!5D]$0U`^
end
сохранил это на диск, и в тотал командере нажал файл - декодировать UUE
в итоге получил нормальное вложение.
Сторонние почтовые проги не подходят, нужно своей тащить.
Наскочил в хелпе на компонент, который делает то что мне нужно (декодировать UUE)
Для экспиремента взял файл в котором текст закодирован:
begin 644 bln220409Z.txt
=8FQN,C(P-#`Y6BYT>'0J,#0R,S$Q,#8J,"HP#0H`
`
end
и применил к нему такой код:
Код:
в результате получаю в фале out.txt следующее:
rbln220409Z.txt*04231106*0*0
8AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28AN 28
прога пишет вот это - 28AN 28AN 28 пока ее насильно не вырубишь!
мои КОРРЕКТНО раскодированные данные это bln220409Z.txt*04231106*0*0
Вопрос что это:
перед моими данными r и после 28AN 28AN ....
И как это поправить?))
Вот корректно закодированные данные. Как видно, никакого = перед этим нет. А компонент глючный (потоки потому что неверные, с лишними 0 очевидно), вот и пишет лабуду, зависая. Подправьте его если есть исходник или найдите другой.
Код:
00000000 38 46 51 4E 2C 43 28 50 2D 23 60 59 36 42 59 54 8FQN,C(P-#`Y6BYT
00000010 3E 27 30 4A 2C 23 30 52 2C 53 24 51 2C 23 38 4A >'0J,#0R,S$Q,#8J
00000020 2C 22 48 50 ,"HP
00000010 3E 27 30 4A 2C 23 30 52 2C 53 24 51 2C 23 38 4A >'0J,#0R,S$Q,#8J
00000020 2C 22 48 50 ,"HP
Цитата: Phodopus
Вот корректно закодированные данные. Как видно, никакого = перед этим нет. А компонент глючный (потоки потому что неверные, с лишними 0 очевидно), вот и пишет лабуду, зависая. Подправьте его если есть исходник или найдите другой.
Код:
00000000 38 46 51 4E 2C 43 28 50 2D 23 60 59 36 42 59 54 8FQN,C(P-#`Y6BYT
00000010 3E 27 30 4A 2C 23 30 52 2C 53 24 51 2C 23 38 4A >'0J,#0R,S$Q,#8J
00000020 2C 22 48 50 ,"HP
00000010 3E 27 30 4A 2C 23 30 52 2C 53 24 51 2C 23 38 4A >'0J,#0R,S$Q,#8J
00000020 2C 22 48 50 ,"HP
Блин до подправить я еще не дорос, погуглил компонентов таких сторонних для билдера не нашел((
попробую инди 9 поставить