conectar com Modem

Question

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 wi...

Otto · Answer

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:

F�rum conectar com Modem #190493