Use the As AliasName clause when declaring the method in the dll. Then you won't need to deal with case.
From the VFP help:
AS AliasName Specifies an alias name for a shared library function name that has the same name as a Visual FoxPro function or is not a legal Visual FoxPro name. AliasName should not be a Visual FoxPro reserved word or the name of a shared library function already registered with Visual FoxPro.
If you assign alias to the function, use the alias when calling the shared library function. AliasName is not case-sensitive.
HTH, Tracy
-----Original Message----- From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of Fernando D. Bozzo Sent: Thursday, June 28, 2018 1:51 PM To: profoxtech@leafe.com Subject: Re: VFP9 and Blat
Hi,
I see 2 things:
1) Macrosubstitution is not needed: (not an error, but error prone sometimes)
DECLARE INTEGER Send in &dll_name STRING blatstring could be: DECLARE INTEGER Send in (dll_name) STRING blatstring
2) Bad capitalization of the function:
lnresult = send(lcstring) should be: lnresult = Send(lcstring)
The capitalization of "Send" (and any DLL function) should be keept in all the code. At least this is a problem with many Win32 API functions, and I apply it for any DLL function.
Other than this: - Could be a permissions problem in the server - ¿Some dependant C++ runtime?
Regards,
Fernando D. Bozzo.-
2018-06-28 19:31 GMT+02:00 Desmond Lloyd desmond.lloyd@gmail.com:
Good Morning all,
Have been using Blat here at work for years. Essentially modifying the code as the need arose. now have a client that I would like to use it on, but for some reason it always returns a code 1 in the new environment but works fine here at work...
Would someone please look at the sample below to see what I might be missing?
LPARAMETERS lcsubject, lcbody, lcrecipient, lcfrom, lccopyto
lcFrom = 'dlloyd@wow.com'
*lcfrom = 'dlloyd@test.com'
lcSubject = 'Email Test'
set Safety off
lcBody = 'This is a Test of an automated email system. Third Test. Would you Please reply if received'+ CHR(13) + CHR(10) + CHR(13) + CHR(10)
lcRecipient = 'desmond.lloyd@gmail.com'
STRTOFILE(lcbody, "Body.txt")
lcstring = 'C:\Body.txt -s "' + lcsubject + '" -to ' + lcrecipient + ' -f '
- lcfrom + ' -u '+'dlloyd'+' -pw '+'password'+ ' -server
'+'192.168.999..62'
dll_name = "blat.dll"
DECLARE INTEGER Send in &dll_name STRING blatstring
lnresult = send(lcstring)
IF lnresult > 0
wait window 'Result: '+alltrim(str(lnREsult))
ENDIF
--- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html
[excessive quoting removed by server]