Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.768 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Binäre Datei in Array of Byte laden

  Alt 17. Feb 2013, 20:36
.. so sollte es gehen.

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var bArray: Array of byte;
    FileStream: TFileStream;
begin
  try
    try
      FileStream := TFileStream.Create(Edit1.Text, fmOpenRead);
    except
      on E:Exception do
        showMessage(E.Message);
    end;
    setLength(bArray, FileStream.Size);
    FileStream.seek(0,soFromBeginning);
    FileStream.ReadBuffer(bArray[0], FileStream.Size);
  finally
    FileStream.Free;
  end;
end;
aber auch nur, wenn bArray irgendwo weiter verwendet wird.
Ansonsten wird es heraus optimiert.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat