Base64/ Mime für Dateien

[Capstone]

So, 2 Dinge brauche ich:
Datei -> base64-String
Datei -> base64-Datei
und zurück.

Wie kann man Dateien am sinnvollsten/schnellsten/besten [Stream/sonstwie] mime codieren:

Ich möchte eine große (ca.80 MB) Datei gerne in base64 sichern/umwandeln. Unüblich ich weiß. Doch das dauerte mit diversen anderen units, die ich über die Jahre mal gefunden habe sonst teilweise für 1 MB StringDaten schon extrem lange.

Erst hatte ich mit der DEC 5.2 Funktion herumgespielt, weil ich gesehn hatte, daß Hagen die Funktion dort auch eingebaut hat. Allerdings, wie mir scheint eher nur für Strings (z.B. den Salt; evtl. auch für den Cryptotext). Oder?

Ich hab dann nochmal gesucht und die Unit von Sakura (wieder)gefunden.
http://www.delphipraxis.net/991-base...-decoding.html
Diese oder eine ähliche hab ich vor Jahren schon mal abgespeichert und in einem älteren Projekt eingebunden, fand aber später mal in meinen Projekten, daß die in DEC eingebaute Routine[mime?] für einige tausend/Mio Bytes irgendwie schneller war.

So, nun wollte ich dennoch diese auch verwenden, weil die mit Streams zurechtzukommen scheint, hab aber generelle Probleme damit/ u.mit Streams. (bin auch noch "neu" mit Delphi/pascal)

Streams - dazu hab ich mir mittlerweile was durchgelesen - aber ich kann doch eigentlich nicht in BufferTeilen in eine Base64 Procedur reinschieben - das gibt doch sicher total andere Eegebnisse, als von einem kontinuierlichen Strom? Dann hätte ich ja unterbrochene, einzeln b64 codierte Stringabschnitte.

Wie mach ich das am besten?

"Datei als base64-String" wäre evtl. auch noch gut, für kleinere Dateien.
müßte doch auch gehen?

Delphi-Quellcode:

var
OUTStrom, strm : TFileStream;
FN: String;
  Buffer:array[0..7] of byte;
  Buffer2:array[0..7] of byte;
begin
     begin
FN := 'C:\neu.txt'; // 5 MB groß
    strm:=TFileStream.Create(FN,fmOpenRead);

if not FileExists(FN + 'UUX') then
     FileCreate(FN+ 'UUX');
OUTStrom:=TFileStream.Create(FN + '_ENC' ,fmOpenWrite or fmShareDenyNone);
    strm.Seek(0,soFromBeginning);
   OUTStrom.Seek(0,soFromBeginning);

    Base64Encode(Strm, 8, OUTStrom);
   strm.Free;
   OUTStrom.Free;
  end;

Hab das einfach mal so versucht, mit dem, was ich mir über Streams so zusammengoogeln konnte.
Die Buffergröße ist ... einfach mal geschätzt gewählt. Ob die sinnvoll ist, weiß ich nicht.

Jedenfalls bricht das Programm bei Durchführung einfach ab und bleibt im CPU Diassembler stehen:
datatype missalignment at 0x77b4d7e8.

Naja, vielleicht wißt Ihr ja, wie man das insgesamt besser lösen könnte.
Ich kenn mich mit Streams nicht so aus. Anfangs hatte ich darum eine Stringlist.loadfromFile('neu.txt') als Speicher verwenden wollen, aber das ging auch nicht, da dann nur die erste, kurze Zeile verwendet wurde.

Eine Suche hier im Forum und entwEcke nach Datei und Mime oder base64 brachte vieles, aber auch viele Threads, in denen die das mit Indy lösten.
Zudem hab ich aber Delphi 5. (64 Bit brauch ich nicht)



Vielleicht hat jemand eine Idee und einen Moment Zeit zu antworten.
(Der umgekehrten Weg (b64Decode) ist hoffentlich genauso einfach.?)

Danke.

[sakura]

