C#

Imports Microsoft.VisualBasic
 
Public Class deskew
    ' Representation of a line in the image.
    Public Class HougLine
        ' Count of points in the line.
        Public Count As Integer
        ' Index in Matrix.
        Public Index As Integer
        ' The line is represented as all x,y that solve y*cos(alpha)-x*sin(alpha)=d
        Public Alpha As Double
        Public d As Double
    End Class
    ' The Bitmap
    Dim cBmp As Bitmap
    ' The range of angles to search for lines
    Const stepsPerDeg = 5
    Const minAngle = -13
    Const maxAngle = 13
    Dim cAlphaStart As Double = minAngle
    Dim cAlphaStep As Double = 1 / stepsPerDeg
    Dim cSteps As Integer = (maxAngle - minAngle) * stepsPerDeg
    ' Precalculation of sin and cos.
    Dim cSinA() As Double
    Dim cCosA() As Double
    ' Range of d
    Dim cDMin As Double
    Dim cDStep As Double = 1
    Dim cDCount As Integer
    ' Count of points that fit in a line.
    Dim cHMatrix() As Integer
 
    Public getPixelCalls As Long
 
    Public Sub setAngleRange(ByVal minAngle As Long, ByVal maxAngle As Long)
        cAlphaStart = minAngle
        cSteps = (maxAngle - minAngle) / cAlphaStep
    End Sub
 
    ' Calculate the skew angle of the image cBmp.
    Public Function GetSkewAngle() As Double
        Dim hl() As deskew.HougLine
        Dim i As Integer
        Dim sum As Double
        Dim count As Integer
 
        ' Hough Transformation
        Calc()
        ' Top 20 of the detected lines in the image.
        hl = GetTop(20)
        ' Average angle of the lines
        For i = 0 To 19
            sum += hl(i).Alpha
            count += 1
        Next
        Return sum / count
    End Function
 
    ' Calculate the Count lines in the image with most points.
    Private Function GetTop(ByVal Count As Integer) As HougLine()
        Dim hl() As HougLine
        Dim i As Integer
        Dim j As Integer
        Dim tmp As HougLine
        Dim AlphaIndex As Integer
        Dim dIndex As Integer
 
        ReDim hl(Count)
        For i = 0 To Count - 1
            hl(i) = New HougLine
        Next
        For i = 0 To cHMatrix.Length - 1
            If cHMatrix(i) > hl(Count - 1).Count Then
                hl(Count - 1).Count = cHMatrix(i)
                hl(Count - 1).Index = i
                j = Count - 1
                While j > 0 AndAlso hl(j).Count > hl(j - 1).Count
                    tmp = hl(j)
                    hl(j) = hl(j - 1)
                    hl(j - 1) = tmp
                    j -= 1
                End While
            End If
        Next
        For i = 0 To Count - 1
            dIndex = hl(i).Index \ cSteps
            AlphaIndex = hl(i).Index - dIndex * cSteps
            hl(i).Alpha = GetAlpha(AlphaIndex)
            hl(i).d = dIndex + cDMin
        Next
        Return hl
    End Function
    Public Sub New(ByVal bmp As Bitmap)
        cBmp = bmp
    End Sub
    ' Hough Transforamtion:
    Private Sub Calc()
        Dim x As Integer
        Dim y As Integer
        Dim hMin As Integer = cBmp.Height / 4
        Dim hMax As Integer = cBmp.Height * 3 / 4
 
        Init()
        For y = hMin To hMax
            For x = 1 To cBmp.Width - 2
                ' Only lower edges are considered.
                If IsBlack(x, y) Then
                    If Not IsBlack(x, y + 1) Then
                        Calc(x, y)
                    End If
                End If
            Next
        Next
    End Sub
    ' Calculate all lines through the point (x,y).
    Private Sub Calc(ByVal x As Integer, ByVal y As Integer)
        Dim alpha As Integer
        Dim d As Double
        Dim dIndex As Integer
        Dim Index As Integer
 
        For alpha = 0 To cSteps - 1
            d = y * cCosA(alpha) - x * cSinA(alpha)
            dIndex = CalcDIndex(d)
            Index = dIndex * cSteps + alpha
            Try
                cHMatrix(Index) += 1
            Catch ex As Exception
                Debug.WriteLine(ex.ToString)
            End Try
        Next
    End Sub
    Private Function CalcDIndex(ByVal d As Double) As Double
        Return Convert.ToInt32(d - cDMin)
    End Function
    Private Function IsBlack(ByVal x As Integer, ByVal y As Integer) As Boolean
        Dim c As Color
        Dim luminance As Double
        getPixelCalls += 1
        c = cBmp.GetPixel(x, y)
        luminance = (c.R * 0.299) + (c.G * 0.587) + (c.B * 0.114)
        Return luminance < 140
    End Function
    Private Sub Init()
        Dim i As Integer
        Dim angle As Double
        getPixelCalls = 0
        ' Precalculation of sin and cos.
        ReDim cSinA(cSteps - 1)
        ReDim cCosA(cSteps - 1)
        For i = 0 To cSteps - 1
            angle = GetAlpha(i) * Math.PI / 180.0#
            cSinA(i) = Math.Sin(angle)
            cCosA(i) = Math.Cos(angle)
        Next
        ' Range of d:
        cDMin = -cBmp.Width
        cDCount = 2 * (cBmp.Width + cBmp.Height) / cDStep
        ReDim cHMatrix(cDCount * cSteps)
    End Sub
 
    Public Function GetAlpha(ByVal Index As Integer) As Double
        Return cAlphaStart + Index * cAlphaStep
    End Function
