Base64/ Mime für Dateien

[Capstone]

Danke, funktioniert jetzt auch bei mir so - in der Tat.
aber wo kann ich sowas nachlesen?

Genau so ein Wissen fehlt mir ja.

EDIT:
aber
also mit folgendem Code braucht er für ne 17 MB Datei (ca. 20 Sekunden?).
(19969 Tics)

Ne 5000 Bytes-Datei geht schneller: 2044 Tics.

10000 Bytes Datei: 6973 Tics.

(hab hier nen 4 Jahre alten 2x 2.54 DualCore Laptop, 8 GB RAM, 1 TB HDD) Aber das kommt mir irgendwie langsam vor, oder?.

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
  Input, Output: TMemoryStream;
  FN: String ;
  gt, gt2: Longword;
diff :  integer;
begin
  Input := TMemoryStream.Create;
  Output := TMemoryStream.Create;
  try
  FN := 'C:\Users\Documents\DELPHI\fC\neu.txt';
      gt := gettickcount;
    Input.LoadFromFile(FN );
    Base64EncodeStream(Input, Output);
      Output.SaveToFile(FN  + 'UUX');
          gt2 := gettickcount;
          diff:= gt2 - gt;
//  diff := diff * 1000;
  memo1.Text:= inttostr(diff);

  finally
    Input.Free;
    Output.Free;
  end;
end;

Schrieb Sakura nicht was von wenigen Sekunden? (4S für 80 MB?)