Пример использования 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. Сделайте явное преобразование типов.

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