Показать сообщение отдельно
  #5  
Старый 20.10.2011, 13:27
Coder2k8 Coder2k8 вне форума
Прохожий
 
Регистрация: 06.05.2009
Сообщения: 16
Репутация: 10
По умолчанию

Спасибо, вроде то что нужно. Но теперь другой косяк:
Код:
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
Ответить с цитированием