End Class

TcpClient SmtpServ = new TcpClient("smtp.my.com", 25);
            string Data;
            byte[] szData;
            string CRLF = "\r\n";
 
            try
            {
                // initialization
                NetworkStream NetStrm = SmtpServ.GetStream();
                StreamReader RdStrm = new StreamReader(SmtpServ.GetStream());
                Console.WriteLine(RdStrm.ReadLine());
 
                // say hello to server and send response into log report
                Data = "HELO server" + CRLF;
                szData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray());
                NetStrm.Write(szData, 0, szData.Length);
                Console.WriteLine(RdStrm.ReadLine());
                // send sender data
                Data = "MAIL From:" + " me@test.com" + CRLF;
                szData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray());
                NetStrm.Write(szData, 0, szData.Length);
                Console.WriteLine(RdStrm.ReadLine());
 
                // send receiver data
                Data = "RCPT TO: " + "me@my.net" + CRLF;
                szData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray());
                NetStrm.Write(szData, 0, szData.Length);
                Console.WriteLine(RdStrm.ReadLine());
 
                // send DATA
                Data = "DATA" + CRLF;
                szData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray());
                NetStrm.Write(szData, 0, szData.Length);
                Console.WriteLine(RdStrm.ReadLine());
 
                // send content data
                Data = "SUBJECT: my subject\r\n\r\n";
                Data += "Hello there!\r\n";
                Data += ".\r\n";
                szData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray());
                NetStrm.Write(szData, 0, szData.Length);
                Console.WriteLine(RdStrm.ReadLine());
 
 
                // quit from server SMTP
                Data = "QUIT" + CRLF;
                szData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray());
                NetStrm.Write(szData, 0, szData.Length);
                Console.WriteLine(RdStrm.ReadLine());
 
                // close connection
                NetStrm.Close();
                RdStrm.Close();
                Console.WriteLine("Close connection");
                Console.WriteLine("Send mail successly..");
 
            }
            catch (InvalidOperationException err)
            {
                Console.WriteLine("Error: " + err.ToString());
            }
 

"MAIL From:" + " <me@test.com>" + CRLF;

 
--  Connect.cs file.
public static void connectDB()
    {
        try
        {
                conn.ConnectionString = connection;
                conn.Open();
        }
        catch
        {
            //closeConnectDB();
        }
    }
    public static void closeConnectDB()
    {
        //conn.Dispose();
            conn.Close();
        //conn.Dispose();
    }
    public static int ExecuteQuery(string SQL)
    {
        try
        {
            connectDB();
            NpgsqlCommand cmd = new NpgsqlCommand(SQL, conn);
            return cmd.ExecuteNonQuery();
        }
        catch
        {
            closeConnectDB();
            return 0;
        }
        
    }
 
    public static DataSet SelectQuery(string SQL)
    {
        DataSet ds = new DataSet();
        try
        {
            connectDB();
            NpgsqlDataAdapter nDa = new NpgsqlDataAdapter(SQL, conn);
            
            nDa.Fill(ds);
            // closeConnectDB();
            return ds;
        }
        catch
        {
            closeConnectDB();
            return ds;
        }
        
    }

--- calling functions files.
try
                        {
                            string strTest = "Select * from abc where .. ";
                            DataSet ds1 = new DataSet();
                            ds1 = Connect.SelectQuery(strTest);
                            if (ds1.Tables[0].Rows.Count > 0)
                            {
                                
                            }
                            else
                            {
                                int kq = Connect.ExecuteQuery(strInsert);
                                if (kq > 0)
                                {
                                    int kk = Connect.ExecuteQuery(strUpdate);
                                    kk = Connect.ExecuteQuery(strUpdate2);
                                    
                                    strHTML = "OK";
                                }
                            }
                        }
                        catch
                        {
                            strHTML = "errors.";
                        }
                        finally
                        {
                            int kk = Connect.ExecuteQuery(strUpdate);
                            kk = Connect.ExecuteQuery(strUpdate2);
                            
                            strHTML += "-- Sub Finally";
                        }

tahernd wrote:

I want to integrate a C# application for paperless billing with a retail billing machine

tahernd wrote:

retail billing machine

private WebResponse webPOST(string URLextension, string Parameters)
{
    HttpWebRequest request = (HttpWebRequest)HttpWebRequest.Create(BASE_URL + URLextension);
    request.ContentType = "application/x-www-form-urlencoded";
    request.Method = "POST";
    request.Headers.Add("X-Requested-With: C# Interface");
    request.CookieContainer = _cookieJar;
    request.Timeout = 3600000;  //1 HOUR TIMEOUT
    if (_proxy != string.Empty)
    {
        request.Proxy = new System.Net.WebProxy(_proxy, false);
        request.Proxy.Credentials = new 
            NetworkCredential(_proxyUser.ConvertToUnsecureString(), _proxyPass.ConvertToUnsecureString());
    }
    byte[] buffer = Encoding.GetEncoding("UTF-8").GetBytes(Parameters);
    Stream reqstr = request.GetRequestStream();
    reqstr.Write(buffer, 0, buffer.Length);
    reqstr.Close();
    return request.GetResponse();
}

Timothy CIAN wrote:

And, of course, the "difference" was that in my console app I was just spitting
the XML onto the screen, not loading an XmlDocument class.
 

Member 7980583 wrote:

I don't really want to re-install Visual Studio (wherever the disk is right now).

Bastard Programmer from Hell