AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Bild von IP-Webcam auslesen

Ein Thema von himitsu · begonnen am 1. Okt 2013 · letzter Beitrag vom 8. Apr 2024
Antwort Antwort
Seite 2 von 6     12 34     Letzte »    
jensw_2000
(Gast)

n/a Beiträge
 
#11

AW: Bild von IP-Webcam auslesen

  Alt 1. Okt 2013, 15:24
Oder Du nimmst das VLC ActiveX Control.
Das kann RTSP und Screenshots aus dem Videostream IMHO auch.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.031 Beiträge
 
Delphi 12 Athens
 
#12

AW: Bild von IP-Webcam auslesen

  Alt 1. Okt 2013, 15:30
Dann muß aber vermutlichauf dem Zielkomputer der VLC-player installiert sein?
Ist vielleicht etwas übertrieben, wo die dort auf dem arbeitsrechner eh keine Videos gucken dürfen.


HTTP ging leider nicht
(wäre auch zu Einfach gewesen )

Ist jetzt kein Problem an deiner Komponente, sondern mehr ein kleiner Fehler bei der Verwaltung.
Delphi-Quellcode:
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  FreeAndNil(Client); // Schließen, wenn schon offen

  Client := TMJPEGClient.Create('192.168.1.10', 80, '/videostream.cgi'); // die URL ist bei vielen Kameras anders, also anpassen!
  Client.OnJPEGReceived := JPEGReceived;
  ...
  Client.Start;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
begin
  FreeAndNil(Client);
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Client); // auch wenn du zwar den Thread über das Terminated abbrichst, bleibt die Komponente bestehen und könnte womöglich auch noch nach dem freigeben des Fensters nochmal versuchen drauf zuzugreifen.
end;
Drück einfach mal mehrmals auf Starten (ok, da passiert hier nicht viel, außer daß jetzt mehrere Threads arbeiten),
aber mehrmals auf Stoppen geklickt, wird vermutlich schön knallen (aber mindestens einmal mußte vorher der thread gestartet wurden sein).
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu ( 1. Okt 2013 um 15:32 Uhr)
  Mit Zitat antworten Zitat
Morphie

Registriert seit: 27. Apr 2008
Ort: Rahden
630 Beiträge
 
#13

AW: Bild von IP-Webcam auslesen

  Alt 1. Okt 2013, 15:34
Ja, das ist mir auch aufgefallen... Da das aber ein Beispiel ist, war mir das egal, es ging ja um die Klasse TMJPEGClient

edit: wenn man die Klasse dann noch in eine Komponente gießt, kann man die Verwaltung dort ja sauberer gestalten...

