Code:
pszLocalPaths AS DWORD, _
------------------
Tom Hanlin
PowerBASIC Staff
pszLocalPaths AS DWORD, _
#Compile Exe "webpost.exe" #Include "c:\pbdll60\winapi\win32api.inc" Declare Function WpPost LIB "webpost.dll" Alias "WpPostA" (ByVal hWnd As Long, _ ByVal dwNumLocalPaths As Dword, _ pszLocalPaths As Asciiz, _ pdwSiteNameBufLen As Dword, _ szSiteName As Asciiz, _ pdwDestURLBufLen As Dword, _ szDestURL As Asciiz, _ ByVal dwFlags As Dword) As Dword Function PbMain() As Long Dim hResult As Long hResult = WpPost(%Null, 0, "", %Null, "", %Null, "", %Null) STDOUT "Result = " & Str$(hResult) End Function
#COMPILE EXE "webpost.exe" #INCLUDE "win32api.inc" DECLARE FUNCTION WpPost LIB "webpost.dll" ALIAS "WpPostA" (hWnd AS LONG, _ dwNumLocalPaths AS LONG, _ pszLocalPaths AS LONG, _ pdwSiteNameBufLen AS LONG, _ szSiteName AS ASCIIZ * %MAX_PATH, _ pdwDestURLBufLen AS LONG, _ szDestURL AS ASCIIZ * %MAX_PATH, _ dwFlags AS LONG) AS LONG FUNCTION PBMAIN() AS LONG DIM hResult AS LONG hResult = WpPost(%NULL, 0, 0, %NULL, "", %NULL, "", %NULL) STDOUT "Result = " & STR$(hResult) END FUNCTION
DWORD WpPost( HWND hWnd, DWORD dwNumLocalPaths, LPTSTR *pszLocalPaths, LPDWORD pdwSiteNameBufLen, LPTSTR szSiteName, LPDWORD pdwDestURLBufLen, LPTSTR szDestURL, DWORD dwFlags );
HRESULT hResult = NOERROR; LPTSTR szLocalPaths = {"c:\\MyDir"}; hResult = WpPost(NULL, 1, &szLocalPaths, 0, NULL, 0, NULL, 0);
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Leave a comment: