PC Toledo

Código: Selecionar todos

* MINIGUI - FTP 

#include <minigui.ch>

*-----------------------------------------------------------------------------------------------------------------------------
FUNCTION MAIN()

LOCAL cUser     := ""
LOCAL cPassWord := ""
LOCAL cServer   := ""
LOCAL cProtocol := "ftp://"
LOCAL cUrl
LOCAL lresp
LOCAL cFile := "chamado tecnico.pdf"

PUBLIC oClient, oUrl

use sites alias sites

setcurrentfolder('c:\LimpiumSql')

cUser     := sites->user
cPassWord := desencri(sites->password)
cServer   := sites->address
cUrl      := cProtocol + Alltrim( cUser )+":"+ Alltrim( cPassWord ) +"@"+  alltrim( cServer)
oUrl      := tURL():New( cUrl )

o erro acontece nesta linha de cima em tURL():New( cUrl )

Código: Selecionar todos

call ..\..\..\batch\compile.bat FTPMICROAMP %1 %2 %3 %4 %5 %6 %7 %8 %9

Código: Selecionar todos

hbmk2: Processing environment options: -comp=bcc
hbmk2: Compiling Harbour sources...
Harbour 3.2.0dev (r2312082217)
Copyright (c) 1999-2023, https://harbour.github.io/
Compiling 'FTPMICROAMP.PRG'...
Lines 23574, Functions/Procedures 2
Generating C source output to 'OBJHBM\FTPMICROAMP.c'... Done.
hbmk2: Compiling resources...
Borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.
Borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.
Borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.
hbmk2: Compiling...
OBJHBM\FTPMICROAMP.c:
OBJHBM\_hbmkaut_FTPMICROAMP.c:
hbmk2: Linking... FTPMICROAMP.exe
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_FUN_TURL' referenced from C:\MINIGUI\SAMPLES\ADVANCED\FTPCLIENTMICROAMP\OBJHBM\FTPMICROAMP.OBJ
Error: Unresolved external '_HB_FUN_TIPCLIENTFTP' referenced from C:\MINIGUI\SAMPLES\ADVANCED\FTPCLIENTMICROAMP\OBJHBM\FTPMICROAMP.OBJ
hbmk2[compile_linkar]: Error: Running linker. 2
ilink32.exe @C:\Users\Amparo\AppData\Local\Temp\9lbw08.lnk

hbmk2: Error: Referenced, missing, but unknown function(s): TURL(),
       TIPCLIENTFTP()
C:\MiniGUI\SAMPLES\Advanced\FtpClientMicroamp>

Código: Selecionar todos

# Inicio do Arquivo de projeto #

# Nome do Executável
# ---------------------------
-oFTPMICROAMP
# ---------------------------
# Bibliotecas
# xhb deve ser depois de hbole
# ---------------------------

-ltsbrowse
-lpropgrid
-lminigui
-lhmg_qhtm
-lminiprint
-lhbmysql
-llibmysql
-lhbprinter
-lgtgui
-lhbct
-lhbnf
-lhbwin
-lxhb
-lhbnetio
-lBosTaurus
-llibhpdf 
-lhbhpdf 
-lhmg_hpdf
-lpng
# -lhbrtl
# ---------------------------
# Caminho dos Includes
# ---------------------------
-incpath=C:\minigui\harbour\include;
-incpath=C:\minigui\include;
# ---------------------------
# Caminho das Libs da MiniGui
# ---------------------------
-LC:\Minigui\lib
#-LC:\Minigui\harbour\lib
##-LC:\harbour\lib

# ---------------------------
# Outros Parâmetros
# ---------------------------
-workdir=.\OBJHBM\
-gtgui
-head=full
-n
#-nowarn
-inc
# ---------------------------
# Prg(s) e Rc(s)
# ---------------------------

FTPMICROAMP.PRG

C:\MINIGUI\RESOURCES\MINIPRINT.RC
C:\MINIGUI\RESOURCES\MINIGUI.RC
C:\MINIGUI\RESOURCES\HBPRINTER.RC


# ---------------------------
# Fim
# ---------------------------