Geändert von Morphie ( 1. Okt 2013 um 15:37 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.031 Beiträge
 
Delphi 12 Athens
 
#14

AW: Bild von IP-Webcam auslesen

  Alt 1. Okt 2013, 18:34
Das Demoprogramm funktionierte soweit erstmal.
Ich hatte mir nur in die GUI noch ein paar Edits reingemacht, um leichter Testen zu können.
(EXE im Anhang, falls noch wer bei seiner Webcam testen möchte)

Nach einer Weile blieb allerdings das Bild einfach hängen und veränderte sich nicht mehr.
Es gab keine Fehlermeldung und die Form-Caption stand auf Verbunden.
Bei Klick auf Stoppen kam dann aber manchmal die Meldung "Verbindung wurde vom Host getrennt."
(wobei es bei mir zwei verschachtelte RDP-Sitzungen gab, da der Kundenrechner nur von unserem Server aus erreichbar ist, was hier und da einige Problemchen verursacht)

Und Stretch macht sich mit Proportional zusammen auch nicht schlecht.


Der TThread ist jetzt noch nicht raus, aber so sieht man erstmal die Unterschiede direkter.
- die winzigen zu synchronisierenden Prozeduren als anonyme Methoden angelegt (aus 2-3 Funktioen wurde jeweils nur noch Eine)
- die globelan Klassenvariablen entfernt, welche eh nur für die Synchronisierung verwendet wurden
- FormatMessage+FORMAT_MESSAGE_FROM_SYSTEM durch SysErrorMessage ersetzt
- Klassenintern auch auf die internen Variablen gegangen, anstatt über die öffentlichen Property
(da wo es intern nur an der einen Stelle Zugriffe gibt ... so könnte man später auch Getter und Setter verbauen, um externe Zugriffe zu verarbeiten)
Angehängte Dateien
Dateityp: 7z DP-MJPEG.7z (582,9 KB, 89x aufgerufen)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu ( 1. Okt 2013 um 18:36 Uhr)
  Mit Zitat antworten Zitat
Morphie

Registriert seit: 27. Apr 2008
Ort: Rahden
630 Beiträge
 
#15

AW: Bild von IP-Webcam auslesen

  Alt 2. Okt 2013, 07:42
Hmmm irgendwie flackert das Bild jetzt aber... Ist das bei dir nicht so?

btw: Das mit den anonymen Methoden kannte ich noch nicht, das finde ich echt nett

edit: das Flackern liegt am "proportional = true"
außerdem:
Delphi-Quellcode:
procedure TMJPEGClient.Execute;
...
          JPEGStream := TStream.Create;
...
              JPEGStream.Position := 0;
...
end;
Das erzeugt unter XE4 einen Fehler.
Der setter von Position ruft intern Seek auf. Und dort steht:
Zitat:
No existing TStream classes should call this method, since it was originally abstract.
Daher:
Delphi-Quellcode:
procedure TMJPEGClient.Execute;
...
          JPEGStream := TMemoryStream.Create;
...
end;

Geändert von Morphie ( 2. Okt 2013 um 08:27 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.031 Beiträge
 
Delphi 12 Athens
 
#16

AW: Bild von IP-Webcam auslesen

  Alt 2. Okt 2013, 10:55
OK, das Flackern hatte ich bemerkt, aber ich dachte das liegt am RDP.
Evntuell könnte man hier mit DouleBuffered was machen, aber so unproportional verzerrt sieht das Bild schon etwas komisch aus.
Wie gesagt, geh ich hier über zwei verschachtelte RDP-Sessions (Schlepptop > Firmenserver > Kundenrechner) und RDP ist in manchen Belangen doch etwas "eigenartig".

Ja, beim Erstellen sollte natürlich TMemoryStream drinstehn.
(eventuell hatte ich zum Testen die falsche Datei übertragen)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Morphie

Registriert seit: 27. Apr 2008
Ort: Rahden
630 Beiträge
 
#17

AW: Bild von IP-Webcam auslesen

  Alt 2. Okt 2013, 11:01
Nachdem ich das jetzt in eine Komponente gegossen habe, bin ich nun eigentlich ziemlich zufrieden =) Habe den Stream jetzt schon seit über einer Stunde an und keinerlei Unterbrechungen... Auch die interne Verwaltung ist mit einer Komponente entsprechend eleganter geworden...

Danke für deine Tipps
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.031 Beiträge
 
Delphi 12 Athens
 
#18

AW: Bild von IP-Webcam auslesen

  Alt 2. Okt 2013, 13:02
Wobei deine Streamauswertung eher als "böse" anzusehn ist.

Bei TP sieht der MJPEG-Stream so aus:
boundary gibt den Code an, für da, wo ein neues Bild anfängt .... das ist praktisch genauso, wie bei bei den Multipart-eMails (HTML/Text/Anhänge).
Code:
HTTP/1.1 200 OK
Server: httpd
Cache-Control: no-store
Pragma: no-cache
Connection: close
Content-Type: multipart/x-mixed-replace;boundary===AMTKSTILLIMAGEBOUNDARY==

--==AMTKSTILLIMAGEBOUNDARY==
Content-Type: image/jpeg
Content-Length: 5495

{5495 Bytes ohne Zeilenumbruch am Ende, bzw. mit, wenn man die nachfolgende Zeile dazu nimmt}

--==AMTKSTILLIMAGEBOUNDARY==
Content-Type: image/jpeg
Content-Length: 5507

{5507 Bytes}

--==AMTKSTILLIMAGEBOUNDARY==
Content-Type: image/jpeg
...
Mal so aus Interesse, was steht denn bei dir im Log-Memo?
> starten und nach ein paar Bildern wieder stoppen
Angehängte Dateien
Dateityp: zip MJPEGTest.exe.zip (699,3 KB, 54x aufgerufen)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Morphie

Registriert seit: 27. Apr 2008
Ort: Rahden
630 Beiträge
 
#19

AW: Bild von IP-Webcam auslesen

  Alt 2. Okt 2013, 13:06
Mit der Exe bekomme ich gar kein Bild:
Zitat:
Verbindung wird hergestellt...

Verbunden
HTTP/1.1 400 Bad Request
Server: Netwave IP Camera
Date: Wed, 02 Oct 2013 11:03:54 GMT
Content-Type: text/html
Content-Length: 135
Connection: close

Fehler -13: Unbekannt - "<HTML><HEAD><TITLE>400 Bad Request</TITLE></HEAD>
<BODY BGCOLOR="#cc9999"><H4>400 Bad Request</H4>
Can't parse request.
</BODY></HTML>"

Fehler -13: read image 0 ""
edit: es stimmt aber, dass das Protokoll eigentlich anders gedacht ist, aber da es bei mir ohne Weiteres funktioniert, reicht mir das so
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.031 Beiträge
 
Delphi 12 Athens
 
#20

AW: Bild von IP-Webcam auslesen

  Alt 2. Okt 2013, 13:15
Bei der EXE ist Post 80 eingestellt. Das hattest du auch auf deine 81 geändert?

Im Anhang ist die selbe EXE, nur halt mit deinen Werten in den Edits.
OK, auch wenn kein Bild, so kommt dennoch ordnungsgemäß eine schöne HTML-Seite zurück.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu ( 2. Okt 2013 um 13:31 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 6     12 34     Letzte »    


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz