conectar com Modem
Pessoall,
preciso conectar-me com um modem, fazer uma discagem e passar 2 parametros para validacao ...
Nao posso usar nenhum componente do delphi w32 ..., pois vou rodar esse programa com console do windows.
Preciso usar somente codigo ..., velho e bom pascal.
Alguem pode me dar uma luz ?
Obr
preciso conectar-me com um modem, fazer uma discagem e passar 2 parametros para validacao ...
Nao posso usar nenhum componente do delphi w32 ..., pois vou rodar esse programa com console do windows.
Preciso usar somente codigo ..., velho e bom pascal.
Alguem pode me dar uma luz ?
Obr
Scandolara
Curtidas 0
Respostas
Otto
23/10/2003
bom, pelo delphi é so adicionar a seguinte rotina em um botao(qualquer)..
--- :arrow:
procedure TForm1.Button1Click(Sender: TObject);
var
Res: DWORD;
begin
FConn := 0;
Res := InternetDial(Handle, nil, 0, @FConn, 0);
if Res <> ERROR_SUCCESS then begin
case Res of
ERROR_NO_CONNECTION: ShowMessage(´Existe um erro na conexão dial-up´);
ERROR_USER_DISCONNECTION: ShowMessage(´O usuário pressionou Cancelar´);
else
ShowMessage(SysErrorMessage(Res));
end;
end;
end;
--------- :!:
eu uso isso. ver se da pra aproveitar algo.
oTTo Husckows :shock:
--- :arrow:
procedure TForm1.Button1Click(Sender: TObject);
var
Res: DWORD;
begin
FConn := 0;
Res := InternetDial(Handle, nil, 0, @FConn, 0);
if Res <> ERROR_SUCCESS then begin
case Res of
ERROR_NO_CONNECTION: ShowMessage(´Existe um erro na conexão dial-up´);
ERROR_USER_DISCONNECTION: ShowMessage(´O usuário pressionou Cancelar´);
else
ShowMessage(SysErrorMessage(Res));
end;
end;
end;
--------- :!:
eu uso isso. ver se da pra aproveitar algo.
oTTo Husckows :shock:
GOSTEI 0