Mandar sms via modem 3G
Estou desenvolvendo uma aplicação e queria saber como posso enviar sms a partir de um modem 3G pelo delphi. Alguém pode ajudar? (por favor, não redirecione a outro post, já fui em todos possíveis)
Lucas Silva
Curtidas 0
Respostas
Alexandre Pedroso
30/08/2012
A conexão com Pen Modem não passa de uma conexão Dial Up , da uma olhada neste código. Testa e dá o retorno.
uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
case OSVer of
VER_PLATFORM_WIN32_NT:
// Win NT, 2000, XP:
{connection_name = the name of the connection in "Network and
DialUp Connections", logon = logon string, password = password string.
All are separated by spaces.}
ShellExecute(Handle, 'open', 'rasdial.exe', 'connection_name logon password', nil, SW_HIDE);
// disconnect:
// ShellExecute(Handle, 'open', 'rasdial.exe', ' /disconnect', nil, SW_HIDE);
VER_PLATFORM_WIN32_WINDOWS:
// VERSION = 95, 98
(*Dial Up Networking (DUN)
module: RNAUI.DLL
command: rundll32.exe rnaui.dll,RnaDial {name of connection to establish}
result: displays the Connect To dialog for the passed connection *)
ShellExecute(Handle, PChar('open'), PChar('rundll32.exe'),
PChar('rnaui.dll,RnaDial exact name of dialer entry TRACERT -h 1 -w 1'),nil, SW_NORMAL);
end;
end;
uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
case OSVer of
VER_PLATFORM_WIN32_NT:
// Win NT, 2000, XP:
{connection_name = the name of the connection in "Network and
DialUp Connections", logon = logon string, password = password string.
All are separated by spaces.}
ShellExecute(Handle, 'open', 'rasdial.exe', 'connection_name logon password', nil, SW_HIDE);
// disconnect:
// ShellExecute(Handle, 'open', 'rasdial.exe', ' /disconnect', nil, SW_HIDE);
VER_PLATFORM_WIN32_WINDOWS:
// VERSION = 95, 98
(*Dial Up Networking (DUN)
module: RNAUI.DLL
command: rundll32.exe rnaui.dll,RnaDial {name of connection to establish}
result: displays the Connect To dialog for the passed connection *)
ShellExecute(Handle, PChar('open'), PChar('rundll32.exe'),
PChar('rnaui.dll,RnaDial exact name of dialer entry TRACERT -h 1 -w 1'),nil, SW_NORMAL);
end;
end;
GOSTEI 0
João Cordeiro
30/08/2012
usa o componente ACBr .. lá tem um componente para envio de SMS via modem 3G .. é bem simples ... vem com um Demo
Ou abre a porta serial do modem e utiliza os comandos At ... tenho um software que faz o envio
Se quiser dar uma olhada : www.onosistemas.com.br/yumi.exe
Está em desenvolvimento mas já envia ...
Abçs
João Carlos
Ou abre a porta serial do modem e utiliza os comandos At ... tenho um software que faz o envio
Se quiser dar uma olhada : www.onosistemas.com.br/yumi.exe
Está em desenvolvimento mas já envia ...
Abçs
João Carlos
GOSTEI 0
Lucas Silva
30/08/2012
Eu utilizei o componente ComPort e acessei a COM5 (que foi a porta criada com a instalação do modem) e mandei comandos AT para o modem e funcionou perfeitamente, vou testar essas duas também. O único problema é que mensagens sms muito grandes não vão e agora tenho que descobrir como mandar duas mensagens ao mesmo tempo sendo que elas se transformem em uma só. Se souber de alguma coisa me avisa por favor.
GOSTEI 0
João Cordeiro
30/08/2012
Então Lucas ... o tamanho máximo da mensagem é de 160 caracteres .. tecnicamente são 140 pois alguns são usados para controle de envio mas tem gente que envia os 160.
Existe a possibilidade de enviar MMS que permite o envio de texto maiores que 160 caracteres bem como o envio de fotos e sons.
Existe a possibilidade de enviar MMS que permite o envio de texto maiores que 160 caracteres bem como o envio de fotos e sons.
GOSTEI 0
Associação Zebu
30/08/2012
Estou a procura de uma solução para este problema.
Alguém saberia uma forma por exemplo o Delphi ter a entrada de um telefone (remetente) e por uma lista de destino com a mensagem e enviar? Ago assim.
Alguém saberia uma forma por exemplo o Delphi ter a entrada de um telefone (remetente) e por uma lista de destino com a mensagem e enviar? Ago assim.
GOSTEI 0