Conexões com a internet.

Delphi

27/07/2003

Gostaria de saber como abrir uma conexão dial up e fazê-la conectar meu micro na internet, e também como fazer para desconectar via delphi.


Haguen

Haguen

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

27/07/2003

Dica da DTDelphi(endereços para download em: http://200.196.51.150/forum/viewtopic.php?t=2019 ):

261 - Executando uma chamada para a Conexão Dial-Up
Executando uma chamada para a Conexão Dial-Up

Insira um objeto do tipo Button definindo sua propriedade name para Button1. 

implementation
uses Registry;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
Var
Conexao, Executa, Conecta : string;
Dialup : Pchar;
reg : TRegIniFile;
begin
  reg := TRegIniFile.create(´RemoteAccess\´);
  Conexao := reg.ReadString(´´,´Default´,´´);
  reg.free;
  Executa:=´rundll32.exe rnaui.dll,RnaDial ´; {executavel e biblioteca do windows}
  Conecta:=Executa+Conexao; {concatena comando e nome da conexão}
  Dialup:=Pchar(Conecta); {transforma string em caracter para ser aceita pela função}
  winexec(Dialup,sw_show);
end;



GOSTEI 0
Fórum Vini

Fórum Vini

27/07/2003

Dê uma olhada nas funções da unit Wininet, tem um arquigo sobre ela aqui no clube: [url]http://www.clubedelphi.com.br/artigos/wininet.html[/url].


Espero ter ajudado.

Vinicius


GOSTEI 0
POSTAR