Datei in ein Bytearray einlesen

[Linguini]

Hi,

eine ganz kurze Frage

Wie kann ich eine Datei in ein Byte Array (TByteArr = Array of Byte) einlesen?

Ich bräuchte nur einen kleinen Schubs in die richtige Richtung der verwendeten Unit/Funktion.

Danke

Linguini

[Satty67]

reicht das schon als Schups?
FileStream.Read(MyByteArray[0], Length(MyByteArray));

[mr_emre_d]

Falls ne, dann *tritt,fg*:

Delphi-Quellcode:

type TByteArr = Array of Byte;

function ReadIn( const Filename: String ): TByteArr;
var
  f: File of Byte;
  Err: String;
begin
  if not FileExists(Filename) then
    Exit;
  {$i-}
  AssignFile( F, Filename );
  Reset( F );
  SetLength( Result, FileSize(F) );
  BlockRead( F, Result[0], Length(Result) );
  CloseFile( F );
  {i-}
  Err := SysErrorMessage( IOResult );
  if Err <> 0 then
    MessageBoxA( Handle, pChar( 'Error [' + IntToStr(IOResult) + ']'#13#10#13#10+Err ),
      'Error', MB_OK or MB_ICONERROR );
end;

[Linguini]

Es will leider immer noch nicht funktionieren =/

Ich versuche den Entrypoint eines Programmes herauszufinden, dazu benutze ich die Unit aus diesem Anhang.

EntryPoint := PeUtils.GetEntryPoint(); Zwischen den Klammern will der ein : FileData:TByteArr; var P: TParameters


Ich dachte ich mach das einfach mit:
PeUtils.GetEntryPoint(ReadIn(FileName)) Nur leider will das auch nicht...

[DCC Fehler] MeinProgramm.pas(3285): E2010 Inkompatible Typen: 'PEUtils.TByteArr' und 'MeinProgramm.TByteArr'

Linguini

[SirThornberry]

Liegt einfach nur daran das TByteArray an 2 verschiedenen Stellen definiert ist. Selbst wenn sie exakt gleich definiert sind bekommst du diese Meldung.
Warum hast du es eigentlich doppelt definiert? Wenn es bereits in PEUtils definiert ist, ist es doch überflüssig es noch einmal zu definieren.

[Linguini]

Frag ich mich auch...

Delphi-Quellcode:

 _File   : TByteArr;

_File := ReadIn(fileName);

PEUtils.GetEntryPoint(@_File,P)  ;

Code:

 FileData:TByteArr; var P: TParameters

Wie muss ich den 2. Übergabewert also P: Tparameters definieren?
Der 1. also FileData sollte jetzt ja stimmen.

[himitsu]

seit wann gibt es eigentlich

Delphi-Quellcode:

// Types.pas
TByteDynArray = array of Byte;

und warum nicht gleich überall dieses verwenden?

[add]
na genauso wie es dasteht?

Delphi-Quellcode:

var _File: TByteArr; 
  P: TParameters;

_File := ReadIn(FileName);
PEUtils.GetEntryPoint(_File, P);
// bzw.:
PEUtils.GetEntryPoint(ReadIn(FileName), P);

ist in GetEntryPoint FileData wirklich als Pointer definiert (sieht nicht so aus)
und wenn nicht, warum dann @_File?

[Linguini]

Delphi-Quellcode:

  _File   : TByteArr;
  P: TParameters;


PEUtils.GetEntryPoint(ReadIn(fileName), P) ;

Prozedur:

Delphi-Quellcode:

procedure GetEntryPoint( FileData: TByteArr; var P: TParameters );
begin
  P.EntryPoint := PCardinal( @FileData[P.PE_Offset+$28] )^;
end;

Leider enthalte ich damit immer bei "P.EntryPoint := PCardinal( @FileData[P.PE_Offset+$28] )^;" eine Exception:

Code:

Erste Gelegenheit für Exception bei $7C812AFB. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 00476ED9 in Modul 'PhosGenPro.exe'. Lesen von Adresse FF930040'. Prozess PhosGenPro.exe (1488)

Irgendwo ist noch der Wurm drin...
In "fileName" liegt der Pfad zu der Datei. ReadIn ist die Prozedur, die mr_emre_d in diesem Thread bereits gepostet hat.

Danke für eure super Hilfe bisher =)

[Linguini]

Es darf auch gerne jemand Alternativen vorschlagen, um den EntryPoint und die ImageBase herauszufinden, falls es welche gibt^^

@Problem

Vielleicht gibt es ein Problem mit der ReadIn Prozedur?

[SirThornberry]

@Linguini: Bitte unterlasse zukünftig das pushen innerhalb von 24 Stunden
2.3.2.4 - In der Ruhe liegt die Kraft: Kein "Pushen" von Beiträgen