Mandar sms via modem 3G
30/08/2012
0
Lucas Silva
Posts
31/08/2012
Alexandre Pedroso
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;
09/09/2012
João Cordeiro
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
09/09/2012
Lucas Silva
09/09/2012
João Cordeiro
Existe a possibilidade de enviar MMS que permite o envio de texto maiores que 160 caracteres bem como o envio de fotos e sons.
21/10/2016
Associação Zebu
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.
Clique aqui para fazer login e interagir na Comunidade :)