DLLCALL under Fivewin

[Jimmy]

hi Antonio,

I just asked chatGPT to write them
This is the result.

amazing what chatGPT can do

will this be the Future of writing CODE ...

[Antonio Linares]

who knows...

we will see

[Jimmy]

hi Antonio,

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

i have done what you told me and add CODE

Code: Select all  Expand view  RUN

   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

i have try it also using

Code: Select all  Expand view  RUN

      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 i´m still doing wrong
need Advice please

[Enrico Maria Giordano]

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

[Jimmy]

hi Enrico,

Try:

Code: Select all  Expand view  RUN

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

Code: Select all  Expand view  RUN

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

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
Warning W8075 FWEJECT.prg 196: Suspicious pointer conversion in function HB_FUN_EJECTREMOVABLE

---

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

CODE is in Sample as "Prototype" (on Top of "C" CODE )

Code: Select all  Expand view  RUN

BOOL DismountVolume(HANDLE hVolume);

and "function" begin with

Code: Select all  Expand view  RUN

BOOL DismountVolume( HANDLE hVolume)

i try to change it to HB_FUNC but again got Type Error Message (see my Answer to Antonio)


p.s. posted CODE "seems" to work even with Warning

[Enrico Maria Giordano]

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

You are assigning that two variables but never use them. Just remove both of them:

Code: Select all  Expand view  RUN

BOOL EjectVolume( TCHAR cDriveLetter )
{
   HANDLE hVolume;

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

   if( ! CloseVolume(hVolume) )
     return FALSE;

   return TRUE;
}

[Antonio Linares]

Dear Jimmy,

Code: Select all  Expand view  RUN

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

[Jimmy]

hi Antonio,

YES, this new CODE compile without Error,thx

so i try "more" and use what chatGPT have answer

Code: Select all  Expand view  RUN

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 ) );
}

these new HB_FUNC all compile without Error

but how with Prototype

Code: Select all  Expand view  RUN

HANDLE OpenVolume(TCHAR cDriveLetter);

Code: Select all  Expand view  RUN

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 *')

[Enrico Maria Giordano]

Dear Jimmy,

Code: Select all  Expand view  RUN

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

This is more correct:

Code: Select all  Expand view  RUN

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

[Enrico Maria Giordano]

but how with Prototype

Code: Select all  Expand view  RUN

HANDLE OpenVolume(TCHAR cDriveLetter);

Code: Select all  Expand view  RUN

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 *')

Code: Select all  Expand view  RUN

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

[Jimmy]

hi Enrico,

This is more correct:

Code: Select all  Expand view  RUN

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

ok, i change all

Code: Select all  Expand view  RUN

void *

to

Code: Select all  Expand view  RUN

HANDLE

---

Code: Select all  Expand view  RUN

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

i have use it and got

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

Input is IMHO "cDriveLetter" but Return Value is a HANDLE to File which have be open

[Enrico Maria Giordano]

Try this:

Code: Select all  Expand view  RUN

HB_FUNC( OPENVOLUME)
{
    hb_retnl( ( HANDLE ) OpenVolume( ( TCHAR ) hb_parc( 1 ) ) );
}

[Jimmy]

hi,

i have re-write CODE this Way

Code: Select all  Expand view  RUN

BOOL EjectVolume( TCHAR cDriveLetter )
{
   HANDLE hVolume;
   BOOL bResult;
//   BOOL fRemoveSafely = FALSE;
//   BOOL fAutoEject = FALSE;

   hVolume = OpenVolume(cDriveLetter);
     if( hVolume != INVALID_HANDLE_VALUE )
   {
      bResult = LockVolume( hVolume );
      if( bResult )
      {
         bResult = DismountVolume( hVolume );
         if( bResult )
         {
            bResult = PreventRemovalOfVolume( hVolume, FALSE );
            if( bResult )
            {
               bResult = AutoEjectVolume( hVolume );
               if( bResult )
               {
                  CloseVolume( hVolume );
               }
            }
         }
      }
   }

//   if( hVolume == INVALID_HANDLE_VALUE )
//     return FALSE;
//
//   if( LockVolume(hVolume) && DismountVolume(hVolume) )
//     fRemoveSafely = TRUE;
//   {
//     if (PreventRemovalOfVolume(hVolume, FALSE) && AutoEjectVolume(hVolume))
//           fAutoEject = TRUE;
//   }
//
//   if( ! CloseVolume(hVolume) )
//     return FALSE;

   return TRUE ;
}
 

i use if( bResult ) for next Step

but how ("where") to return FALSE; when fail ?
or better MsgInfo() before return FALSE;

need some help please

[Antonio Linares]

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

[Jimmy]

hi Antonio,

return bResult;

YES

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

this is my HB_FUNC() Question

Code: Select all  Expand view  RUN

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

how can i put some "Output" Error Message into "ELSE-Level"