Webcam mit TWAIN Schnittstelle

[knochen]

Hallo zusammen,

hat jemand von eine Produktempfehlung einer aktuellen Webcam mit TWAIN Schnittstelle?

Hintergrund: Unsere Kunden wollen mittels Delphi-Anwendung Fotos ihrer Patienten speichern. Die Funktionalität ist bereits implementiert per TWAIN Schnittstelle und funktioniert mit diversen Scannern. Jetzt aber kommt das Thema Webcam. Gibt es da welche mit TWAIN, oder was nimmt man ggf. für eine Schnittstelle, um ein Bild in einem Delphiprogramm aufzunehmen? (Nur Bild, kein Video).

Danke für eure Anregungen.

[Bummi]

Ich hätte einen kleinen Dienst fertig der über etwas in der Art abgefragt werden kann:

Delphi-Quellcode:

var
  ms: TMemoryStream;
  jpg: TJpegImage;
  i: Int64;
begin
  try
  if not Assigned(FClient) then
    begin
      FClient := TIDTCPClient.Create(self);
      FClient.Host := ServerEdit.Text;
      FClient.Port := Port.Value;
    end;
  FClient.Connect;
  if FClient.Connected then
  begin

    ms := TMemoryStream.Create;
    jpg := TJpegImage.Create;
    try
      i := FClient.Socket.ReadInt64;
      FClient.Socket.ReadStream(ms, i, false);
      ms.Position := 0;
      jpg.LoadFromStream(ms);
      Image1.Picture.Assign(jpg);
    finally
      jpg.Free;
      ms.Free;
    end;
  end;

  FClient.DisconnectNotifyPeer;
  except
    on E:Exception do
      begin
          Connect.Down := False;
          Timer1.Enabled := false;
          Messagedlg(E.Message,mtError,[mbok],0);
      end;
  end;
end;

[hathor]

TWAIN ist überholt, deshalb wird es keine AKTUELLE Camera mit dieser Schnittstelle geben.

WIA: http://de.wikipedia.org/wiki/Windows_Image_Acquisition

Warum WEB-CAM? Ist das nur ein Schreibfehler?
Sonst geht es doch über LAN.
In den Computer bekommt man das Bild mit einer IP-Adresse und Portnummer (xxx.xxx.xxx.xxx : xxxx)
Besser und schneller wäre ein USB-Anschluss.
http://www.ids-imaging.de/frontend/p...FVC7zAodgR4A3g

[Bummi]

@hathor

bei den Cams, des Herstellers aus Deinen 2. Link werden Treiber für TWAIN mit angeboten.

[CCRDude]

Zitat von hathor:

Warum WEB-CAM? Ist das nur ein Schreibfehler?
Sonst geht es doch über LAN.

"Web-Cam" heißen die kleinen billigen Dinger doch, weil ihr Hauptanwendungszweck Videokommunikation über das Web ist (Skype o.ä.), nicht weil sie über LAN angeschlossen sind (das ist ne ganz andere Preiskategorie).

[hathor]

Dafür reicht aber jedes "popelige" Programm, wie es sie hier im Forum massenhaft gibt.

[knochen]

Danke für die flotten Antworten, damit habe ich einen Ansatz.
@Bummi: der Ansatz sieht interessant aus. Was bedeutet die Zeile

Timer1.Enabled := false; Brauche ich einen Timer oder ist die Zeile nur übriggeblieben aus irgendeinem anderen Kontext?

@hathor: Hast du ein Beispiel für

Zitat:

jedes "popelige" Programm

?

Ich werde jetzt erstmal eine Cam bestellen, wahrscheinlich die Logitech C170, und damit ein bisschen experimentieren. Viel mehr Geld sind unsere Kunden nicht bereit, auszugeben.

Grüße,
Knochen

[Bummi]

ist nur ein Rest aus einem Testcode .....

[hathor]

http://www.delphipraxis.net/dp_search.php?do=process

http://www.entwickler-ecke.de/search...2dd8b21ad6161c
http://www.entwickler-ecke.de/viewto...ghlight=webcam
http://www.entwickler-ecke.de/viewto...ghlight=webcam
http://www.entwickler-ecke.de/viewto...ghlight=webcam