1

DelphiTwain (http://delphitwain.sourceforge.net/)を使用して、スキャナーに関する基本的な情報を取得しようとしています。スキャナー名とプロデューサーの取得は非常に簡単でしたが、スキャナーのステータスを取得する必要があり、仕方 ...

スキャナーがオンラインかオフラインか (電源が入っていないか、取り外されているか) を知りたいです。

助けてくれてありがとう

procedure TForm1.Scan();
var i: Integer;
    Item: TListItem;
begin
    ListView1.Items.Clear;
    Twain.SourceManagerLoaded := TRUE;
    for i := 0 to Twain.SourceCount - 1 do
    begin
      if (i=0) then
          ListView1.Visible := true;
      Item := ListView1.Items.Add;
      ListView1.Items[i].Caption := Twain.Source[i].ProductName;
      With Item.SubItems do
      begin
         Add(Twain.Source[i].Manufacturer);
         Add(Twain.Source[i].VersionInfo);
         Add(Twain.Source[i].ProductFamily);
      end;
    end;
    Twain.SourceManagerLoaded := FALSE;
end;
4

0 に答える 0