Re: Visual basic + dll +conversion to easylanguage??

[Mike Eggleston <mikee@xxxxxxxxxxxxxx>]

On Tue, 18 Jun 2002, Dennis Schutten wrote:

> I have below some visual basic which I want to convert to easylangauge. It's
> a dll calling  which can send email from within easylanguage. Can anyone
> convert this ?
> 
> Regards,
> 
> Dennis
> 
> 
> VB Declare Statement:
> 
> Declare Function SendBlat Lib "blat.dll" Alias "Send" (ByVal sCmd As String)
> As Integer
> Visual Foxpro 6 Example including Declare Statement (Compliments of Tim
> Charron):
> 
> 
> dll_name="blat.dll"
> dll_name=fullpath(dll_name)
> DECLARE INTEGER Send in &dll_name STRING blatstring
> teststring="blatdll.prg -t dest@xxxxxxx -s 'test' -base64 -attach blat.dll"
> result=Send(teststring)
> ? result

Might this work?

DefineDLLFunc: "blat.dll", LPSTR, "SEND", LPSTR;

Vars: result(""), cmd("");

cmd = "blatdll.prt -t dest@xxxxxxx -s 'test' -base64 -attach blat.dll";
result = Send(cmd);