FiveTech Support Forums

I need create a dll to return a value
How must be created ?
Thanks.

( fw+h last version mar/07 )

------spanish on------------
Necesito crear un dll para retornar un valor a otra aplicacion.
Como se hace la dll para que esto ocurra ?

Gracias de antemano.

(No se siquiera como crear la DLL)

Are you asking how to create a DLL or just how to return a value? You can use C language to create a DLL and return statement to return a value.

EMG

enrico, really both !!
i dont know how it makes.
sorry
can't u help my ?

Enrico.
I want create a DLL via fw + Harbour.
Thats is my question. Is Harbour prepared to create a DLL not like "RC container", like "function container".
That is the right question.
Sorry for my english.

------spanish on-------------
Enrico
Quiero crear una DLL via fw+h.
Esa es mi pregunta. Esta Harbour preparado para crear DLL no como "contenedor de RC" sino como "contenedor de funcinoes".
Esa es la pregunta correcta.
Gracias de antemano.

I think you can't.

EMG

ok, thanks again.

Este documento explica como crear DLLs con Harbour/xHarbour:

http://hyperupload.com/download/01cdd50 ... l.txt.html

Ok, but it seems too limited, in my opinion. Or am I wrong?

EMG

Enrico Maria Giordano wrote:This is a sample:

Code (fw): Select all Collapse

#define STRICT
#define WIN32_LEAN_AND_MEAN


#include <windows.h>


BOOL APIENTRY DllMain( HINSTANCE hinstDLL, DWORD dwReason, LPVOID lpvReserved )
{
    return TRUE;
}


HENHMETAFILE APIENTRY __declspec( dllexport ) Wmf2Emf( LPCTSTR cWMF )
{
    HMETAFILE hWMF = GetMetaFile( cWMF );

    UINT nSize = GetMetaFileBitsEx( hWMF, 0, NULL );

    LPVOID lpvData = HeapAlloc( GetProcessHeap(), 0, nSize );

    HENHMETAFILE hEMF;

    GetMetaFileBitsEx( hWMF, nSize, lpvData );

    hEMF = SetWinMetaFileBits( nSize, lpvData, 0, NULL );

    HeapFree( GetProcessHeap(), 0, lpvData );

    DeleteMetaFile( hWMF );

    return hEMF;
}

/*
HENHMETAFILE APIENTRY __declspec( dllexport ) hWmf2Emf( HDC hDC, HMETAFILE hWMF )
{
    UINT nSize = GetMetaFileBitsEx( hWMF, 0, NULL );

    LPVOID lpvData = HeapAlloc( GetProcessHeap(), 0, nSize );

    HENHMETAFILE hEMF;

    GetMetaFileBitsEx( hWMF, nSize, lpvData );

    hEMF = SetWinMetaFileBits( nSize, lpvData, hDC, NULL );

    HeapFree( GetProcessHeap(), 0, lpvData );

    return hEMF;
}
*/

BOOL APIENTRY __declspec( dllexport ) PlayEMF( HDC hDC, HENHMETAFILE hEMF )
{
    ENHMETAHEADER emh;

    if ( !GetEnhMetaFileHeader( hEMF, sizeof( emh ), &emh ) )
        return FALSE;

    return PlayEnhMetaFile( hDC, hEMF, ( CONST RECT * ) &emh.rclBounds );
}

/*
BOOL APIENTRY __declspec( dllexport ) PlayEMF2( HDC hDC, HENHMETAFILE hEMF )
{
    ENHMETAHEADER emh;

    if ( !GetEnhMetaFileHeader( hEMF, sizeof( emh ), &emh ) )
        return FALSE;

    return PlayEnhMetaFile( hDC, hEMF, ( CONST RECT * ) &emh.rclFrame );
}
*/

BOOL APIENTRY __declspec( dllexport ) DeleteEMF( HENHMETAFILE hEMF )
{
    return DeleteEnhMetaFile( hEMF );
}

Let me know if you have any question on this code.

EMG

Vikthor.Thomas wrote:Hi Enrico , I can't compile it when I use FW64 and VS I got this message : error C2059: syntax error : 'type'