[DELPHI-RUS]

Привет всем!!!
у меня проблема с прогой,которая должна побайтово прочитать файл , и поместить каждый байт в массив.
Но сколько бьюсь над ней ничего не выходит,то полностью читайт и в первую ячейку массива кладет,то один байт читает,или вообще не читает
Pliase ПОМОГИТЕ УМНЫЕ ЛЮДИ!!!!!!!!!!!!!!!!!!!!

Вот последний вариант сорса:

Код:

program DAVP;



uses
  windows;

var
   Pointer:TOFSTRUCT;
   BufferW:Array of Byte;
   BufferGFS:Array of Byte;
   hFile:THandle;
   D:Cardinal;
   BOW:Word;
   SFP:Word;
   i:integer;
begin
    hFile:=OpenFile('DAVP.dpr',Pointer,OF_READ);
    BOW:=GetFileSize(hFile,BufferGFS);
    SetLength(BufferW,BOW);
    SFP:=0;
    For i:=1 to BOW do
        begin
            SFP:=SetFilePointer(hFile,SFP,nil,0);
            ReadFile(hFile,BufferW[i],1,D,nil);
            WriteFile(OpenFile('Write.txt',Pointer,OF_CREATE),BufferW[i],BOW,D,nil);
            Inc(SFP);
        end;
end.

Еще его выложил:

[Страдалецъ]

И у вас это проходит без ошибок?

Код:

var
Pointer:TOFSTRUCT;

[AleD]

Код:

var
  f: Cardinal;
  fSize: Cardinal;
  buf: Pointer;
begin
  f := FileOpen('file.dat');
  try
    fSize := FileSeek(f, 0, 2);
    FileSeek(f, 0, 0);
    buf := AllocMem(fSize);
    try
      FileRead(f, buf, fSize);
      //здесь работа с buf
    finally
      FreeMem(buf, fSize);
      //здесь уже buf освобожден
    end;
  finally
    FileClose(f);
  end;
end;

написал по памяти, но работать должён

[lmikle]

Можно еще проще:

Код:

var
  FS : TFileStream;
  MS : TMemoryStream;
begin
  FS := TFileStream.Create('file.dat',mfOpenRead);
  Try
    MS := TMemoryStream.Create;
    Try
       MS.CopyFrom(FS,FS.Size);
       // Здесь можно получить указатель на данные и работать как с PChar.
    Finally
      MS.Free;
  Finally
    FS.Free;
  End;
end;

[NumLock]

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
var
  h: THandle;
  data: array of Char;
  len: Cardinal;
  dummy: Cardinal;
  i: Integer;
begin
  h:=CreateFile('Project1.dpr', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  len:=GetFileSize(h, nil);
  SetLength(data, len);
  ReadFile(h, data[0], len, dummy, nil);
  CloseHandle(h);
  for i:=0 to dummy-1 do
    Memo1.Lines.Add(data[i]);
end;