Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.12;
Скачать: CL | DM;

Вниз

Пример использования COMport   Найти похожие ветки 

 
COSINUS   (2003-10-07 19:04) [0]

Добрый день.
Нашел на "Мастерах дельфи" пример использования ComPort, только при компиляции
ставит указатель на строку
if not WriteFile(hPort, S, StrLen(S), actual_bytes, nil) then begin
ShowMessage("Can""t write to port: " + IntToStr(GetLastError));
Exit;
с ошибкой
[Error] Unit1.pas(126): Types of actual and formal var parameters must be
identical
и на строку
if not ReadFile(hPort, D, StrToInt(Edit3.Text), actual_bytes, nil) then
ShowMessage("Can""t read from port: " + IntToStr(GetLastError))
else
ShowMessage("Read " + IntToStr(actual_bytes) + " bytes");
Memo2.Text := D;
end;
с ошибкой
[Error] Unit1.pas(131): Types of actual and formal var parameters must be
identical
Не могли бы вы мне подсказать в чем дело?


 
Александр Спелицин ©   (2003-10-08 17:35) [1]

Просто WriteFile использует параметры с типом DWORD, т.е. cardinal, а Вы передаете ей integer. Сделайте явное преобразование типов.



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

Текущий архив: 2003.12.12;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
1-36619
Zapped
2003-12-01 03:09
2003.12.12
Delphi 7 глюк редактора


1-36746
greenrul
2003-11-27 02:22
2003.12.12
XP Manifest и GroupBox


7-36858
SlavaZ
2003-10-07 14:55
2003.12.12
Как узнать температуру CPU


3-36540
Andrey__
2003-11-20 13:44
2003.12.12
ADO+Access2000+@@identity


14-36832
Vlad Oshin
2003-11-20 10:16
2003.12.12
Что интересно, у ЮКОСа проблемы, а курс рубля вроде стоит...