luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[GB.NET.SMTP]

Browse Source 
* BUG: Fix the badly overriden class error.


git-svn-id: svn://localhost/gambas/trunk@6409 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2014-08-01 12:08:15 +00:00
parent 73b2d0dd75
commit 00ed123d18
4 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
comp/src/gb.net.smtp/.src/SmtpSession.class
View File

@ -40,7 +40,7 @@ End
Public Sub Connect(hClient As SmtpClient, (Host) As String, (Port) As Integer)
$hClient = hClient
$hClient = hClient
End

4
comp/src/gb.net.smtp/.src/SslSession.class
View File

@ -6,11 +6,13 @@ Property Read Connected As Boolean
Private $hProcess As Process
Public Sub Connect(sHost As String, iPort As Integer)
Public Sub Connect(hClient As SmtpClient, sHost As String, iPort As Integer)
If Not sHost Then sHost = "localhost"
If iPort = 0 Then iPort = 465
Super.Connect(hClient, sHost, iPort)
'Debug "Executing OpenSSL"
$hProcess = Exec [SmtpSession.GetOpenSSLPath(), "s_client", "-quiet", "-connect", sHost & ":" & iPort] For Read Write As "Client"
$hProcess.Blocking = True

4
comp/src/gb.net.smtp/.src/TcpSession.class
View File

@ -32,11 +32,13 @@ Public Sub Client_Found()
End
Public Sub Connect(sHost As String, iPort As Integer)
Public Sub Connect(hClient As SmtpClient, sHost As String, iPort As Integer)
If Not sHost Then sHost = "localhost"
If iPort = 0 Then iPort = 25
Super.Connect(hClient, sHost, iPort)
$hSocket.Timeout = 10000
$hSocket.Connect(sHost, iPort)
$hSocket.Blocking = True

4
comp/src/gb.net.smtp/.src/TlsSession.class
View File

@ -6,11 +6,13 @@ Property Read Connected As Boolean
Private $hProcess As Process
Public Sub Connect(sHost As String, iPort As Integer)
Public Sub Connect(hClient As SmtpClient, sHost As String, iPort As Integer)
If Not sHost Then sHost = "localhost"
If iPort = 0 Then iPort = 465
Super.Connect(hClient, sHost, iPort)
$hProcess = Exec [SmtpSession.GetOpenSSLPath(), "s_client", "-quiet", "-starttls", "smtp", "-connect", sHost & ":" & iPort] For Read Write As "Client"
$hProcess.Blocking = True
$hProcess.EndOfLine = gb.Windows