AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Base64/ Mime für Dateien

Ein Thema von Capstone · begonnen am 13. Sep 2017 · letzter Beitrag vom 17. Sep 2017
 
Benutzerbild von Capstone
Capstone

Registriert seit: 15. Jul 2013
Ort: NRW
23 Beiträge
 
Delphi 3 Professional
 
#9

AW: Base64/ Mime für Dateien

  Alt 15. Sep 2017, 21:33
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?)
MySQL-ERROR(): 1146
- - - Entschuldigung,
Diese Signatur ist in Deinem Land nicht vollständig sichtbar. :/
PGP Key ID: 0xB54AACD6

Geändert von Capstone (15. Sep 2017 um 22:19 Uhr)
  Mit Zitat antworten Zitat
 

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz