Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

#117 DoDirect function causes exception

open
nobody
Pager (4)
5
2013-01-13
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