Главная страница
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.016 c
1-36625
Ega23
2003-12-03 10:53
2003.12.12
Сохранить картинку в файл.


3-36524
MaximCHR
2003-11-21 15:33
2003.12.12
Открытие .db


1-36697
mRodion
2003-12-02 15:17
2003.12.12
Окно не становиться активным, хотя Caption синий


8-36769
GreySerg
2003-08-15 13:06
2003.12.12
Компоненты для работы с Mp3


14-36831
nikus
2003-11-19 15:03
2003.12.12
WAP-версия форумов