potrei usare adordd per visualizzare e/o modificare un file ACCESS posto in un determinato sito web ?
Hai un test minimale ?
l'archivio è ECom.mdb ed è posto in www.bpascal.it/mdb-database
e alcune tabelle sono :
Prodotti
Categorie
Scategorie
Utenti
OrdiniProdotti
ecc.
grazie
HTTP Error 403.2 - Forbidden: Read access is denied.
io ho lo necessita di aprire/modificare /inserire/stampare dati che sono in
un archivio MDB ( lo posso mettere anche dentro ad un cartella nel pc
e lo devo fare da un programma FwH
Lo devo prima salvare sul pc attraverso la classe ftp e non so come si fa
poi ci debbo lavorare ( inserire modificare e stampare)
l'importante che a fine lavoro io lo posso automaticmente inserire dentro
a quella cartella magari con ftp class ...
E' possibile farlo oppure ci debbo rinunciare ?
#include "Fivewin.ch"
//
// File attributes
//
#define FILE_ATTRIBUTE_READONLY 1
#define FILE_ATTRIBUTE_HIDDEN 2
#define FILE_ATTRIBUTE_SYSTEM 4
#define FILE_ATTRIBUTE_DIRECTORY 16
#define FILE_ATTRIBUTE_ARCHIVE 32
#define FILE_ATTRIBUTE_NORMAL 128
#define FILE_ATTRIBUTE_TEMPORARY 256
//
// access types for InternetOpen()
//
#define INTERNET_OPEN_TYPE_PRECONFIG 0 // use registry configuration
#define INTERNET_OPEN_TYPE_DIRECT 1 // direct to net
#define INTERNET_OPEN_TYPE_PROXY 3 // via named proxy
#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY 4 // prevent using java/script/INS
//
// manifests
//
#define INTERNET_INVALID_PORT_NUMBER 0 // use the protocol-specific default
#define INTERNET_DEFAULT_FTP_PORT 21 // default for FTP servers
#define INTERNET_DEFAULT_GOPHER_PORT 70 // " " gopher "
#define INTERNET_DEFAULT_HTTP_PORT 80 // " " HTTP "
#define INTERNET_DEFAULT_HTTPS_PORT 443 // " " HTTPS "
#define INTERNET_DEFAULT_SOCKS_PORT 1080 // default for SOCKS firewall servers.
//
// service types for InternetConnect()
//
#define INTERNET_SERVICE_FTP 1
#define INTERNET_SERVICE_GOPHER 2
#define INTERNET_SERVICE_HTTP 3
//
// flags for FTP
//
#define INTERNET_FLAG_TRANSFER_ASCII 1
#define INTERNET_FLAG_TRANSFER_BINARY 2
FUNCTION MAIN()
LOCAL hInternet, hConnect
hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
hConnect = INTERNETCONNECT( hInternet, "myftpaddress", INTERNET_INVALID_PORT_NUMBER, "myuserid", "mypassword", INTERNET_SERVICE_FTP, 0, 0 )
? FTPGETFILE( hConnect, "/emagsoftware.it/test/atest.prg", "atest.prg", 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 )
// ? FTPPUTFILE( hConnect, "atest.prg", "/emagsoftware.it/test/atest.prg", 0, 0 )
INTERNETCLOSEHANDLE( hConnect )
INTERNETCLOSEHANDLE( hInternet )
RETURN NIL
#pragma BEGINDUMP
#include "windows.h"
#include "wininet.h"
#include "hbapi.h"
HB_FUNC( INTERNETOPEN )
{
hb_retnl( ( LONG ) InternetOpen( hb_parc( 1 ), hb_parnl( 2 ), hb_parc( 3 ), hb_parc( 4 ), hb_parnl( 5 ) ) );
}
HB_FUNC( INTERNETCLOSEHANDLE )
{
hb_retl( InternetCloseHandle( ( HINTERNET ) hb_parnl( 1 ) ) );
}
HB_FUNC( INTERNETCONNECT )
{
hb_retnl( ( LONG ) InternetConnect( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), ( INTERNET_PORT ) hb_parnl( 3 ), hb_parc( 4 ), hb_parc( 5 ), hb_parnl( 6 ), hb_parnl( 7 ), hb_parnl( 8 ) ) );
}
HB_FUNC( FTPGETFILE )
{
hb_retl( FtpGetFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), hb_parc( 3 ), hb_parl( 4 ), hb_parnl( 5 ), hb_parnl( 6 ), hb_parnl( 7 ) ) );
}
HB_FUNC( FTPPUTFILE )
{
hb_retl( FtpPutFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), hb_parc( 3 ), hb_parnl( 4 ), hb_parnl( 5 ) ) );
}
HB_FUNC( FTPDELETEFILE )
{
hb_retl( FtpDeleteFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ) ) );
}
HB_FUNC( FTPCREATEDIRECTORY )
{
hb_retl( FtpCreateDirectory( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ) ) );
}
HB_FUNC( FTPREMOVEDIRECTORY )
{
hb_retl( FtpRemoveDirectory( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ) ) );
}
HB_FUNC( FTPFINDFIRSTFILE )
{
hb_retnl( ( LONG ) FtpFindFirstFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), ( WIN32_FIND_DATA * ) hb_parc( 3 ), hb_parnl( 4 ), hb_parnl( 5 ) ) );
}
HB_FUNC( INTERNETFINDNEXTFILE )
{
hb_retl( InternetFindNextFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ) ) );
}
#pragma ENDDUMPbene allora mo faccio na ricerca..
ho fatto una prova ma ....
[1]:iLink32.Exe -Gn -aa -Tpe -s @test.bcl
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external 'InternetOpenA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'InternetCloseHandle' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'InternetConnectA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpGetFileA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpPutFileA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpDeleteFileA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpCreateDirectoryA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpRemoveDirectoryA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpFindFirstFileA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'InternetFindNextFileA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
cosa devo mettere al posto di Anystring ?
Silvio wrote:ho fatto una prova ma ....
[1]:iLink32.Exe -Gn -aa -Tpe -s @test.bcl
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external 'InternetOpenA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'InternetCloseHandle' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'InternetConnectA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpGetFileA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpPutFileA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpDeleteFileA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpCreateDirectoryA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpRemoveDirectoryA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'FtpFindFirstFileA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Error: Unresolved external 'InternetFindNextFileA' referenced from C:\WORK\ERRORI\FTP\OBJ\TEST.OBJ
Silvio wrote:hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
cosa devo mettere al posto di Anystring ?
where i can...scusami dove trovo la wininet.lib ?
Silvio wrote:where i can...scusami dove trovo la wininet.lib ?
thanks
oops
grazie
adesso mi si compile e quando gira mi viene un alert con il valore .f.
che cosa vuol dire ?
io ho fatto in questo modo :
FUNCTION MAIN()
LOCAL hInternet, hConnect
hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
hConnect = INTERNETCONNECT( hInternet, "ftp.bpascal.it", INTERNET_INVALID_PORT_NUMBER, "130603@aruba.it", "mypass", INTERNET_SERVICE_FTP, 0, 0 )
? FTPGETFILE( hConnect, "/bpascal.it./mdb-database/ecom.mdb", "ecom.mdb", 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 )
// ? FTPPUTFILE( hConnect, "atest.prg", "/emagsoftware.it/test/atest.prg", 0, 0 )
INTERNETCLOSEHANDLE( hConnect )
INTERNETCLOSEHANDLE( hInternet )
RETURN NIL
in mypass c'è la mia password che uso in ftp...
ho controllato
posso entrare con explorer in ftp
e il file che mi serve di scaricare è
ftp://ftp.bpascal.it/bpascal.it/mdb-database/ecom.mdb
perchè non va con fwh ?