| Код |
var
RasDialer: TRasDialer;
begin
RasDialer := TRasDialer.Create;
end;
|
| Код |
RasDialer.OnNotify := RasDialerNotify;
|
А здесь уже по твоему усмотрению:
| Код |
procedure TMainForm.RasDialerNotify(Sender: TObject; State: TRasConnState;
ErrorCode: DWORD);
begin
if GetEventString(State, ErrorCode) <> ''
then StatusDialog.StatusBox.Items.Add(GetEventString(State, ErrorCode));
end;
|
| Код |
function TMainForm.GetEventString(State: TRasConnState;
ErrorCode: DWORD): string;
begin
if ErrorCode = 0 then
case State of
RASCS_OpenPort: Result := 'Порт открыт';
RASCS_ConnectDevice: Result := 'Набор номера ';
RASCS_DeviceConnected: Result := 'Модем готов к подключению';
RASCS_Authenticate or RASCS_AuthNotify:
Result := 'Проверка имени пользователя и пароля';
RASCS_Connected: Result := 'Присоеденился';
else
Result := '';
end;
end;
|
|
и где взять о этому делу хелп? Можно исходничек, пожалста! 