12 replies to this topic

[luk2009]

He estado probando algunos celulares como modem gsm y estoy esperando que me llegue un celular sencillo, pero que me va a permitir enviar mensajes por medio de el.  Mientras tengo un modem de la empresa claro, que me sirve para conectarme a internet por medio del chip de mi celular.
Este modem trae un programita que me permite enviar mensajes de texto. Lo que quiero hacer es enviar mensajes de texto con este modem, pero desde delphi.  He visto que trae varias DLL :


SMSPlugin.dll
SMSUIPlugin.dll




He llamado a la telefonica y nadie sabe decirme nada.  Es Posible Utilizar Estas DLL.


El modem no acepta los comandos At,  pero me crea dos puertos seriales.




[img height=272 width=400]http://img6.imageshack.us/img6/7484/smsclaro.jpg[/img]

[luk2009]

con la ayuda de Fredycc he descubierto que este modem solo envia en formato PDU. Asi que por eso es que debo comenzar a revisar. Espero que alguien sepa como convertir de ascii  a  PDU para  poder crear una funcion que resuelva esto.

[luk2009]

googleando un poco, encontre el foro delphi praxis de alemania y he encontrado este programita. Con el puedo enviar mensajes desde este modem y el software lo convierte de cadena normal a pdu.  Aqui esta el programa con sus fuentes, la cual he traducido en su mayor parte.

El utiliza el componente APRO  o ASYNCPRO  que es el que utilizo para conectarme a los puertos seriales.

Attached Files

•  2513_db581505829ea224f321378ca31a3ee891be7a1c.zip   399.36KB   17 downloads

[ELKurgan]

Gracias por el aporte, compañero

Saludos

[escafandra]

...Tienez  razon en que puedo ir trabajando con el programita que encontre.  Por  otro lado, segun indica la pagina que te puse, la version para delphi  depende de los componentes CPORT. 


La idea era crear una funcion que convierta los mensajes de PDU a Ascii sin tener que estar amarrado a ningun componente...

El enlace que me proporcionaste tiene el código necesario para pasar de ascii a pdu y al contrario, pero está escrito en C . Hoy tenía un rato libre y me dediqué a husmear ese código y finalmente me decidí a traducirlo a delphi. 

Como es una cuestión que puede interesar a mas de uno he decidido publicar dicha traducción en una unit que he denominado PDUConv.pas. La subo en este mensaje.

Haz tus pruebas, espero que te sirva de algo y que sea lo que buscabas. 


Saludos.

[escafandra]

Subo la traducción del ejemplo que aparece en el este enlace, antes mencionado. Se trata de un simple programa de consola con varios ejemplos de codificación ascii - pdu en ambos sentidos.

Saludos.

[escafandra]

Cuando tenga un rato trato de realizar un interface mas cercano al delphi, con String, pues las funciones usan PCHAR.

Lo prometido es deuda:

delphi

function Ascii2Pdu(ascii: String): String;
var
  _pdu: PCHAR;
  i: integer;
begin
   i:= ascii_to_pdu(PCHAR(ascii), @_pdu);
   Result:= Copy(_pdu, 1, i);
   FreeMem(_pdu);
end;
 
function Pdu2Ascii(pdu: String): String;
var
  _ascii: PCHAR;
  i: integer;
begin
  i:= pdu_to_ascii(PCHAR(pdu), Length(pdu), @_ascii);
  Result:= Copy(_ascii, 1, i);
  FreeMem(_ascii);
end

Subo los cambios en el archivo PDUConv.pas y una aplicación delphi de ejemplo. 


Saludos.

[luk2009]

Gracias por toda tu ayuda.       




Cuando sea un viejito como caral y egostar, espero haber alcanzado tu sabiduria

[escafandra]

Amigo, yo también soy tan viejito o mas que Caral o egostar y todavía no he alcanzado la sabiduría .


Saludos.

[luk2009]

Escafandra no me salgas ahora con que no sabes nada, porque eso no se en que lugar me deja. 

y sobre lo de viejitos era por joder a caral y a egostar.


PD. Por cierto he cambiado el titulo porque me parece mas correcto.

[egostar]

jejejeje, y ni como reclamar, lo bueno que Caral es el más viejo

Salud OS

PD, Ya lo comenté en otro hilo, "ser viejo no garantiza se el mejor, conozco a chavales que me impresionan" Y bueno el amigo escafandra es de los amigos que me impresionan cada día.

[escafandra]

luk2009, te muestro la forma de decodificar un SMS en formato PDU. El código anterior para pasar de ASCII a PDU y viceversa, sigue siendo el mismo que publiqué. El formato SMS PDU tiene una cabecera de longitud variable y no codificada como ya sabes. En estos enlaces puede verse: 1 , 2. De ellos se deduce que el mensaje no es el mismo cuando se envía que cuando se recibe.

Lo que muestro es como decodificar un SMS recibido en formato PDU pues parece que es lo que mas te interesa:

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, PDUConv;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    E_PDU: TEdit;
    Label2: TLabel;
    E_MSG: TEdit;
    Label3: TLabel;
    E_Tlf: TEdit;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function HexStrToInt(HexStr: String; index: integer): integer;
begin
  Result:= StrToInt('$' + Copy(HexStr, index*2-1, 2));
end;
 
function HexStrToStr(HexStr: String): String;
var
  i, L: integer;
begin
  L:= Length(HexStr);
  i:= 1;
  while i <= L do
  begin
    Result:= Result + char(StrToInt('$'+ Copy(HexStr, i, 2)));
    inc(i, 2);
  end;
end;
 
function StrToHexStr(Str: String): String;
var
  i, L: integer;
begin
  L:= Length(Str);
  for i:= 1 to L do
  begin
    Result:= Result + IntToHex(integer(Str[i]), 2);
  end;
end;
 
function GetPDUMessage(PDU: String): string;
var
  i: integer;
begin
  i:= HexStrToInt(PDU, 1) + 3;
  i:= i + (HexStrToInt(PDU, i)+1) div 2 + 12;
  Result:= Pdu2Ascii(HexStrToStr(Copy(PDU, i*2-1, Length(PDU)-i)));
end;
 
function GetPDUSenderNumber(PDU: String): string;
var
  n, i, NDigits: integer;
begin
  Result:= '';
  i:= HexStrToInt(PDU, 1) + 3;
  NDigits:= HexStrToInt(PDU, i);
  inc(i);
  if HexStrToInt(PDU, i) = $91 then Result:= '+';
  inc(i);
  n:=0;
  while n < NDigits do
  begin
    Result:= Result + PDU[n + i*2];
    if UpperCase(PDU[n + i*2-1]) <> 'F' then Result:= Result + PDU[n + i*2-1];
    inc(n, 2);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  E_Tlf.Text:= GetPDUSenderNumber(E_PDU.Text);
  E_MSG.Text:= GetPDUMessage(E_PDU.Text);
end;
 
end.

Saludos.

[luk2009]

Gracias Escafandra por sacar tiempo para esto.  voy a probar y a tratar de entender tu codigo e implementarlo. Cualquier cosa te comento