Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.05.2009, 18:15   #1
extrimportal
Пользователь
 
Аватар для extrimportal
 
Регистрация: 07.04.2009
Сообщений: 26
Вопрос Кодирование и декодирование .тхт

Прошу еще раз помощи. Написал прогу, остался последний штрих. Нужно перед сохранением кодировать текстовый файл, а при открытии декодировать его для последующей работы. Перелазил весь инет. Нашол много вариантов, включая base 64 и indy misc компоненты (у мя кстати не работает.) Суть такова: нужно просто закодировать от юзеров тхт. Все равно как, но что бы нельзя было прочитать наприме в ноутпаде или простом текстовом редакторе. Посоветуйте плиз. И если можно код глянуть, а то я немножко не программист.
extrimportal вне форума Ответить с цитированием
Старый 05.05.2009, 18:47   #2
prizrak1390
-=PriZraK=-
Форумчанин
 
Аватар для prizrak1390
 
Регистрация: 12.12.2007
Сообщений: 399
По умолчанию

Ну к примеру,если ты используешь base64(я надеюсь нет смысла приводить тут код функций) то все просто.
Грузишь к примеру текст в memo1
Код:
 if opendialog1.execute then
  memo1.lines.loadfromfile(opendialog1.filename)
Затем,необходимо закодировать текст в memo1....
Код:
memo1.text:=encodebase64(memo1.text);
И ты получишь закодированный вариант.
Для Декодирования:
Код:
memo1.text:=decodebase64(memo1.text)
Сорри,я мог допустить ошибку в командах...но суть изложил..)
prizrak1390 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
корректура тхт Old_Man_nsk Microsoft Office Excel 8 01.04.2009 12:45
Декодирование BMP Rezet Мультимедиа в Delphi 6 24.01.2009 22:33
Декодирование 48 битного RAW формата Rezet Мультимедиа в Delphi 5 23.01.2009 18:21
Черпаем из ТХТ littlecoder Общие вопросы Delphi 1 15.12.2008 22:34
разбить ячейку и ивписать тхт Axe_L Помощь студентам 2 22.10.2007 14:50