Warum nutzt Du nicht die TIdEncoderMIME Klasse der Indy-Unit IdCoderMIME? Damit geht es recht einfach und schnell.

Delphi-Quellcode:

  FileToEncode := TFileStream.Create(aFileNameSource, fmOpenRead);
  FileAsBase64 := TFileStream.Create(aFileNameDest, fmCreate);
  try
    idCodec64.Encode(FileToEncode, FileAsBase64);
  finally
    FileAsBase64.Destroy;
    FileToEncode.Destroy;
  end;

Bei mir dauern 80 MB etwas mehr als 4 Sekunden.

......

[Capstone]

Zitat von sakura:

Warum nutzt Du nicht die TIdEncoderMIME Klasse der Indy-Unit IdCoderMIME? Damit geht es recht einfach und schnell.[...]

weil ...

äh ja, weil

Du (EDIT: damals) selbst geschrieben hast:

Zitat von Sakura:

Erster Grund contra der Indy Lösung: es ist eine Komponente (VCL).
Zweiter Grund contra der Indy Lösung: die ist seht langsam

siehe http://www.delphipraxis.net/991-base...-decoding.html

Das hab ich ernst genommen.

und langsame units kannte ich schon, die hab ich reichlich im Netz gefunden. (wohl eher für kurze Strings geeignet.)

Und da dachte ich mir ... wenn schon ... dann eine Assembler Lösung. Schneller kann's nicht gehen.
64Bit muß nicht sein.

Aber Danke Dir, Sakura,
aber da muß ich erstmal schauen, ob ich die Indy für D5 überhaupt noch bekomme.

http://ww2.indyproject.org/Archive/index.DE.aspx

http://ww2.indyproject.org/Archive/index.html

Code:

404 - File or directory not found.
The resource you are looking for might have been removed, had its name changed, or is temporarily unavailable.

Oar .. wie ich solche Seiten Liebe ...

hier hab ich zwar auch noch nen passenden Thread gefunden, aber da sind leider auch nur alte Links.
http://www.delphipraxis.net/97225-in...-standard.html

Ich denke, da wird es auch nur noch Indy 9 für so alte Delphi5 geben ... meine ich, hätt ich mal gelesen.

aber wo ... als ZIP-Download?

wo bekommt Ihr das Zeug nur immer her?

[sakura]

[QUOTE=Capstone;1381024]Du (EDIT: damals) selbst geschrieben hast:

Zitat von Sakura:

Erster Grund contra der Indy Lösung: es ist eine Komponente (VCL).
...
...
...
Ich denke, da wird es auch nur noch Indy 9 für so alte Delphi5 geben ... meine ich, hätt ich mal gelesen.

Gut, D5 hatte ich jetzt nicht mitbekommen. Auch die Indy-Komponenten wurden mit der Zeit verbessert. Aber ob es etwas aktuelleres für D5 überhaupt gibt... Keine Ahnung

Viel Erfolg

......

[HolgerX]

Hmm..


http://indy.fulgan.com/ZIP/


Unter D6 laufen diese problemlos...
Einfach mal testen..

[Redeemer]

Ist an sich schnell geschrieben:

Delphi-Quellcode:

procedure Base64EncodeStream(Input, Output: TStream);
const
  Base64: array[0..64] of Byte = (
  65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,
  97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,
  48,49,50,51,52,53,54,55,56,57,43,47,$3D);
var
  count: Byte;
  temp: Cardinal;
  i, j: Integer;
begin
  Count := 0;
  Temp := 0;
  for i := 0 to (Input.Size + 2) div 3 - 1 do
  begin
    Count := Input.Read(temp, 3);
    temp := temp and $ff00 + temp shl 16 + temp shr 16; // Endianness drehen
    for j := 0 to Count do
    begin
      temp := temp shl 6;
      Output.WriteBuffer(Base64[(temp shr 18) and $3f], 1);
    end;
  end;
  for j := Count to 2 do
  Output.WriteBuffer(Base64[64], 1);
end;

Ich würde übrigens TMemoryStreams nehmen. Viele kleine Zugriffe auf TFileStream sind abartig langsam.