kopia lustrzana https://github.com/Hamlib/Hamlib
Initial changes for ft100
git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@981 7ae35d74-ebe9-4afe-98af-79ac388436b8Hamlib-1.1.3
rodzic
491f9f67f6
commit
b216747445
|
@ -393,9 +393,15 @@ procedure TRigComponent.SetFreq(vfo: vfo_t; freq: freq_t);
|
|||
var
|
||||
retval: integer;
|
||||
begin
|
||||
vfo:=1;
|
||||
writeln('vfo=',vfo,' freq=',freq);
|
||||
retval := rig_set_freq(FRig, vfo, freq);
|
||||
if (retval <> RIG_OK)
|
||||
then raise ERigException.Create('rig_set_freq: ' + StrPas(rigerror(retval)));
|
||||
then
|
||||
begin
|
||||
writeln('Return=',retval);
|
||||
raise ERigException.Create('rig_set_freq: ' + StrPas(rigerror(retval)));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRigComponent.SetTransceive(trn: integer);
|
||||
|
|
Ładowanie…
Reference in New Issue