This works fine in XP with one PC, but on another notebook with Vista it fails.
I get ERROR returned as soon as I try ATDT
I've simplified the code down and as soon as I hit ATDT I get error. Does
anyone out there have a suggestion? I've downloaded AsyncPro and its TAPI stuff
works but is very slow - faster to dial by finger almost <g>
function TForm1.DoTheJob: boolean;
begin
Result := False;
Label2.Caption := 'Preparing to dial';
Label2.Visible := True;
Update;
SynaDialer := TBlockSerial.Create;
try
SynaDialer.AtTimeout := 8000;
SynaDialer.Connect(DialerPort);
SynaDialer.AtTimeout := 8000;
SynaDialer.ATCommand('ATH1');
if (SynaDialer.LastError = 0) or SynaDialer.ATResult then begin
SynaDialer.AtTimeout := 1000;
Label2.Caption := 'Dialing ' + FullNumber;
Label2.Update;
Label1.Visible := True;
Label1.Update;
Label3.Visible := True;
Label3.Update;
showmessage(SynaDialer.ATCommand('ATDT'));
end else begin
MessageDlg('No dial tone!', mtError, [mbOK], 0);
end;
finally
FreeAndNil(SynaDialer);
Label1.Visible := False;
Label3.Visible := False;
Label2.Visible := False;
end;
end;
Roy Lambert
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
