Posted: Sun May 21, 2006 3:24 am
I'm on it, be patient, plz 

http://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
... code ...
JMP _EndProcedure9
; EndProcedure
XOR eax,eax ; <<< this will never be called, so we can save the JMP
_EndProcedure9:
RET 4
Code: Select all
... code ...
; JMP _EndProcedure9
; EndProcedure
; XOR eax,eax
; _EndProcedure9:
RET 4
Code: Select all
ProcedureDLL.l PureSMTP_SendMail(MailTo.s, MailFrom.s, Subject.s, MsgBody.s) ; Send mail : returns #PureSMTP_Ok if success (else is error code)
ProcedureReturn PureSMTP_SendMailEx(MailTo, MailFrom, Subject, MsgBody, "", "", "", "")
EndProcedure
ProcedureDLL.l PureSMTP_SendMail2(MailTo.s, MailFrom.s, Subject.s, MsgBody.s, Attachments.s) ; Send mail : returns #PureSMTP_Ok if success (else is error code)
ProcedureReturn PureSMTP_SendMailEx(MailTo, MailFrom, Subject, MsgBody, Attachments, "", "", "")
EndProcedure
ProcedureDLL.l PureSMTP_SendMail3(MailTo.s, MailFrom.s, Subject.s, MsgBody.s, Attachments.s, UserName.s) ; Send mail : returns #PureSMTP_Ok if success (else is error code)
ProcedureReturn PureSMTP_SendMailEx(MailTo, MailFrom, Subject, MsgBody, Attachments, UserName, "", "")
EndProcedure
ProcedureDLL.l PureSMTP_SendMail4(MailTo.s, MailFrom.s, Subject.s, MsgBody.s, Attachments.s, UserName.s, Password.s) ; Send mail : returns #PureSMTP_Ok if success (else is error code)
ProcedureReturn PureSMTP_SendMailEx(MailTo, MailFrom, Subject, MsgBody, Attachments, UserName, Password, "")
EndProcedure
ProcedureDLL.l PureSMTP_SendMail5(MailTo.s, MailFrom.s, Subject.s, MsgBody.s, Attachments.s, UserName.s, Password.s, HeaderAddon.s) ; Send mail : returns #PureSMTP_Ok if success (else is error code)
ProcedureReturn PureSMTP_SendMailEx(MailTo, MailFrom, Subject, MsgBody, Attachments, UserName, Password, HeaderAddon)
EndProcedure
Note the '[ilTo.s' instead of 'MailTo.s'PureSMTP_SendMail @@@@€ ([ilTo.s, MailFrom.s, Subject.s, MsgBody.s [, Attachments.s [, UserName.s [, Password.s [, HeaderAddon.s]]]]) - Send mail : returns #PureSMTP_Ok if success (else is error code)
Code: Select all
; TailbiteTest.pb
ProcedureDLL GetFileDate(Filename.s)
Protected searchData.WIN32_FIND_DATA, *FT.FILETIME, FT.FILETIME
#DateBaseHigh = 27111902 ; 64 bit value to subtract
#DateBaseLow = -717324288 ; from FILETIME for PBdate
#Stamp = 2 ; 0:created, 1:access, 2:write,
hFind = FindFirstFile_(Filename, searchData)
If hFind = #INVALID_HANDLE_VALUE
ProcedureReturn 0
EndIf
*FT.FILETIME = @searchData\ftCreationTime + SizeOf(FILETIME) * #Stamp
FileTimeToLocalFileTime_(*FT, FT)
FindClose_(hFind)
MOV Eax,FT\dwLowDateTime
MOV Edx,FT\dwHighDateTime
SUB Eax,#DateBaseLow
SBB Edx,#DateBaseHigh
MOV Ebx,10000000
DIV Ebx
ProcedureReturn
EndProcedure
Thanks, but same error with PR1.6IceSoft wrote:PR1.6 is the newest.
Yes, I use it.Flype wrote:does the Import and ImportC keywords are supported in the last version of tailbite ?
No more FAsm error with Tailbite 1.3 PR 1.7. Thanks!El_Choni wrote:Thx, I'm on it.
I use Import with ZLIB, but I never tried ImportC.Flype wrote:@EL_Choni:
so it doesn't work for me, i will send you a PM.
In my case, while compiling with TBManager one lib which makes use of ImportC the GUI stay 'grayed'. I've to kill the program in the taskmanager.