f71f2a2bb5
* contrib/hbziparch/hbzipnew.cpp
! Fixed a potential GPFs. (GCC warnings)
* contrib/hbpgsql/postgres.c
* contrib/hbwhat32/_wininet.c
! Fixed two const casting warnings in MSVS non-CPP mode.
- tests/run_test.bat
+ tests/run_prg_all.bat
- tests/gnu_test.bat
+ tests/bld_gnu.bat
- tests/bld4dll.bat
+ tests/bld_b32_dll.bat
+ Some renames in the hope they will be easier to
understand, and more standard.
! Fixed .dll reference.
* contrib/hbziparch/Makefile
! Excluded from Darwin and OS/2 builds.
; NOTE: The Windows build I've tried are now building relatively
clearly, only with the 1) known warnings 2) warnings in
foreign code, plus 3) quite some in contrib/hbwhat32.
Tested compilers:
Win32
BCC551 - OK
BCC582 - OK
MSVS2005 - OK (doesn't work with set HB_BUILD_DLL=yes)
MSVS2005cpp - OK (doesn't work with set HB_BUILD_DLL=yes)
MSVS2008 - OK (doesn't work with set HB_BUILD_DLL=yes)
MSVS2008cpp - OK (doesn't work with set HB_BUILD_DLL=yes)
MinGW412 - OK
MinGW430
Win64
MSVS2008
Fails with:
'include\hbinit.h(218) : fatal error C1189: #error : Unknown initialization method.
MSVS2008cpp - OK (doesn't work with set HB_BUILD_DLL=yes)
Linux-Ubuntu (7.10)
GCC413 - OK (FreeImage f.e. fails.)
Darwin (OS X Leopard 10.5.4)
GCC401
Fails with a lot of:
'Wrong type of codeblock parameter, is: 1, should be: 8'
626 lines
17 KiB
C
626 lines
17 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
//---------------------------------------------------------------------//
|
|
//---------------------------------------------------------------------//
|
|
//---------------------------------------------------------------------//
|
|
//
|
|
// Internet Functions
|
|
//
|
|
// Requires WinINet.dll and WinInet.h
|
|
//
|
|
//
|
|
// Pritpal Bedi <vouch32@vouchcac.com>
|
|
//
|
|
//---------------------------------------------------------------------//
|
|
//---------------------------------------------------------------------//
|
|
//---------------------------------------------------------------------//
|
|
|
|
#define _WIN32_WINNT 0x0400
|
|
#define _WIN32_IE 0x0500
|
|
|
|
#ifndef __MINGW32__
|
|
#ifndef __WATCOMC__
|
|
|
|
#include <windows.h>
|
|
#include <commctrl.h>
|
|
#include <shlobj.h>
|
|
#include <shellApi.h>
|
|
#include <wininet.h>
|
|
|
|
#include "hbapi.h"
|
|
#include "hbvm.h"
|
|
#include "hbstack.h"
|
|
#include "hbapiitm.h"
|
|
#include "winreg.h"
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
DWORD InternetDial(
|
|
IN HWND hwndParent,
|
|
IN LPTSTR lpszConnectoid,
|
|
IN DWORD dwFlags,
|
|
OUT LPDWORD lpdwConnection,
|
|
IN DWORD dwReserved
|
|
);
|
|
*/
|
|
//
|
|
// InternetDial()
|
|
//
|
|
HB_FUNC( INTERNETDIAL )
|
|
{
|
|
HWND hWnd = ISNIL( 1 ) ? 0 : ( HWND ) hb_parnl( 1 ) ;
|
|
LPTSTR lpszId = ISNIL( 2 ) ? NULL : hb_parcx( 2 ) ;
|
|
DWORD nFlags = INTERNET_AUTODIAL_FORCE_ONLINE ;
|
|
DWORD nRet = 0;
|
|
|
|
hb_retnl( InternetDial( hWnd, lpszId, nFlags, &nRet, 0 ) );
|
|
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL InternetGetConnectedState(
|
|
OUT LPDWORD lpdwFlags,
|
|
IN DWORD dwReserved
|
|
);
|
|
*/
|
|
//
|
|
// lIsOn := InternetGetConnectedState()
|
|
//
|
|
HB_FUNC( INTERNETGETCONNECTEDSTATE )
|
|
{
|
|
hb_retl( InternetGetConnectedState( NULL, 0 ) ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
HINTERNET InternetOpen(
|
|
IN LPCTSTR lpszAgent,
|
|
IN DWORD dwAccessType,
|
|
IN LPCTSTR lpszProxyName,
|
|
IN LPCTSTR lpszProxyBypass,
|
|
IN DWORD dwFlags
|
|
);
|
|
*/
|
|
//
|
|
// hInternet := InternetOpen()
|
|
// if hInternet <> 0
|
|
// hFtp := InternetConnect( hInternet, 'vouchcac.com', ;
|
|
// INTERNET_DEFAULT_FTP_PORT, cUserName, cPassword, ;
|
|
// INTERNET_SERVICE_FTP )
|
|
// if hFtp <> 0
|
|
// if FtpOpenFile( hFtp, 'Temp/Testing.txt', GENERIC_WRITE )
|
|
// cBuffer := 'This is testing string' + chr( 13 ) + chr( 10 )
|
|
// lSuccess := InternetWrite( hFtp, cBuffer, len( cBuffer ), @nWritten )
|
|
// if lSuccess
|
|
// ? nWritten
|
|
// endif
|
|
// endif
|
|
// InternetCloseHandle( hFtp )
|
|
// endif
|
|
// InternetCloseHandle( hInternet )
|
|
// endif
|
|
//
|
|
//
|
|
//
|
|
HB_FUNC( INTERNETOPEN )
|
|
{
|
|
LPCTSTR lpszAgent = ISNIL( 1 ) ? NULL : hb_parcx( 1 ) ;
|
|
DWORD dwAccessType = ISNIL( 2 ) ? INTERNET_OPEN_TYPE_DIRECT : hb_parnl( 2 ) ;
|
|
LPCTSTR lpszProxyName = ISNIL( 3 ) ? NULL : hb_parcx( 3 ) ;
|
|
LPCTSTR lpszProxyBypass = ISNIL( 4 ) ? NULL : hb_parcx( 4 ) ;
|
|
DWORD dwFlags = ISNIL( 5 ) ? 0 : hb_parnl( 5 ) ;
|
|
|
|
hb_retnl( ( ULONG ) InternetOpen( lpszAgent, dwAccessType, lpszProxyName, lpszProxyBypass, dwFlags ) ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
HINTERNET InternetConnect(
|
|
IN HINTERNET hInternet,
|
|
IN LPCTSTR lpszServerName,
|
|
IN INTERNET_PORT nServerPort,
|
|
IN LPCTSTR lpszUserName,
|
|
IN LPCTSTR lpszPassword,
|
|
IN DWORD dwService,
|
|
IN DWORD dwFlags,
|
|
IN DWORD_PTR dwContext
|
|
);
|
|
*/
|
|
//
|
|
// hFtp := InternetConnect( hInternet, 'chcac.com', ;
|
|
// INTERNET_DEFAULT_FTP_PORT, cUserName, cPassword, ;
|
|
// INTERNET_SERVICE_FTP )
|
|
//
|
|
HB_FUNC( INTERNETCONNECT )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPCTSTR lpszServerName = hb_parcx( 2 ) ;
|
|
INTERNET_PORT nServerPort = ISNIL( 3 ) ? INTERNET_DEFAULT_HTTP_PORT : hb_parni( 3 ) ;
|
|
LPCTSTR lpszUserName = ISNIL( 4 ) ? NULL : hb_parcx( 4 ) ;
|
|
LPCTSTR lpszPassword = ISNIL( 5 ) ? NULL : hb_parcx( 5 ) ;
|
|
DWORD dwService = ISNIL( 6 ) ? INTERNET_SERVICE_HTTP : hb_parnl( 6 ) ;
|
|
DWORD dwFlags = ISNIL( 7 ) ? 0 : hb_parnl( 7 ) ;
|
|
DWORD_PTR dwContext = ISNIL( 8 ) ? 0 : hb_parnl( 8 ) ;
|
|
|
|
hb_retnl( ( ULONG ) InternetConnect( hInternet, lpszServerName,
|
|
nServerPort, lpszUserName, lpszPassword,
|
|
dwService, dwFlags, dwContext ) ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
HINTERNET FtpOpenFile(
|
|
IN HINTERNET hConnect,
|
|
IN LPCTSTR lpszFileName,
|
|
IN DWORD dwAccess,
|
|
IN DWORD dwFlags,
|
|
IN DWORD_PTR dwContext
|
|
);
|
|
*/
|
|
//
|
|
// if FtpOpenFile( hInternet, 'Temp/Config.sys', GENERIC_WRITE )
|
|
// // take next step
|
|
// endif
|
|
//
|
|
HB_FUNC( FTPOPENFILE )
|
|
{
|
|
HINTERNET hFtp = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPCTSTR lpszFileName = hb_parcx( 2 ) ;
|
|
DWORD dwAccess = ISNIL( 3 ) ? GENERIC_READ : hb_parni( 3 ) ;
|
|
DWORD dwFlags = ISNIL( 4 ) ? FTP_TRANSFER_TYPE_BINARY : hb_parni( 4 ) ;
|
|
DWORD_PTR dwContext = ISNIL( 5 ) ? 0 : hb_parnl( 5 ) ;
|
|
|
|
hb_retl( FtpOpenFile( hFtp, lpszFileName, dwAccess, dwFlags, dwContext ) != NULL ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL InternetWriteFile(
|
|
IN HINTERNET hFile,
|
|
IN LPCVOID lpBuffer,
|
|
IN DWORD dwNumberOfBytesToWrite,
|
|
OUT LPDWORD lpdwNumberOfBytesWritten
|
|
);
|
|
*/
|
|
//
|
|
// if InternetWriteFile( hFile, @cBuffer, len( cBuffer ), @nWritten )
|
|
// // Take next step
|
|
// endif
|
|
//
|
|
HB_FUNC( INTERNETWRITEFILE )
|
|
{
|
|
HINTERNET hFile = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPCVOID lpBuffer = hb_parcx( 2 ) ;
|
|
DWORD dwNumberOfBytesToWrite = ( DWORD ) hb_parnl( 3 ) ;
|
|
LPDWORD lpdwNumberOfBytesWritten = ( LPDWORD ) 0 ;
|
|
|
|
hb_retl( InternetWriteFile( hFile, lpBuffer, dwNumberOfBytesToWrite,
|
|
lpdwNumberOfBytesWritten ) ) ;
|
|
|
|
if ISBYREF( 4 )
|
|
hb_stornl( ( ULONG ) lpdwNumberOfBytesWritten, 4 ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL InternetReadFile(
|
|
IN HINTERNET hFile,
|
|
IN LPVOID lpBuffer,
|
|
IN DWORD dwNumberOfBytesToRead,
|
|
OUT LPDWORD lpdwNumberOfBytesRead
|
|
);
|
|
*/
|
|
//
|
|
// if InternetReadFile( hFile, @cBuffer, len( cBuffer ), @nRead )
|
|
// // Write to local handle
|
|
// endif
|
|
//
|
|
HB_FUNC( INTERNETREADFILE )
|
|
{
|
|
HINTERNET hFile = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPVOID lpBuffer = hb_parcx( 2 ) ;
|
|
DWORD dwNumberOfBytesToRead = ( DWORD ) hb_parnl( 3 ) ;
|
|
LPDWORD lpdwNumberOfBytesRead = ( LPDWORD ) 0 ;
|
|
BOOL bRet ;
|
|
|
|
bRet = InternetReadFile( hFile, &lpBuffer,
|
|
dwNumberOfBytesToRead, lpdwNumberOfBytesRead ) ;
|
|
|
|
hb_retl( bRet );
|
|
|
|
if( bRet )
|
|
{
|
|
if ISBYREF( 4 )
|
|
{
|
|
hb_stornl( ( ULONG ) lpdwNumberOfBytesRead, 4 ) ;
|
|
}
|
|
hb_storclen( ( char * ) lpBuffer, ( ULONG ) lpdwNumberOfBytesRead, 2 ) ;
|
|
}
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL FtpCommand(
|
|
IN HINTERNET hConnect,
|
|
IN BOOL fExpectResponse,
|
|
IN DWORD dwFlags,
|
|
IN LPCTSTR lpszCommand,
|
|
IN DWORD_PTR dwContext,
|
|
OUT HINTERNET *phFtpCommand
|
|
);
|
|
*/
|
|
//
|
|
//
|
|
//
|
|
HB_FUNC( FTPCOMMAND )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
BOOL fExpectResponse = ISNIL( 2 ) ? 0 : hb_parl( 2 ) ;
|
|
DWORD dwFlags = ISNIL( 3 ) ? FTP_TRANSFER_TYPE_BINARY : hb_parnl( 3 ) ;
|
|
LPCTSTR lpszCommand = hb_parcx( 4 ) ;
|
|
DWORD_PTR dwContext = ISNIL( 5 ) ? 0 : hb_parnl( 5 ) ;
|
|
HINTERNET phFtpCommand ;
|
|
|
|
BOOL bRet ;
|
|
|
|
bRet = FtpCommand( hInternet, fExpectResponse, dwFlags, lpszCommand,
|
|
dwContext, &phFtpCommand ) ;
|
|
|
|
hb_retl( bRet ) ;
|
|
|
|
if ( bRet )
|
|
{
|
|
if ( ISBYREF( 6 ) )
|
|
hb_stornl( ( ULONG ) phFtpCommand, 6 ) ;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
HINTERNET FtpFindFirstFile(
|
|
IN HINTERNET hConnect,
|
|
IN LPCTSTR lpszSearchFile,
|
|
OUT LPWIN32_FIND_DATA lpFindFileData,
|
|
IN DWORD dwFlags,
|
|
IN DWORD_PTR dwContext
|
|
);
|
|
*/
|
|
//
|
|
// #include 'WinTypes.ch'
|
|
// #include 'cStruct.ch'
|
|
//
|
|
//
|
|
// pragma pack(4)
|
|
//
|
|
// typedef struct { ;
|
|
// DWORD dwLowDateTime;
|
|
// DWORD dwHighDateTime;
|
|
// } FILETIME
|
|
//
|
|
// typedef struct { ;
|
|
// DWORD dwFileAttributes;
|
|
// FILETIME ftCreationTime;
|
|
// FILETIME ftLastAccessTime;
|
|
// FILETIME ftLastWriteTime;
|
|
// DWORD nFileSizeHigh;
|
|
// DWORD nFileSizeLow;
|
|
// DWORD dwReserved0;
|
|
// DWORD dwReserved1;
|
|
// char cFileName[ MAX_PATH ];
|
|
// char cAlternateFileName[ 14 ];
|
|
// } WIN32_FIND_DATA
|
|
//
|
|
//
|
|
//
|
|
// Function FtpDirectory( hInternet, cFileSpec )
|
|
// local hFile
|
|
// local FindData IS WIN32_FIND_DATA
|
|
// local cDirInfo := FindData:value
|
|
//
|
|
// DEFAULT cFileSpec TO '*.*'
|
|
//
|
|
// hFind := FtpFindFirstFile( hInternet, cFileSpec, @cDirInfo )
|
|
// if hFind <> 0
|
|
// FindData:Buffer( cDirInfo )
|
|
//
|
|
// ? FindData:cFileName:value // Name
|
|
// ? FindData:dwFileAttributes // Attribute in numeric, 16 for directory, 128 for file
|
|
// ? FindData:nFileSizeLow // Size in bytes
|
|
// ? findData:ftLastWriteTime:dwHighDateTime // Date, time in DWORD
|
|
//
|
|
// do while .t.
|
|
// if !InternetFindNextFile( hFind, @cDirInfo )
|
|
// exit
|
|
// endif
|
|
// FindData:Buffer( cDirInfo )
|
|
//
|
|
// ? FindData:cFileName:value // Name
|
|
// ? FindData:dwFileAttributes // Attribute in numeric, 16 for directory, 128 for file
|
|
// ? FindData:nFileSizeLow // Size in bytes
|
|
// ? findData:ftLastWriteTime:dwHighDateTime // Date, time in DWORD
|
|
// enddo
|
|
//
|
|
// endif
|
|
//
|
|
// return nil
|
|
//
|
|
//
|
|
HB_FUNC( FTPFINDFIRSTFILE )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPCTSTR lpszSearchFile = ISNIL( 2 ) ? TEXT ("*.*") : hb_parcx( 2 ) ;
|
|
WIN32_FIND_DATA FindFileData ;
|
|
DWORD dwFlags = ISNIL( 4 ) ? INTERNET_FLAG_NEED_FILE : hb_parnl( 4 ) ;
|
|
DWORD_PTR dwContext = ISNIL( 5 ) ? 0 : hb_parnl( 5 ) ;
|
|
HINTERNET hResult ;
|
|
|
|
hResult = FtpFindFirstFile( hInternet, lpszSearchFile,
|
|
&FindFileData, dwFlags, dwContext ) ;
|
|
|
|
if ( hResult )
|
|
if ( ISBYREF( 3 ) )
|
|
hb_storclen( (char *) &FindFileData , sizeof( WIN32_FIND_DATA ), 3 ) ;
|
|
|
|
hb_retnl( ( ULONG ) hResult ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL InternetFindNextFile(
|
|
IN HINTERNET hFind,
|
|
OUT LPVOID lpvFindData
|
|
);
|
|
*/
|
|
//
|
|
HB_FUNC( INTERNETFINDNEXTFILE )
|
|
{
|
|
HINTERNET hFind = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
WIN32_FIND_DATA FindFileData ;
|
|
|
|
if ( InternetFindNextFile( hFind, &FindFileData ) )
|
|
{
|
|
hb_retl( TRUE ) ;
|
|
if ( ISBYREF( 2 ) )
|
|
hb_storclen( ( char * ) &FindFileData, sizeof( WIN32_FIND_DATA ), 2 ) ;
|
|
}
|
|
else
|
|
hb_retl( FALSE ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL FtpGetFile(
|
|
IN HINTERNET hConnect,
|
|
IN LPCTSTR lpszRemoteFile,
|
|
IN LPCTSTR lpszNewFile,
|
|
IN BOOL fFailIfExists,
|
|
IN DWORD dwFlagsAndAttributes,
|
|
IN DWORD dwFlags,
|
|
IN DWORD_PTR dwContext
|
|
);
|
|
*/
|
|
//
|
|
// if FtpGetFile( hInternet, cRemoteFile, cLocalFile, lFailIfExist )
|
|
// ? 'Success'
|
|
// endif
|
|
//
|
|
HB_FUNC( FTPGETFILE )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPCTSTR lpszRemoteFile = hb_parcx( 2 ) ;
|
|
LPCTSTR lpszLocalFile = hb_parcx( 3 ) ;
|
|
BOOL fFailIfExist = ISNIL( 4 ) ? FALSE : hb_parl( 4 ) ;
|
|
DWORD dwFlagsAndAttributes = ISNIL( 5 ) ? FILE_ATTRIBUTE_NORMAL : hb_parnl( 5 ) ;
|
|
DWORD dwFlags = ISNIL( 6 ) ? FTP_TRANSFER_TYPE_BINARY | INTERNET_FLAG_RELOAD : hb_parnl( 6 ) ;
|
|
DWORD_PTR dwContext = ISNIL( 7 ) ? 0 : hb_parnl( 7 ) ;
|
|
|
|
hb_retl( FtpGetFile( hInternet, lpszRemoteFile, lpszLocalFile,
|
|
fFailIfExist, dwFlagsAndAttributes,
|
|
dwFlags, dwContext ) ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL FtpPutFile(
|
|
IN HINTERNET hConnect,
|
|
IN LPCTSTR lpszLocalFile,
|
|
IN LPCTSTR lpszNewRemoteFile,
|
|
IN DWORD dwFlags,
|
|
IN DWORD_PTR dwContext
|
|
);
|
|
*/
|
|
//
|
|
// if FtpPutFile( hInternet, cLocalFile, cRemoteFile )
|
|
// ?
|
|
// endif
|
|
//
|
|
HB_FUNC( FTPPUTFILE )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPCTSTR lpszLocalFile = hb_parcx( 2 ) ;
|
|
LPCTSTR lpszRemoteFile = hb_parcx( 3 ) ;
|
|
DWORD dwFlags = ISNIL( 4 ) ? FTP_TRANSFER_TYPE_BINARY | INTERNET_FLAG_RELOAD : hb_parnl( 4 ) ;
|
|
DWORD_PTR dwContext = ISNIL( 5 ) ? 0 : hb_parnl( 5 ) ;
|
|
|
|
hb_retl( FtpPutFile( hInternet, lpszLocalFile, lpszRemoteFile, dwFlags, dwContext ) ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL FtpCreateDirectory(
|
|
IN HINTERNET hConnect,
|
|
IN LPCTSTR lpszDirectory
|
|
);
|
|
*/
|
|
//
|
|
// if FtpCreateDirectory( hInternet, 'Temp' )
|
|
// ? 'Success'
|
|
// endif
|
|
//
|
|
HB_FUNC( FTPCREATEDIRECTORY )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPCTSTR lpszDirectory = hb_parcx( 2 ) ;
|
|
|
|
hb_retl( FtpCreateDirectoryA( hInternet, lpszDirectory ) ) ;
|
|
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL FtpRemoveDirectory(
|
|
IN HINTERNET hConnect,
|
|
IN LPCTSTR lpszDirectory
|
|
);
|
|
*/
|
|
//
|
|
// if FtpRemoveDirectory( hInternet, cDirectory )
|
|
// ? 'Success'
|
|
// endif
|
|
//
|
|
HB_FUNC( FTPREMOVEDIRECTORY )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPCTSTR lpszDirectory = hb_parcx( 2 ) ;
|
|
|
|
hb_retl( FtpRemoveDirectoryA( hInternet, lpszDirectory ) ) ;
|
|
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL FtpDeleteFile(
|
|
IN HINTERNET hConnect,
|
|
IN LPCTSTR lpszFileName
|
|
);
|
|
*/
|
|
//
|
|
// if FtpDeleteFile( hInternet, 'Temp\Config.sys' )
|
|
// ? 'Sucess'
|
|
// endif
|
|
//
|
|
HB_FUNC( FTPDELETEFILE )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPCTSTR lpszFileName = hb_parcx( 2 ) ;
|
|
|
|
hb_retl( FtpDeleteFile( hInternet, lpszFileName ) ) ;
|
|
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL FtpRenameFile(
|
|
IN HINTERNET hConnect,
|
|
IN LPCTSTR lpszExisting,
|
|
IN LPCTSTR lpszNew
|
|
);
|
|
*/
|
|
//
|
|
// if FtpRenameFile( hInternet, cExisting, cNew )
|
|
// ? 'Success'
|
|
// endif
|
|
//
|
|
HB_FUNC( FTPRENAMEFILE )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPCTSTR lpszExisting = hb_parcx( 2 ) ;
|
|
LPCTSTR lpszNew = hb_parcx( 3 ) ;
|
|
|
|
hb_retl( FtpRenameFileA( hInternet, lpszExisting, lpszNew ) ) ;
|
|
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL FtpGetCurrentDirectory(
|
|
IN HINTERNET hConnect,
|
|
OUT LPTSTR lpszCurrentDirectory,
|
|
IN OUT LPDWORD lpdwCurrentDirectory
|
|
);
|
|
*/
|
|
//
|
|
// if FtpGetCurrentDirectory( hInternet, @cDirectory )
|
|
// ? cDirectory
|
|
// endif
|
|
//
|
|
HB_FUNC( FTPGETCURRENTDIRECTORY )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPTSTR lpszCurrentDirectory = ( LPTSTR ) hb_xgrab( MAX_PATH ) ;
|
|
DWORD dwCurrentDirectory = MAX_PATH ;
|
|
BOOL bRet ;
|
|
|
|
bRet = FtpGetCurrentDirectory( hInternet, lpszCurrentDirectory, &dwCurrentDirectory ) ;
|
|
hb_retl( bRet ) ;
|
|
|
|
if ( bRet )
|
|
{
|
|
if ( ISBYREF( 2 ) )
|
|
hb_storclen( ( char * ) lpszCurrentDirectory, ( ULONG ) dwCurrentDirectory, 2 ) ;
|
|
}
|
|
|
|
hb_xfree( lpszCurrentDirectory ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL FtpSetCurrentDirectory(
|
|
IN HINTERNET hConnect,
|
|
IN LPCTSTR lpszDirectory
|
|
);
|
|
*/
|
|
//
|
|
// if FtpSetCurrentDirectory( hInternet, cDirectory )
|
|
// ? 'Success'
|
|
// endif
|
|
//
|
|
HB_FUNC( FTPSETCURRENTDIRECTORY )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
LPTSTR lpszDirectory = hb_parcx( 2 ) ;
|
|
|
|
hb_retl( FtpSetCurrentDirectoryA( hInternet, lpszDirectory ) ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
BOOL InternetCloseHandle(
|
|
IN HINTERNET hInternet
|
|
);
|
|
*/
|
|
//
|
|
// if InternetCloseHandle( hInternet )
|
|
// ? 'Success'
|
|
// endif
|
|
//
|
|
HB_FUNC( INTERNETCLOSEHANDLE )
|
|
{
|
|
HINTERNET hInternet = ( HINTERNET ) hb_parnl( 1 ) ;
|
|
|
|
hb_retl( InternetCloseHandle( hInternet ) ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
/*
|
|
DWORD InternetAttemptConnect(
|
|
IN DWORD dwReserved
|
|
);
|
|
*/
|
|
//
|
|
// InternetAttempConnect()
|
|
//
|
|
HB_FUNC( INTERNETATTEMPTCONNECT )
|
|
{
|
|
DWORD dwReserved = 0 ;
|
|
|
|
hb_retnl( ( ULONG ) InternetAttemptConnect( dwReserved ) ) ;
|
|
}
|
|
|
|
//---------------------------------------------------------------------//
|
|
|
|
#endif
|
|
#endif
|