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;