.NET Framework

Απ: SMS στα ελληνικά

nettraptor1 — Mon, 17 Jul 2006 16:32:12 GMT

Αν θέλω να στειλώ SMS με αυτον τον τρόπο αλλα με μια αλλαγή... να μπορέσω με κάποιο τρόπο στην θέση του τηλεφώνου όταν φτ'άνει στον παραλήπτη το μυνημα να δείχνει ενα ονομα μιας εταιρείας(αλφαριθμητικο) Ειναι ευφικτό ???

μου ζήτησαν κατι παρόμοιο αντι για το τηλεφωνο στους πελάτες να φενεται ενα prefix name

Απ: SMS στα ελληνικά

pikos — Fri, 27 Jan 2006 22:36:51 GMT

:) Δές SMSj.sourceforge.net και www.kannel.org
Εγώ πολλά πράγματα τα έχω κάνει dll με J# και τα δουλεύω απο C# kai vb..

Απ: SMS στα ελληνικά

dimkasta — Thu, 26 Jan 2006 19:19:06 GMT

Μήπως ξέρεις άν μπορούν να γυρίσουνε ericsson σε text mode?
Καθόλου κώδικα για pdu έχεις?

Απ: SMS στα ελληνικά

pikos — Wed, 25 Jan 2006 22:08:56 GMT

Για GSM Encode χριάζεσαι αυτά για να στέλνεις Ελληνικά ΧΩΡΙΣ τόνους και όλα .ToUpper :

InputString = Replace(InputString, "Δ", Chr(16))
        InputString = Replace(InputString, "Φ", Chr(18))
        InputString = Replace(InputString, "Γ", Chr(19))
        InputString = Replace(InputString, "Λ", Chr(20))
        InputString = Replace(InputString, "Ω", Chr(21))
        InputString = Replace(InputString, "Ώ", Chr(21))
        InputString = Replace(InputString, "Π", Chr(22))
        InputString = Replace(InputString, "Ψ", Chr(23))
        InputString = Replace(InputString, "Σ", Chr(24))
        InputString = Replace(InputString, "Θ", Chr(25))
        InputString = Replace(InputString, "Ξ", Chr(26))
        InputString = Replace(InputString, "Ώ", Chr(21))

Public Function Greek2English(ByVal ConString As String) As String
        Dim IllegalChars() As Char
        Dim LegalCharacs() As Char
        Dim Xpos, i As Long
        ConString = ConString.ToUpper
        IllegalChars = "ΑΒΕΖΗΙΚΜΝΟΡΤΥΧ".ToCharArray
        LegalCharacs = "ABEZHIKMNOPTYX".ToCharArray
        For i = 0 To LegalCharacs.Length - 1
            ConString = Replace(ConString, IllegalChars(i), LegalCharacs(i))
        Next
        Return ConString.ToUpper
    End Function

Private Function ReplaceInvalidCharacters(ByVal ConString As String) As String
        Dim XPos, i As Long
        ConString = ConString.ToUpper
        If IsNothing(ConString) Or ConString = "" Then ConString = " "
        Dim IllegalChars() As Char = UCase("άέήίϊΐόύϋΰώ").ToCharArray
        Dim LegalCharacs() As Char = "ΑΕΗΙΙΙΟΥΥΥΩ".ToCharArray
        For i = 0 To LegalCharacs.Length - 1
            ConString = Replace(ConString, IllegalChars(i), LegalCharacs(i))
        Next
        Return ConString.ToUpper
    End Function

Τα άλλα είναι unicode και τα στέλνεις με pdu (udh, ud) κ.τ.λ :)

Απ: SMS στα ελληνικά

George J. Capnias — Sun, 11 Dec 2005 12:27:56 GMT

Δεν νομίζω ότι κάνεις κάτι λάθος... Δεν έχω όμως την παραμικρή ιδέα τι κάνεις για να το ξεπεράσεις...

Αυτό που μου έρχεται στο μυαλό είναι να χρησιμοποιήσεις ένα utility σαν το PortMon της SysInternals και να κάνει monitor την σειριακή σου, ενώ κάνεις την ίδια διαδικασία μέσα από ένα άλλο πρόγραμμα που μπορείς να στείλεις σωστά SMS!

George J.

Απ: SMS στα ελληνικά

dimkasta — Sun, 11 Dec 2005 05:32:07 GMT

OK βρήκα πως γίνεται...

Το κακό είναι ότι ο χαρακτήρας 'Ξ', αντιστοιχεί στο \x1A, το οποίο αντιστοιχεί στο
ctrl+Z που σημαίνει το τέλος του κειμένου και δίνει εντολή να φύγει το sms.

Έτσι αν ένα μήνυμα περιέχει Ξ, το κείμενο κόβεται και φεύγει μισό...

Καμιά ιδέα? Τι κάνω λάθος?

Απ: SMS στα ελληνικά

dimkasta — Sun, 11 Dec 2005 02:04:30 GMT

OK κάτι κατάλαβα...
Τους ascii πώς τους βάζω στο string?

Βρήκα τον πίνακα,

http://www.csoft.co.uk/sms/character_sets/gsm.htm

αλλά δεν ξέρω πως να τα περάσω στο string ή σε ένα
char[]

Απ: SMS στα ελληνικά

George J. Capnias — Sat, 10 Dec 2005 19:52:16 GMT

Έχω χρόνια να το κάνω, από ότι θυμάμαι:

Θα πρέπει να πάρεις το string με τα ελληνικά και να το κάνεις UPPERCASE
Μετά θα πρέπει να αντικαταστήσεις μέσα στο string με λατινικούς χαρακτήρες τους ελληνικούς που έχουν αντίστοιχο λατινικό (ι -> i, ο -> ο)
Τέλος θα πρέπει να αντικαταστήσεις με τον αντίστοιχους ελληνικούς GSM (έχουν κωδικούς 1-20 σαν ASCII) τους υπόλοιπους ελληνικούς χαρακτήρες που δεν έχουν αντίστοιχους λατινικούς

George J.

Απ: SMS στα ελληνικά

dimkasta — Sat, 10 Dec 2005 11:46:27 GMT

Για πές μου περισσότερα... Γενικά δεν τα πάω καλά με τα encodings κλπ...
Άν μπορείς να μου δώσεις ένα παράδειγμα...
Προς το παρόν χρησιμοποιώ τις εντολές (αφού φτιάξω serialPort και το κάνω open)

            port.WriteLine("AT+CMGS=\"697....\"");
            port.Write("Τext goes here");
            port.Write("\x1A");

Έστω ότι θέλω να στείλω το κείμενο "ΓΕΙΑ ΧΑΡΑ"...

Τί δίνω?

Απ: SMS στα ελληνικά

George J. Capnias — Sat, 10 Dec 2005 09:57:56 GMT

Ναι, αλλά από ότι θυμάμαι, τα ελληνικά δεν είναι εκεί που τα περιμένεις να είναι. Αν θυμάμαι καλά είναι από το χαρακτήρα 1 μέχρι τον 20 με εξαίρεση τους χαρακτήρες 9,10,13... και μόνο κεφαλαίοι.

Το έχεις δοκιμάσει να στείλεις τέτοιους;

George J.

SMS στα ελληνικά

dimkasta — Sat, 10 Dec 2005 09:11:59 GMT

Ξέρει κανείς πώς μπορεί να σταλεί SMS στα Ελληνικά σε text mode, μέσω σειριακής σύνδεσης, με ΑΤ εντολές?

Είναι εφικτό? Ή μόνο μέσω pdu?