Ответ: («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

Разработка, производство и продажа радиоэлектронной аппаратуры

| Карта сайта | Пишите нам | В избранное

Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс.
e-mail:jobsmp@pochta.ru

Телесистемы | Электроника | Конференция «Микроконтроллеры и их применение»

Ответ:

Отправлено aleksey_gregul 29 мая 2007 г. 15:44
В ответ на: А примером не поделитесь ? отправлено <font color=gray>vinogradov aleksei</font> 29 мая 2007 г. 15:38

procedure TForm1.FormCreate(Sender: TObject);
Var h:hwnd;
begin
//version:=datetostr(FileDateToDateTime(FileAge(application.exename)));
with TVersionInfo.Create(Application.ExeName) do
begin
version:=FileVersion;//ProductVersion;
Free;
end;
form1.Caption:='ADC8 Version='+version;
decimalseparator:=',';
give:=true;
winnt:=false;
If Win32Platform=VER_PLATFORM_WIN32_NT Then
Begin
winnt:=true;
h:=CreateFile('\\.\\giveio', GENERIC_READ, 0, Nil, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);
if (h = INVALID_HANDLE_VALUE) Then
Begin
ShowMessage('Драйвер GIVEIO, не найден!');
demo:=true;
showmessage('Плата осциллографа не обнаружена!'+chr(10)+chr(13)+'Работаем в ДЕМО режиме!');
form1.Caption:='ADC8 - DEMO mode Version='+version;
grafikform.Caption:=grafikform.Caption+' - DEMO mode';
inport:=demoinport;
outport:=demooutport;
getdata:=demogetdata;
give:=false;
End;
CloseHandle(h);
End;
if not findadapter then
begin
demo:=true;
showmessage('Плата осциллографа не обнаружена!'+chr(10)+chr(13)+'Работаем в ДЕМО режиме!');
form1.Caption:='ADC8 - DEMO mode Version='+version;
grafikform.Caption:=grafikform.Caption+' - DEMO mode';
inport:=demoinport;
outport:=demooutport;
getdata:=demogetdata;
Button1.Caption:='REAL';
end else
begin
Button1.Caption:='DEMO';
demo:=false;
inport:=inport1;
outport:=outport1;
getdata:=getdata1;
button1.Visible:=true;
end;
end;

А дальше просто asm in,out

Составить ответ | Вернуться на конференцию

Ответы

Понял, спасибо ... — vinogradov aleksei (29.05.2007 15:48:21 82.207.109.75, пустое)