Работа с бинарными объектами

[demon46]

Вот код рабочего проекта

    str filename;
    Bindata binData = new BinData();
    str TempfileParth;
    super();
    if (VendContractFile.Description == "")
    {
        Error("Нет файла для открытия");
        return;
    }
    TempfileParth = Winapi::getTempPath();
    binData.setData(VendContractFile.FileContract);
    filename = TempfileParth + VendContractFile.Description;
    binData.saveFile(Filename);
    if (! Winapi::shellExecute(filename) )
         Error("С данным типом файла не связана ни одна программа");