topic-28067

Board index FiveWin for Harbour/xHarbour wNetGetUser

byron.hopp

Posts: 408

Joined: Sun Nov 06, 2005 03:55 PM

wNetGetUser
Posted: Mon Feb 10, 2014 12:14 AM

When I attempt to use wNetGetUser() I get a link error:

xLINK: error: Unresolved external symbol '_WNetAddConnectionA'.

xLINK: error: Unresolved external symbol '_WNetGetUserA'.

xLINK: error: Unresolved external symbol '_WNetConnectionDialog'.

xLINK: error: Unresolved external symbol '_WNetDisconnectDialog'.

xLINK: error: Unresolved external symbol '_WNetGetConnectionA'.

xLINK: error: Unresolved external symbol '_WNetCancelConnectionA'.

xLINK: fatal error: 6 unresolved external(s).

Am I missing a Lib, or how do you get this to work?

Byron Hopp...

Thanks,

Byron Hopp

Matrix Computer Services

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: wNetGetUser
Posted: Mon Feb 10, 2014 12:55 AM

Harbour or xHarbour
You can add the libraries you use?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Rick Lipkin

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: wNetGetUser
Posted: Mon Feb 10, 2014 02:36 PM

Byron

WNetGetuser() is a FiveWin function which I use all the time ..

Here are the first 3 libs which I link using xHarbour and borland 582

%C_LIB_INSTALL%\c0w32.obj=1 // borland
C:\FWH1203\LIB\Fivehx.lib=2
C:\FWH1203\LIB\Fivehc.lib=3

If you can not get WNetGetUser to work you can link in Net.c from the source\Winapi folder .. or you can use xHarbours function NetName(.T.) to get your Logged in Users name.

Rick Lipkin

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: wNetGetUser
Posted: Mon Feb 10, 2014 03:16 PM

Code (fw): Select all Collapse

#include "FiveWin.ch"

STATIC oWnd
STATIC lFichSub := .T.

FUNCTION Main()

   LOCAL oFont, oIcon, oSay, aoBt[ 3 ], aoGt[ 8 ], aoSy[ 3 ]
   LOCAL nCol_Rfe := 0, nCol_Des := 0, nCol_Sec := 0, nCol_Fam := 0
   LOCAL nCol_Mar := 0, nCol_Pre := 0, cFamilia := 0, nDescto := 0
   LOCAL nTotal := 0, nActual := 0
   LOCAL cFileExcel := "Excel texto? a tu modo..." // ????
   LOCAL VERSION := [MI PROGRAMA EN TESTE FOR FIVEWIN AND XHARBOUR]

   DEFINE FONT oFont  NAME "Ms Sans Serif" SIZE 0, -14 BOLD //UnderLine

   DEFINE WINDOW oWnd FROM 10, 20 To 40,100 ;
          TITLE VERSION ICON oIcon COLORS CLR_BLACK, CLR_WHITE

   @ 11,130 SAY aoSy[ 1 ] PROMPT cFileExcel PIXEL BORDER SIZE 450,24 FONT oFont

   @ 86, 30 SAY oSay PROMPT "COLUMNAS:" PIXEL SIZE 100,18 FONT oFont

   @ 60,130 SAY oSay PROMPT "Refer" PIXEL SIZE 50,18 FONT oFont

   @ 80,130 GET aoGt[ 1 ] VAR nCol_Rfe PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd ;
            COLORS CLR_BLACK, CLR_HCYAN  // Mira el foco aca...

   @ 60,190 SAY oSay PROMPT "Descri" PIXEL SIZE 50,18 FONT oFont

   @ 80,190 GET aoGt[ 2 ] VAR nCol_Des PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,250 SAY oSay PROMPT "Seccion" PIXEL SIZE 50,18 FONT oFont

   @ 80,250 GET aoGt[ 3 ] VAR nCol_Sec PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,310 SAY oSay PROMPT "Familia" PIXEL SIZE 50,18 FONT oFont

   @ 80,310 GET aoGt[ 4 ] VAR nCol_Fam PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,370 SAY oSay PROMPT "Marca" PIXEL SIZE 50,18 FONT oFont

   @ 80,370 GET aoGt[ 5 ] VAR nCol_Mar PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,430 SAY oSay PROMPT "Precio" PIXEL SIZE 50,18 FONT oFont

   @ 80,430 GET aoGt[ 6 ] VAR nCol_Pre PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 120,130 SAY oSay PROMPT "Familia" PIXEL SIZE 50,18 FONT oFont

   @ 140,130 GET aoGt[ 7 ] VAR cFamilia PIXEL SIZE 90, 24 PICTURE "999" OF oWnd

   @ 120,230 SAY oSay PROMPT "Descuento" PIXEL SIZE 90,18 FONT oFont

   @ 140,230 GET aoGt[ 8 ] VAR nDescto PIXEL SIZE 100, 24 PICTURE " 99.99" RIGHT OF oWnd

   @ 10, 2 BUTTON aoBt[ 1 ] PROMPT "&Fichero Excel" PIXEL SIZE 120,24 OF oWnd FONT oFont ;
           ACTION ( cFileExcel := cGetFile32( "*.xls", 'Abrir fichero', , GetCurDir(), .F., ,"*.xls" ), ;
                  IF( Empty( cFileExcel ), , ( aoSy[ 1 ]:Refresh(), lFichSub := .T. ) ) )

   @ 320, 40 METER oMeter VAR nActual TOTAL nTotal PIXEL SIZE 555, 40 OF oWnd ;
             FONT oFont COLOR nRGB( 90, 90, 90 ), nRGB( 255, 255, 255 ) ;
             BARCOLOR nRGB( 25, 25, 120 ), nRGB( 255, 255, 255 )

   @ 400, 40 BUTTON aoBt[ 2 ] PROMPT "&Generar" PIXEL SIZE 100,22 OF oWnd FONT oFont ;
             ACTION ImportaDat( cFileExcel, oMeter, @lEnd ) ;
             WHEN lFichSub .AND. Asc( AllTrim( cFileExcel ) ) > 0

   @ 400,496 BUTTON aoBt[ 3 ] PROMPT "Sa&lir" PIXEL SIZE 100,22 OF oWnd FONT oFont ACTION oWnd:End()

   SET MESSAGE OF oWnd TO "Usuario = " + WNetGetUser() + " - " + FWVERSION TIME DATE KEYBOARD

   SET FONT OF oWnd TO oFont

   ACTIVATE WINDOW oWnd

   oFont:End()

RETURN NIL

// para teste solamente - borrar
FUNCTION ImportaDat()

RETURN NIL

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion