//Main.cpp
#include <comutil.h>
#include <io.h>
#include <fcntl.h>
#include <sys/stat.h>
#include <iostream>

#import "C:\Program Files\Common Files\System\ADO\msado15.dll" \
         no_namespace rename("EOF", "adoEOF")

struct ZC_COMInitialize {
  ZC_COMInitialize(){CoInitialize( 0 ); }
 ~ZC_COMInitialize(){CoUninitialize();}
}; 
ZC_COMInitialize COMInit;

int main(){
/*
use pubs
go

if exists(select * from dbo.sysobjects where id = object_id(N'dbo.utb_Image') and objectproperty(id, N'IsUserTable') = 1)
   drop table dbo.utb_Image
go
create table dbo.utb_Image (
   ID   int identity(1,1) not null
 , BLOB image             not null 
)on [primary] textimage_on [primary]
go
alter table dbo.utb_Image add
constraint pk_utb_Image primary key clustered (ID)on [primary] 
go

if exists(select * from dbo.sysobjects where id = object_id(N'dbo.usp_Image_Save') and objectproperty(id, N'IsProcedure') = 1)
   drop procedure dbo.usp_Image_Save
go
create procedure dbo.usp_Image_Save
   @ID  int out
 , @LEN int
 , @IMG image
as set nocount on
   declare @ret int
   if(@ID <= 0)begin
      insert into dbo.utb_Image (BLOB) values (@IMG)
      set @ID = scope_identity()
   end else begin
      declare @PTR varbinary(16)
      select  @PTR = textptr(BLOB) from dbo.utb_Image where ID = @ID
      updatetext dbo.utb_Image.BLOB @PTR @LEN null @IMG
   end
   select @ret = datalength(BLOB) from dbo.utb_Image where ID = @ID
   return(@ret)
go

if exists(select * from dbo.sysobjects where id = object_id(N'dbo.usp_Image_Read') and objectproperty(id, N'IsProcedure') = 1)
   drop procedure dbo.usp_Image_Read
go
create procedure dbo.usp_Image_Read
   @ID int
as set nocount on
   declare @ptr varbinary(16)
   declare @len int
   declare @siz int
   declare @off int

   select @ptr = textptr(BLOB)
        , @len = datalength(BLOB)
   from dbo.utb_Image where ID = @ID

   set @off = 0
   while(1=1)begin
      select @siz = case when @len > 8000 then 8000 else @len end
      readtext dbo.utb_Image.BLOB @ptr @off @siz
      select @off = @off + @siz
           , @len = @len - @siz
      if(@len <= 0)break
   end
   return(0)
go
*/
  long ret, size, hFile( 0 ); SAFEARRAY  *psa; char HUGEP *ptr; _variant_t v;
  _bstr_t ConnStr = "Provider=SQLOLEDB;       \
                     Data Source=(local);     \
                     Initial Catalog=pubs;    \
                     Integrated Security=SSPI";
  _ConnectionPtr conn;
  try {
    conn.CreateInstance(__uuidof(Connection));
    conn->CursorLocation = adUseServer;
    conn->IsolationLevel = adXactReadCommitted;
    conn->Attributes     =  0 ;
    conn->Open(ConnStr,"","",adConnectUnspecified);

    _CommandPtr cmd;
    cmd.CreateInstance(__uuidof(Command));
    cmd->ActiveConnection = conn;
    cmd->CommandType      = adCmdStoredProc;
    cmd->CommandText      = "dbo.usp_Image_Save";

    ParametersPtr pars = cmd->Parameters;
    pars->Append(cmd->CreateParameter("@RET", adInteger,       adParamReturnValue,  0 ,  0 ));
    pars->Append(cmd->CreateParameter("@ID",  adInteger,       adParamInputOutput,  0 ,  0 ));
    pars->Append(cmd->CreateParameter("@LEN", adInteger,       adParamInput,        0 ,  0 ));
    pars->Append(cmd->CreateParameter("@IMG", adLongVarBinary, adParamInput,        1 ,""));

    /* Save "c:\\winnt\\setupapi.log" */
    hFile = _open("c:\\winnt\\setupapi.log", _O_BINARY | _O_RDONLY, _S_IREAD);
    size = _lseek(hFile,  0 ,  2 ); _lseek(hFile,  0 ,  0 );

    psa = SafeArrayCreateVector(VT_UI1,  0 , size);
    SafeArrayAccessData(psa, (void HUGEP**)&ptr);
    size = _read(hFile, ptr, size);
    SafeArrayUnaccessData(psa);

    v.vt = VT_ARRAY | VT_I1; v.parray = psa;
    pars->Item[1L]->Value =  0 ;
    pars->Item[2L]->Value =  0 ;
    pars->Item[3L]->Size  = size;
    pars->Item[3L]->Value = v;
    cmd->Execute( 0 , 0 ,adOptionUnspecified);

    ret = pars->Item[0L]->Value;
    std::cout << "c:\\winnt\\system32\\oembios.bin" << std::endl;
    std::cout << "Size   = " << size << std::endl;
    std::cout << "Return = " << ret  << std::endl;
    
    SafeArrayDestroy(psa);

    /* Save "c:\\winnt\\driver cache\\i386\\driver.cab" */
    hFile = _open("c:\\winnt\\driver cache\\i386\\driver.cab", _O_BINARY | _O_RDONLY, _S_IREAD);
    size = _lseek(hFile,  0 ,  2 ); _lseek(hFile,  0 ,  0 );
    for(long i( 0 ), id( 0 ), k(size), j = size /  8000 ; i <= j; ++i){
      if(k <=  0 )break;
      psa = SafeArrayCreateVector(VT_UI1,  0 , (k> 8000 )? 8000 :k);
      SafeArrayAccessData(psa, (void HUGEP**)&ptr);
      size = _read(hFile, ptr,  8000 );
      SafeArrayUnaccessData(psa);

      v.vt = VT_ARRAY | VT_I1; v.parray = psa;
      if(size > 0L){
        pars->Item[1L]->Value = id;
        pars->Item[2L]->Value = i* 8000 ;
        pars->Item[3L]->Size  = size;
        pars->Item[3L]->Value = v;
        cmd->Execute( 0 , 0 ,adOptionUnspecified);

        ret = pars->Item[0L]->Value;
        id  = pars->Item[1L]->Value;
        std::cout << "c:\\winnt\\driver cache\\i386\\driver.cab" << std::endl;
        std::cout << "Size   = " << size << std::endl;
        std::cout << "Return = " << ret  << std::endl;
      }
      SafeArrayDestroy(psa);
      k -=  8000 ;
    }

    /* Read driver.cab */
    if(hFile >  0 )_close(hFile);
    hFile = _open("c:\\temp\\driver.cab.img", _O_BINARY | _O_CREAT | _O_TRUNC |_O_WRONLY,_S_IWRITE);

    cmd->CommandType = adCmdText;
    cmd->CommandText = "exec dbo.usp_Image_Read 2";
    while( pars->Count >  0  )pars->Delete(0L);
    _RecordsetPtr rs = cmd->Execute( 0 , 0 ,adOptionUnspecified);

    if(rs){while(true){if(!rs->adoEOF){
        v = rs->Fields->Item[0L]->Value; 
        psa = v.parray;
        SafeArrayAccessData(psa, (void HUGEP**)&ptr);
        _write(hFile, ptr, psa->rgsabound->cElements);
        SafeArrayUnaccessData(psa);
      }if((rs = rs->NextRecordset( 0 ))== 0 )break;
    } }
  }catch(_com_error &e){
    std::cerr << " Error " << (const char*)e.Description() << std::endl;
  }
  if(hFile >  0 )_close(hFile);
  return  0 ;
}