Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];

Вниз

Инструкции OUT, IN в выражении ASM..END;   Найти похожие ветки 

 
WhiteBarin ©   (2006-05-04 09:26) [0]

Здравствуйте,
Возникла такая ситуация встраиваю следующую Assembler функцию в Delphi 7,
не смотрите что это инициализация COM порта, в других функциях инструкции
OUT и IN не проходят,
пишет ... Priveleged instruction... Хотя в Turbo Pascale всё проходит, но он
ведь эмулирует работу x86.
Помогите пожалуйста, пожет следует сделать какую-то настройку в среде?

Function InitializationComPort_:boolean;
Begin
 Result:=False;
 ASM
        mov ax,40h
        mov es,ax
        mov dx,3f8h

         add dx,3
         mov al,10000000b
         out dx,al
         dec dx
         dec dx
         mov al,0
         out dx,al -   ЗДЕСЬ РУГАЕТСЯ, ДАЛЕШЕ НЕ ИДЁТ
         dec dx
         mov al,06h  //19200 b
         out dx,al

         mov al,0
         or al,11b //dlinna dannih
         or al,000b //stop bit
         or al,1000b //bit chet
         or al,111000b //tip chetn vsegda 1(111000b-vsegda 0)
         add dx,3
         out dx,al

         dec dx
         dec dx
         mov al,0
         out dx,al
         mov dx,3f8h
         add dx,4
         mov al,1
         out dx,al
       //        mov ah,0
       //        mov dx,0
       //        mov al,11111011b
       //        int 14h
         ret
 END;{ASM}

 //Ждем
 If not Wait_ Then Exit;
 Result:=True;
End;


 
MBo ©   (2006-05-04 09:31) [1]

Win32 не разрешает напрямую обращаться к портам, да это обычно и не нужно, например, работа с компортами обеспечивается CreateFile("Com1"...)/REadFile/WriteFile


 
WhiteBarin ©   (2006-05-04 09:39) [2]

А примера нет? работающего чтобы реализовать работу с COM


 
WhiteBarin ©   (2006-05-04 09:40) [3]

Или где взять TApdComPort


 
MBo ©   (2006-05-04 09:44) [4]

>А примера нет?
Примеров в инете море

Вот это хороший компонент:
http://sourceforge.net/projects/comport/


 
WhiteBarin ©   (2006-05-04 10:03) [5]

Спасибо а скажи не знаешь где взять TApdComPort от AsyncPro


 
Германн ©   (2006-05-04 16:13) [6]


> WhiteBarin ©   (04.05.06 10:03) [5]
>
> Спасибо а скажи не знаешь где взять TApdComPort от AsyncPro
>


http://sourceforge.net/projects/tpapro



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.012 c
4-1136633780
workdisk450
2006-01-07 14:36
2006.06.11
Как использовать нестандартный шрифт, не устанавливая его?


15-1147965330
Cerberus
2006-05-18 19:15
2006.06.11
Компанент для работы с xls файлами.


15-1147704023
Константинов
2006-05-15 18:40
2006.06.11
Вопрос Москвичам


15-1148024063
McSimm
2006-05-19 11:34
2006.06.11
Пароль уже занят, выберите другой


9-1131353827
Med
2005-11-07 11:57
2006.06.11
ошибка компиляции проги с компонентами GLScene





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский