- Linux MultiMedia Studio Computer Accessories User Manual

Using the Library with Various Languages
MN1278 05.2001
33
- MintDrive
procedure TForm1.FormCreate(Sender: TObject);
const NodeNumber = 10;
const CommPort = 1;
const BaudRate = 57600;
begin
MintController1.setMintDriveLink( NodeNumber, CommPort, BaudRate, TRUE );
end;
- NextMove PC
procedure TForm1.FormCreate(Sender: TObject);
const NodeNumber = 0;
const Address = $23c;
begin
MintController1.setNextMovePCLink( NodeNumber, Address );
end;
- NextMove PCI
procedure TForm1.FormCreate(Sender: TObject);
const NodeNumber = 0;
const CardNumber = 0;
begin
MintController1.setNextMovePCI1Link( NodeNumber, CardNumber );
end;
end.
5. Add a button and double click on it to edit the Button1Click procedure. Add the following code.
procedure TForm1.Button1Click(Sender: TObject);
var wbEnabled : WordBool;
begin
{ Read the current state of the drive enable. }
MintController1.getDriveEnable( 0, wbEnabled );
{ Write back the toggled value. }
MintController1.setDriveEnable( 0, ( wbEnabled = FALSE ));
end;
end.