Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

Memo   Найти похожие ветки 

 
KEBZ   (2004-12-11 23:49) [0]

Как создать зашифрованный текстовы файл. Чтоб грузить с отуда текст в Memo.


 
BURN ©   (2004-12-12 01:40) [1]

На закладке Indy Misc есть компоненты IdCoderUUE, IdCoderXXE, IdCoder64E ("64", "UU", "XX") с их помощью можно шифровать, а если их использовать вместе то можно очень хорошовсе запутать.

procedure TForm1.Button1Click(Sender: TObject);
var rs:string;
   ri:integer;
begin
memo2.Clear;
rs:= IdEncoderXXE1.EncodeString(Memo1.Text);
rs:=(fetch(rs,";"));
memo2.Text:=fetch(rs,";");
end;

procedure TForm1.Button2Click(Sender: TObject);
var rs:string;
   ri:integer;
begin
memo3.Clear;
rs:=IdDecoderXXE1.DecodeString(memo2.Text);
rs:=(fetch(rs,";"));
memo3.Text:=fetch(rs,";");
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo2.Lines.SaveFromFile("C:\xXx.dat");
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
memo2.Lines.LoadFromFile("C:\xXx.dat");
end;


 
KEBZ   (2004-12-13 10:18) [2]

Сенкс



Страницы: 1 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
6-1097231321
4MO
2004-10-08 14:28
2004.12.26
Proxy


3-1101977596
makz
2004-12-02 11:53
2004.12.26
SQL как данные


3-1101968688
speed
2004-12-02 09:24
2004.12.26
информационно-поисковая система.


4-1100073222
Lika
2004-11-10 10:53
2004.12.26
Com-порт


9-1093546246
Melamed
2004-08-26 22:50
2004.12.26
Вопрос по Speech API