Webcam mit TWAIN Schnittstelle

[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;