DoubleDutch wrote:Tested with your new test program.
Message sent!
That's weird ...
Maybe some strange Tailbite problem like the one with Win98 (
http://www.purebasic.fr/english/viewtop ... &start=141 )
I have uploaded
http://freenet-homepage.de/gnozal/PureSMTP_BETA.zip (standard ANSI debug lib), to be placed in the userlibraries folder.
It will create a PureSMTP_TRACE.txt log file, maybe it will help to locate the problem.
Edit (was posting while you posted)
Line 416 : FreeMemory(*B64EncodeBufferB)
Code: Select all
Procedure.s Base64Encode(strText.s)
Protected Result.s, *B64EncodeBufferA, *B64EncodeBufferB, OutputBufferLength.l, InputBufferLength.l
InputBufferLength = Len(strText)
OutputBufferLength = InputBufferLength * 2
If OutputBufferLength < 64
OutputBufferLength = 64
EndIf
*B64EncodeBufferA = AllocateMemory(InputBufferLength)
If *B64EncodeBufferA
*B64EncodeBufferB = AllocateMemory(OutputBufferLength)
If *B64EncodeBufferB
PokeS(*B64EncodeBufferA, strText) ; PokeS(*B64EncodeBufferA, strText, InputBufferLength, #PB_Ascii) if unicode
Base64Encoder(*B64EncodeBufferA, InputBufferLength, *B64EncodeBufferB, OutputBufferLength)
Result = PeekS(*B64EncodeBufferB)
FreeMemory(*B64EncodeBufferB)
EndIf
FreeMemory(*B64EncodeBufferA)
EndIf
ProcedureReturn Result
EndProcedure
Debug Base64Encode("hello world")
Could you test this code in vista ?