ни разу не дигитал ака свалил
Сообщений: 695
Оценки: 0
Присоединился: 2005-02-22 19:55:08
|
Написал прогу на Delphi которая запускает бесконечныи цикл открытия и закрытия лотка сидюка каждые 5 секунд. Но компилятор завопил ''Unsafe code only allowed in unsafe procedure''. Если мои англиискии не подвёл то переводится это как ''Небезопасныи код только в небезопаснои процедуре''. Как это понимать?
Вот сам исходник:
unit Unit1;
interface
uses
windоws, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TоЬjесt);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.nfm}
var
OpenParm: TMCI_Open_Parms;
GenParm: TMCI_Generic_Parms;
SetParm: TMCI_Set_Parms;
DI: Cardinal;
OK: boolean;
procedure TForm1.Button1Click(Sender: TоЬjесt);
begin
OK: false;
OpenParm.lpstrDeviceType:=''CDAudio'';
repeat
mciSendCommand(0, mci_Open, mci_Open_Type, Longint(@OpenParm));
DI:=OpenParm.wDeviceID;
mciSendCommand(DI, mci_Set, mci_Set_Door_Open, Longint(@SetParm);
mciSendCommand(DI, mci_Set, mci_Set_Door_Closed, Longint(@SetParm);
mciSendCommand(DI, mci_Close, mci_Notify, Longint(@GenParm);
sleep(5000);
until OK;
end;
end;
end.
Чего ему не нравится то?
|
Программное управление сидюком в Дельфи - 
