unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
BlockScanButton: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BlockScanButtonClick(Sender: TObject);
private
procedure WMUser(var Msg: TMessage); message WM_USER;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Dll: HMODULE;
hRadio: Integer;
curFreq: DWORD;
Freqs: array[0..1000] of DWORD;   // buffer for scan data

OpenRadioDevice: function(iDeviceNum: Integer): Integer; stdcall;
CloseRadioDevice: function(hRadio: Integer): Bool; stdcall;
SetAtten: function(hRadio: Integer; fAtten: Bool): Bool; stdcall;
SetPower: function(hRadio: Integer; fPower: Bool): Bool; stdcall;
SetAGC: function(hRadio: Integer; iAGC: Integer): Bool; stdcall;
G3BlockScan: function(hRadio: Integer; Freqs: PDWORD; Count: Integer; StopSquelchRaw: Integer; FeedbackTime: DWORD; WinHandle: HWND; Msg: DWORD): Bool; stdcall;
G3StopBlockScan: function(hRadio: Integer): Bool; stdcall;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Dll:=LoadLibrary('wrg3130api.dll');
hRadio:=0;

if (Dll=0) then ShowMessage('WRG3130API.DLL not found !')
else begin
OpenRadioDevice:=GetProcAddress(dll,'OpenRadioDevice');
CloseRadioDevice:=GetProcAddress(dll,'CloseRadioDevice');
SetAtten:=GetProcAddress(dll,'SetAtten');
SetPower:=GetProcAddress(dll,'SetPower');
SetAGC:=GetProcAddress(dll,'SetAGC');
G3BlockScan:=GetProcAddress(dll,'G3BlockScan');
G3StopBlockScan:=GetProcAddress(dll,'G3StopBlockScan');

hRadio:=OpenRadioDevice(0);
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (hRadio <> 0) then begin
G3StopBlockScan(hRadio);    // just to be sure
CloseRadioDevice(hRadio);
end;
if (Dll <> 0) then FreeLibrary(Dll);
end;

procedure TForm1.BlockScanButtonClick(Sender: TObject);
var i: Integer;
begin
if (hRadio <> 0) then begin    // if a radio is opened
// set the properties
SetPower(hRadio,TRUE);
SetAtten(hRadio,FALSE);
SetAGC(hRadio,3);      // FAST AGC

for i:=0 to 1000 do Freqs[i]:=600000+200*i;   // frequencies from 600 to 800 kHz
curFreq:=600000;    // variable used to display scanned data
if (not G3BlockScan(hRadio,@Freqs,1001,256,500,Handle,WM_USER)) then
ShowMessage('Block scan failed to start');
end;
end;

procedure TForm1.WMUser(var Msg: TMessage);
var i: Integer;
pi: PDWORD;
begin
if (Msg.WParam=0) then ListBox1.Items.Add('Block scan ended')
else begin
pi:=PDWORD(Msg.WParam);
for i:=1 to Msg.LParam do begin
ListBox1.Items.Add('Freq: '+IntToStr(curFreq)+' RAW: '+IntToStr(pi^));
inc(pi); inc(curFreq,200);   // next frequency to display
end;
end;
end;

end.