Передача сообщения в порт - Visual Basic .NET
Формулировка задачи:
lpOVERLAPPED - имя экземпляра структуры:
выражение @lpOVERLAPPED передаётся в функцию как параметр:
port - дескриптор com-порта
S - строка символов
n - количество передаваемых байт
Решение задачи: «Передача сообщения в порт»
textual
Листинг программы
//запись сообщения в порт
procedure TForm1.Button2Click(Sender: TObject);
var S: string;
n: integer;
begin
S:= 'Это передаваемый текст';
FlushFileBuffers(portHandle); //очищаем буфер порта
WriteFile(portHandle, S, Length(S), DWORD(n), @lpOVERLAPPED);
//проверяем отсутствие ошибки
if GetLastError <> ERROR_IO_PENDING then ShowMessage('Ошибка')
else Timer1.Enabled:= true;
end;