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