#117 DoDirect function causes exception

open
nobody
Pager (4)
5
2014-08-16
2011-01-04
Barry Andrews
No

The doDirect function in AdPager.pas does not work and raises exception if com port is not open

suggested change

procedure TApdTAPPager.DoDirect;
var
Res: Integer;
begin
inherited DoDirect;
DoOpenPort;

DoStartCall;

InitLoginTriggers;
StartPingTimer;

FSent := False;
FCancelled := False;
FAborted := False;

repeat
    Res := SafeYield;
until FAborted or FCancelled or FSent or \(Res = wm\_Quit\);

if FCancelled or FAborted then
    TerminatePage;

if not FSent then
DoFailedToSend
else
WriteToEventLog(FormatLogEntry(FPageMode, PagerID, PhoneNumber, '', pcDone));
end;

Discussion