Jump to content
Fivewin Brasil

xharbour


syspel

Recommended Posts

ok obrigado 

tem uma imagem

xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'taco.prg'...
100 100 100 100 200 300 400 500 600 700 800 900 1000 1100 100 200 100 200 100 200 100 100 200 100 200 100 100 200 300 400 500 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 Generating C source output to 'taco.c'...
Done.
Lines 35, Functions/Procedures 1, pCodes 119
Embarcadero C++ 6.80 for Win32 Copyright (c) 1993-2014 Embarcadero Technologies, Inc.
taco.c:
Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologies, Inc.
Error: Unresolved external 'SHCreateDirectoryExA' referenced from C:\FWH1412\LIB\FIVEHC.LIB|MKDIR
Error: Unable to perform link

ja agradeco obrigado

carlos

 

Link to comment
Share on other sites

	// Como criar MP3 direto da Página
	// Pagina para crear tus mensajes en MP3
	// http://vozme.com/index.php?lang=pt		
		// Copiar uma pasta inteira		
		// Forum Inter:		
		http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22207		
		#Include "FiveWin.ch"
	*
	//Function Main()
	FUNCTION COPIAR_PASTA()		
		   LOCAL CORIGEN, CDESTINO, AFILES, I, CFLE, CDESTNO, CDR, CORGEN, CFILE, CDIR		
		   cOrigen:="C:\PIZZAS\*" ; cDestino := "F"		
		   aFiles := DirectoryRecurse(cOrigen)		
		   For i := 1 to Len(aFiles)		
		      cFile:=aFiles[i,1]		
		      cDir:=cDestino+Subs(cFilePath(cFile),2,Len(cFile))		
		      ShCreateDirectory( cDir )		
		      LZCOPYFILE( cOrigen,cDestino+Subs(cFile,2,Len(cFile)) )		
		   Next I		
		   MsgAlert("Se copiaron "+Str(I,3)+" archivos")		
		   XBROWSE(aFiles)		
		return nil
	 
	#pragma BEGINDUMP		
		#include <shlobj.h>
	#include <hbapi.h>		
		HB_FUNC (SHCREATEDIRECTORY)
	{
	 hb_retni( SHCreateDirectoryEx( NULL, hb_parc( 1 ), NULL ) );
	}		
		#pragma ENDDUMP

Link to comment
Share on other sites

ok obrigado 

tem uma imagem

xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'taco.prg'...
100 100 100 100 200 300 400 500 600 700 800 900 1000 1100 100 200 100 200 100 200 100 100 200 100 200 100 100 200 300 400 500 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 Generating C source output to 'taco.c'...
Done.
Lines 35, Functions/Procedures 1, pCodes 119
Embarcadero C++ 6.80 for Win32 Copyright (c) 1993-2014 Embarcadero Technologies, Inc.
taco.c:
Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologies, Inc.
Error: Unresolved external 'SHCreateDirectoryExA' referenced from C:\FWH1412\LIB\FIVEHC.LIB|MKDIR
Error: Unable to perform link

ja agradeco obrigado

carlos

 

Link to comment
Share on other sites

Amiguinhos,

syspel

Usa o básico que passei.

Outra coisa o xHarbour é compatível com o Borland que você tá usando.

Ademais quando você compila um só .PRG funciona, mas quando acrescenta mais dá erros, você está recompilando os outros .PRGs também ou só juntado .OBJs.

Troque a função LZCopyFile(), tem várias opções, RUN COPY, __CopyFile(), etc.

O erro de alocação é buffer pequeno para trabalhar um arquivo que pode ser grande ou bibliotecas incompatíveis.

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...