如何在 Perl Win32::GUI 程序中连续读取串口？

Question

我想在Windows XP下使用 Win32::SerialPort 模块来读取来自 COM 端口的文本字符串。

串行端口连接有一个秤，可持续发送当前测量的重量。由于我也在使用 Win32::GUI 我需要一种方法来阅读它非阻塞。最好的方法是什么？我应该使用 Lookfor 还是 streamline？我对文档有点困惑。

---

原始问题文本：我使用 Modul Win32::SerialPort unter Windows Xp von einem COM-Port ein bestimmten Textstring nur einlesen。 SerialPort ist eine Waage angeschlossen, die permanent das aktuell gemessene Gewicht ausgibt.这是 Win32::GUI 版本/sollte das einlesen nicht blockierend sein。这是什么？ sollte ich verwenden Lookfor oder 流线型吗？ Ich blicke bei dem Manual nicht so richtig durch。

Answer 1

由于设备不断通过串行端口发送信息，因此您可能需要设置一个计时器并在不阻塞主线程的情况下查看连接中发生了什么。

首先，我将向您指出 Win32::GUI ::Tutorial::Part4 其中讨论了计时器。

使用 perl.exe（而不是 wperl.exe）运行以下示例，因为输出将发送到控制台：

#!/usr/bin/perl

package My::GUI;

use strict; use warnings;

use Win32::GUI();

sub new { bless {} => shift }

sub initialize { # very quick and dirty example
    my $self = shift;

    $self->{window} = Win32::GUI::Window->new(
        -name => 'Main',
        -title => 'Test',
        -onTerminate => sub { -1 },
        -onTimer => sub { $self->onTimer(@_) },
    );

    $self->{timer} = $self->{window}->AddTimer(Timer => 0);
    return $self;
}

sub run {
    my $self = shift;

    my $window = $self->{window};
    $window->Show;
    $window->SetRedraw(1);
    $self->{timer}->Interval(1000);
    Win32::GUI::Dialog();
}

# poll serial port here, don't block
sub onTimer { warn time - $^T, "\n"; return; }

package main;

use strict; use warnings;

My::GUI->new->initialize->run;

输出：

C:\Temp> gui
1
2
3
4
5
6
Terminating on signal SIGINT(2)

现在，关于 Win32::SerialPort 与 Win32::CommPort 以及哪种方法取决于连接另一端的电子秤规格。