Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Ich dreh durch! wie kann das sein - Problem beim Runden.

    Delphi
    by Cyberstorm, 18. Okt 2007
  hallo hans-josef.
  
  wenn du in meinem programm auf "format setting" klickst, welche auswahlmöglichkeiten hast du da bei dem mittleren reiter (pixel depth and compression) ?
  
  da einfachmal alle durchprobieren und nach jedem wechsel programm neustarten!
  
  
  habe gerade mal bei mir geschaut: wenn die cam schon verwendet wird, dann kommt diese fehlermeldung --> die webcam darf nicht geöffnet/von...
• Forum: Multimedia

  Re: Richtungs bzw. Vektorpfeil zeichnen

    Delphi
    by Cyberstorm, 14. Aug 2007
  indem ich die unterschiede vom letzten zum aktuellen frame analysiere, daraus werrechne ich jeweils einen durchschnittswert und komme im endeffekt auf zwei x/y positionen der druschnittlichen veränderung --> ein vektor
  
  würde mich freuen, wenn jemand mit einer Webcam das tool mal testen könnte:
  
  Hier kann es geladen werden
  
  wichtig: wenn bei dem difference kram was schief geht, dann solltet...
• Forum: Multimedia

  Re: Richtungs bzw. Vektorpfeil zeichnen

    Delphi
    by Cyberstorm, 30. Jun 2007
  procedure ArrowTo(RC:TCanvas;xa,ya,xe,ye,pb,pl:integer;Fill:boolean);
  var
  m,t,sqm : real;
  x1,y1,x2,y2,xs,ys,la : real;
  begin
  la:=sqrt(sqr(xe-xa)+sqr(ye-ya));
  if la<0.01 then exit;
  t:=(la-pl)/la;
  xs:=xa+t*(xe-xa);
  if xe<>xa then
• Forum: Multimedia

  Re: Richtungs bzw. Vektorpfeil zeichnen

    Delphi
    by Cyberstorm, 29. Jun 2007
  hmm habs mit mehreren offsets getestet aber kommt nur quark bei raus.
  die verschiebung für x und y liegt jeweils bei ca. -20 bis +20.
  
  hier mal der originalcode villeicht bin ich ja blind.
  
  FBitmapOld2.Canvas.MoveTo(mid_old.x, mid_old.y);
  FBitmapOld2.Canvas.LineTo(mid.x, mid.y); {die linie wird korrekt gezeichnet}
  if (mid.x - mid_old.x)<>0 then a:=arctan((mid.y - mid_old.y) / (mid.x -...
• Forum: Multimedia

  Re: Richtungs bzw. Vektorpfeil zeichnen

    Delphi
    by Cyberstorm, 29. Jun 2007
  also danke erstmal für die antworten.
  ja, mit der mathematik is nich so dolle bei mir :-/.
  
  glaube ich habe das nen bissel falsch umgesetzt, weil ich den anfang nicht so ganz kapiere:
  
  
  if (x1 - x2)<>0 then a:=arctan((y1 - y2) / (x1 - x2));
  FBitmap.Canvas.LineTo(Round(cos(a-30)), Round(sin(a-30)));
• Forum: Multimedia

  Richtungs bzw. Vektorpfeil zeichnen

    Delphi
    by Cyberstorm, 29. Jun 2007
  Hallo.
  
  Ich verfolge Dinge über eine Webcam um will die Bewegung durch Pfeile darstellen.
  Das Ganze soll dann auf einem Bitmap ausgegeben werden.
  
  Ich habe den Start- und Endpunkt und kann sozusagen die Grundlinie des Pfeils zeichnen:
  
  FBitmap.Canvas.MoveTo(mid_old.x, mid_old.y);
  FBitmap.Canvas.LineTo(mid.x, mid.y);