FiveTech Support Forums

Antonio Linares wrote:I just asked chatGPT to write them :-)
This is the result.

Antonio Linares wrote:You have to write the Harbour wrappers for those C functions. In example for function BOOL DismountVolume( HANDLE hVolume ):

    HB_FUNC( DISMOUNTVOLUME )
    {
       hb_retl( DismountVolume( hb_parnll( 1 ) ) );
    }

Error E2342 FWEJECT.prg 203: Type mismatch in parameter 'hVolume' (wanted 'void *', got '__int64') in function HB_FUN_DISMOUNTVOLUME

       hb_retl( DismountVolume( hb_parnl( 1 ) ) );

Error E2342 FWEJECT.prg 203: Type mismatch in parameter 'hVolume' (wanted 'void *', got 'long') in function HB_FUN_DISMOUNTVOLUME

What is DismountVolume()? It is not a Windows API.

Enrico Maria Giordano wrote:Try:

Code (fw): Select all Collapse

BOOL fRemoveSafely; // = FALSE;
BOOL fAutoEject; // = FALSE;

Code (fw): Select all Collapse

hb_retl( EjectVolume( ( TCHAR ) *szDrive ) );

Warning W8004 FWEJECT.prg 190: 'fAutoEject' is assigned a value that is never used in function EjectVolume
Warning W8004 FWEJECT.prg 190: 'fRemoveSafely' is assigned a value that is never used in function EjectVolume
Warning W8075 FWEJECT.prg 196: Suspicious pointer conversion in function HB_FUN_EJECTREMOVABLE

What is DismountVolume()? It is not a Windows API.

BOOL DismountVolume(HANDLE hVolume);

BOOL DismountVolume( HANDLE hVolume)

Jimmy wrote:i have change CODE as you say but still got (same) Warnings

Warning W8004 FWEJECT.prg 190: 'fAutoEject' is assigned a value that is never used in function EjectVolume
Warning W8004 FWEJECT.prg 190: 'fRemoveSafely' is assigned a value that is never used in function EjectVolume

BOOL EjectVolume( TCHAR cDriveLetter )
{
   HANDLE hVolume;

   hVolume = OpenVolume(cDriveLetter);
   if( hVolume == INVALID_HANDLE_VALUE )
     return FALSE;

   if( ! CloseVolume(hVolume) )
     return FALSE;

   return TRUE;
}

HB_FUNC( LOCKVOLUME)
{
   hb_retl( LockVolume( ( void * ) hb_parnll( 1 ) ) );
}

HB_FUNC( DISMOUNTVOLUME )
{
   hb_retl( DismountVolume( ( void * ) hb_parnll( 1 ) ) );
}

HB_FUNC( AUTOEJECTVOLUME)
{
   hb_retl( AutoEjectVolume( ( void * ) hb_parnll( 1 ) ) );
}

HB_FUNC( CLOSEVOLUME)
{
   hb_retl( CloseVolume( ( void * ) hb_parnll( 1 ) ) );
}


HB_FUNC( PREVENTREMOVALOFVOLUME )
{
   hb_retl( PreventRemovalOfVolume( ( void * ) hb_parnll( 1 ), FALSE ) );
}

HANDLE OpenVolume(TCHAR cDriveLetter);

HB_FUNC( OPENVOLUME)
{
   hb_retl( OpenVolume(hb_parc( 1 )) );
}

Error E2342 FWEJECT.prg 230: Type mismatch in parameter 'cDriveLetter' (wanted 'signed char', got 'const signed char *')

Antonio Linares wrote:Dear Jimmy,

Code (fw): Select all Collapse

HB_FUNC( DISMOUNTVOLUME )
{
    hb_retl( DismountVolume( ( void * ) hb_parnll( 1 ) ) );
}

HB_FUNC( DISMOUNTVOLUME )
{
    hb_retl( DismountVolume( ( HANDLE ) hb_parnll( 1 ) ) );
}

Jimmy wrote:but how with Prototype

Code (fw): Select all Collapse

HANDLE OpenVolume(TCHAR cDriveLetter);

Code (fw): Select all Collapse

HB_FUNC( OPENVOLUME)
{
   hb_retl( OpenVolume(hb_parc( 1 )) );
}

Error E2342 FWEJECT.prg 230: Type mismatch in parameter 'cDriveLetter' (wanted 'signed char', got 'const signed char *')

HB_FUNC( OPENVOLUME)
{
   hb_retl( OpenVolume( ( TCHAR ) hb_parc( 1 ) ) );
}

Enrico Maria Giordano wrote:This is more correct:

Code (fw): Select all Collapse

HB_FUNC( DISMOUNTVOLUME )
{
    hb_retl( DismountVolume( ( HANDLE ) hb_parnll( 1 ) ) );
}

 void *

HANDLE

Code (fw): Select all Collapse

    HB_FUNC( OPENVOLUME)
    {
       hb_retl( OpenVolume( ( TCHAR ) hb_parc( 1 ) ) );
    }

Error E2342 FWEJECT.prg 230: Type mismatch in parameter 'iTrueFalse' (wanted 'int', got 'void *') in function HB_FUN_OPENVOLUME

Dear Jimmy,

Simply replace this:

return TRUE ;

with

return bResult;

next is to write the Harbour wrapper for it and then from there you can check the returned value and show a msg if desired,

though usually it is a better practice to leave the developer warn about it in case of an error

Antonio Linares wrote: return bResult;

Antonio Linares wrote: next is to write the Harbour wrapper for it and then from there you can check the returned value and show a msg if desired,
though usually it is a better practice to leave the developer warn about it in case of an error

               bResult = AutoEjectVolume( hVolume );
               if( bResult )
               {
                  CloseVolume( hVolume );
               // "where is "ELSE"  :?: 
               }
            }
         }
      }
   }