Перенести результат декодирования Base64 в RichEdit

[artemavd]

Добрый день! Нарыл где-то код, который декодирует зашифрованный алгоритмом Base64 текст. Код:

procedure TForm1.Button2Click(Sender: TObject);
Var
base64File:TextFile;
BufStr:String;
base64String:String;
Base64:TBase64;
hFile:Integer;
begin
OpenDialog1.Title:='Выбор файла для base64 декодирования';
SaveDialog1.Title:='Укажите имя декодированного файла';
If Not OpenDialog1.Execute Then Exit;
If Not SaveDialog1.Execute Then Exit;
Label1.Caption:='Декодирую файл. Ждите...';
Application.ProcessMessages;
AssignFile(base64File,OpenDialog1.FileName);
Reset(base64File);
hFile:=FileCreate(SaveDialog1.FileName);
While Not EOF(base64File) Do
Begin {While Not EOF}
Readln(base64File,BufStr);
While Length(BufStr) > 0 Do
Begin {While Length}
base64String:=Copy(BufStr,1,4);
Delete(BufStr,1,4);
Base64:=DecodeBase64(base64String);
FileWrite(hFile,Base64.ByteArr,Base64.ByteCount);
End;  {While Length}
End;  {While Not EOF}
Label1.Caption:='';
FileClose(hFile);
CloseFile(base64File);

ShowMessage('Файл декодирован!');
end;

Декодирует нормально. Но, вопрос вот в чем. Как перенести расшифрованный текст в RichEdit? Я пытался сделать, но у меня из расшифрованного файла грузится только первая строка и все.

[Пепел Феникса]

а Lines.LoadFromFile не срабатывает?

[GunSmoker]

Забавно.

Проблема в занесении строки в RichEdit, но ты почему-то решил выложить код декодирования. Где логика?

Покажи данные, которые ты заносишь в RichEdit, и код, которым ты это делаешь. Может у тебя там #0 попадает. Может ещё что-то.

[artemavd]

а Lines.LoadFromFile не срабатывает?

Нет, не срабатывает.

Покажи данные, которые ты заносишь в RichEdit

Сами данные показать не могу, секретная, персональная информация.

и код, которым ты это делаешь

В смысле? Данные не кодом заносятся, а берутся из файла.

[GunSmoker]

Сообщение от artemavd

В смысле? Данные не кодом заносятся, а берутся из файла.

А берутся-то как? Божьим духом, или всё же у тебя стоит LoadFromFile или что-то ещё?

Сообщение от artemavd

Сами данные показать не могу, секретная, персональная информация.

Ну ёлки-палки, открой файл в редакторе, замени всю sensitive инфу X-ми и игреками. Желательно делать в HEX-редакторе, чтоб не изменить важные куски.

Кстати, в обычном редакторе как открывается?

[artemavd]

В обычном редакторе открывается.
Вот, сам исходник кодирования-декодирования.

[Аватар]

Попробовал, нормально грузится:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit.Lines.LoadFromFile('E:\тест');
end;

[Человек_Борща]

А зачем всё так усложнять?

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,EncdDecd, StdCtrls, ComCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
 RichEdit2.Text:=EncodeString(RichEdit1.Text);
 RichEdit1.Clear;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
 RichEdit1.Text:=DecodeString(RichEdit2.Text);
 RichEdit2.Clear;
end;

Добавить цикл по строчкам и стринглист.

На d2010 кодирует и русские букафки. На 7-ке только англицкие.