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

Вниз

Программирование Com-порта   Найти похожие ветки 

 
edicon   (2003-01-11 01:57) [0]

Уважаемые мастера! Ликвидируйте, пожалуйста, мою безграмотность вот в каком вопросе:
Скачал в FAQ пример программирования Com-порта.
Код такой:
var
Com1:THandle;
N:Cardinal;
C:POverlapped;
D:array[0..127] of Char;
actual_bytes:Integer;
begin
Com1:=CreateFile(PChar("Com1"),GENERIC_READ or GENERIC_WRITE,0,
nil,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0);
WriteFile(Com1,s,11,N,c);
//ReadFile(Com1,D,1, actual_bytes, nil);{ Здесь приходится комментировать строку т.к. компилятор не пускает}
CloseHandle(Com1);
end;
Если можно, поясните синтксис написания процедур: CreateFile, WriteFile, ReadFile, и что за типы: Thandle, Cardinal, Poverlapped и как они используются. А то я в DelphiHelp либо ничего не нашел, либо не понял. Если можно маленький примерчик.

Всем откликнувшимся БОЛЬШОЕ спасибо!!!


 
Rouse_   (2003-01-11 02:13) [1]

CreateFile - открытие файла
THandle - идентификатор, в данном случае файла
Cardinal - тип данных, диапазон значений от нуля до 4294967295
Poverlapped - указатель на структуру _OVERLAPPED
WriteFile - запись данных в файл
ReadFile - чтение данных из файла

Система такова:
Открываем файл на чтение - запись функцией CreateFile, результатом функции будет идентификатор файла, с которым и будем работать. Далее либо пишем в него WriteFile либо читаем ReadFile. Примечание: файлом может быть не обязательно ФАЙЛ, в данном случае это порт COM1.

Все это конечно грубо описано, но судя по вопросу глубже Вам пока и не надо.

Желаю успехов


 
jack128   (2003-01-13 12:16) [2]

var actual_bytes : cardinal;


 
Th   (2003-01-14 17:12) [3]

в DelphiHelp этого нет, потому что это не Delphi. See Win32 Developer"s Reference - он вместе с Delphi поставялется


 
ksa3003   (2003-01-15 09:57) [4]

Народ вот если скидываю модему команду пытаюсь прочитать ,
а в ответ тишина (модем не отвечает).Почему?


 
Digitman   (2003-01-15 14:15) [5]


> ksa3003


команда имеет в конце <CR> ?


 
edicon   (2003-01-17 01:20) [6]

Спасибо!!! Уважаемые мастера!



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

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

Наверх





Память: 0.45 MB
Время: 0.007 c
3-39232
John
2003-02-22 21:03
2003.03.13
Добавление изображения в базу


14-39484
passm
2003-02-27 16:20
2003.03.13
Unated Devices


14-39491
apple11
2003-02-25 06:50
2003.03.13
Почему D6 неправильно открывает проект ?


14-39483
Jony
2003-02-27 13:15
2003.03.13
Почему


1-39390
Строитель
2003-03-03 09:20
2003.03.13
DestroyWindow





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский