[Coder2k8]

Доброго времени суток.
Для VB есть такая функция
http://msdn.microsoft.com/ru-ru/libr...(v=VS.90).aspx
Читает файл по байтам в массив.
Очень нужен аналог этой функции для делфи. Помогите, прошу Вас
Спасибо.

[NumLock]

Очень универсальная функция, читает откуда угодно и куда угодно: ReadFile

[Coder2k8]

А можно поподробней?
Что мне надо написать, что бы прочитать файл c:/test.txt в массив byteArray:array of Byte?
Уж простите делфо-нуба...

Нашел такую штучку в модуле IOUtils.pas, которая появилась в 2010 делфи. Но 2010 у меня нет, если есть возможность - на мыло processor<at>xakep.ru

[NumLock]

Сообщение от Coder2k8

Что мне надо написать, что бы прочитать файл c:/test.txt в массив byteArray:array of Byte?

а..а, ну:

Код:

var
  f: TFileStream;
  buf: array of Byte;
  l: Integer;
begin
  f:=TFileStream.Create('d:\Projects\external_mod.txt', fmOpenRead);
  try
    l:=f.Size;
    SetLength(buf, l);
    f.Read(buf[0], l);
  finally
    f.Free;
  end;
end;

f.Read(buf[0], l); внутри себя использует ReadFile.

[Coder2k8]

Спасибо, вроде то что нужно. Но теперь другой косяк:

Код:

var utils:OleVariant;
     f: TFileStream;
     buf: array of byte;
     l: Integer;
begin
utils:= CreateOleObject('Capicom.Utilities');
 f:=TFileStream.Create('c:\test\cody.xml', fmOpenRead);
  try
    l:=f.Size;
    SetLength(buf, l);
    f.Read(buf[0], l);
  finally
    f.Free;
  end;

  input:= utils.ByteArrayToBinaryString(buf); --- спотыкается 

пишет [Error] Unit1.pas(62): Type not allowed in OLE Automation call
Посдкажи, пожалуйста, как передать buf

[NumLock]

ну правильно, array of Byte не является типом данных OLE.

добавлено позже:
IUtilities : function BinaryStringToByteArray(const BinaryString: WideString): OleVariant;
возвращает Array Byte

[Coder2k8]

А как мне передать массив в OLE? Если это вообще возможно