Zum Glück kann man das Problem recht einfach lösen: ffmpeg¹ und mencoder² sind wiedermal unsre Freunde.

Zunächst sollte man das Video aus dem 3gp Format in ein etwas bearbeitungsfreundlicheres Format umwandeln:

ffmpeg -y -i VIDEO_IN.3gp -sameq -f mp4 -s hd720 -r 25 -ar 32000 -ac 1 VIDEO_OUT.mpg

Danach kann man mit mencoder das Video drehen:

mencoder -vf rotate=1 VIDEO_IN.mpg -ovc x264 -oac pcm -o VIDEO_OUT.avi

Die Lösung habe ich bei Markus Schlichting³ gefunden. Ergänzend dazu noch ein paar Hinweise:

• -s hd720 legt bei ffmpeg die größe des Videos fest. Die verschiedenen Möglichkeiten findet man in der Manpage.
• -oac copy hat bei mir nie funktioniert, pcm funktionierte dagegen immer
• Die als “beste” angepriesene Variante mit -ovc lavc, durch die der libavcodec verwendet wird, liefert bei mir zwar kleine, aber grundsätzlich extrem pixelige Ergebnisse. Der x264 Codec liefert zwar große Dateien, dafür unverpixelt.

Die Lösung war dann MPlayer², genauer gesagt MEncoder. Dieser kann mit der Befehlszeile

mencoder -oac copy -ovc copy -forceidx -noodml input.avi -o output.avi

ganz einfach den AVI Index neu errechnen. Gefunden habe ich die Lösung hier³.

Um das zu bewerkstelligen muß aus einer Fehler-Log-Datei der Inhalt in ein Excel-Sheet und alles was kein Call ist gelöscht werden. Ursprünglich war das einfach Copy&Paste und jede 2. Zeile löschen.

Dabei hat sich dann aber erwiesen, manchmal sind 1. und 2. Zeile vertauscht und manchmal steht Mist drin, also ist das Script gewachsen zu einem “Lösch alles was nicht da sein soll”. Als das Fertig war hat ein Kollege mich drauf gebracht, daß das so ja noch voll langweilig ist, weil es eigentlich nicht viel macht was man icht von Hand auch könnte .. also hab ichs noch gepimpt und jetzt list es auf Knopfdruck automatisch die Dastei ein, löscht alle Daten die entweder nicht von Heute sind (wenn das Worksheet neu ist) oder nicht dem Dateinamen des Worksheets entsprechen (z.B: 19.03.2009) und danach auch gleich noch den ganzen überflüssigen schlonz und gibt am Ende noch brav als MsgBox aus wieviel Calls ich gemacht habe.

Um euch den Source natürlich nicht vorzuenthalten bin ich nach einiger Suche auch auf ein sehr gutes WordPress Plugin gestoßen, mit dem man den Source ordentlich mit Highlighting darstellen kann: SyntaxHighlighterPlus, das auf dem SyntaxHighlighter von Alex Gorbatchev beruht, den auch WordPress.com selbst für ihre Blogs verwenden

Sub Delete_Non_Call_Row()

Set xRng = Selection ' Auswahl in Objekt setzen
del = True
I = 0 ' Zählvariable um die Zeile, die die Zelle enthält nachher auch löschen zu können

For xRowCounter = 1 To xRng.Rows.Count
For xCellCounter = 1 To xRng.Columns.Count
I = I + 1
If xRng.Cells(I).Value Like "*Incoming Call*" Then
del = False
End If
Next xCellCounter

If del Then
xRng.Cells(I).EntireRow.Delete
I = I - xRng.Columns.Count ' Die Zeile ist weg, also die Zählvariable
' auch für die neuen Zeilen setzen
End If
del = True
Next xRowCounter

End Sub

Sub Einlesen_der_Calls()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Pfad:zurDatei.txt", Destination:=Range("$A$1"))
.Name = "vba"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Sub Delete_Altes_Datum(tableDate)

Set xRng = Selection ' Auswahl in Objekt setzen
del = True
I = 0 ' Zählvariable um die Zeile, die die Zelle enthält nachher auch löschen zu können
colCount = xRng.Columns.Count

For xRowCounter = 1 To xRng.Rows.Count
For xCellCounter = 1 To colCount
I = I + 1
If xRng.Cells(I).Value Like tableDate + " *" Then
del = False
End If
Next xCellCounter

If del Then
xRng.Cells(I).EntireRow.Delete
I = I - colCount ' Die Zeile ist weg, also die Zählvariable
' auch für die neuen Zeilen setzen
End If
del = True
Next xRowCounter

End Sub

Sub Calls_in_aktives_Sheet()
If ActiveSheet.Name Like "Tabelle*" Then
ActiveSheet.Name = Date
End If
ActiveSheet.Range("A1:A" + CStr(ActiveSheet.UsedRange.Rows.Count)).Delete
ActiveSheet.Range("A1").Select
Call Einlesen_der_Calls
ActiveSheet.Range("A1:A" + CStr(ActiveSheet.UsedRange.Rows.Count)).Select
Call Delete_Altes_Datum(ActiveSheet.Name)
ActiveSheet.Range("A1:A" + CStr(ActiveSheet.UsedRange.Rows.Count)).Select
Call Delete_Non_Call_Row
ActiveSheet.Range("A" + CStr(ActiveSheet.UsedRange.Rows.Count)).Select
MsgBox (CStr(ActiveSheet.UsedRange.Rows.Count) + " Calls am " + CStr(ActiveSheet.Name))
End Sub

Sub Calls_in_neues_Sheet()
Sheets.Add
Call Calls_in_aktives_Sheet
End Sub

Update 26.09.2010:
Ich habe heute das Plugin für den Syntaxhighlighter auf SyntaxHighlighter ComPress von Andre Gärtner geändert.
Das hat unter anderem den Vorteil, dass es die benötigten JavaScript Dateien dynamisch einbindet und damit weniger Ladezeit benötigt. Außerdem nutzt es das aktuelle SyntaxHighlighter JS, das für Copy&Paste kein Flash mehr benötigt.

Es gibt sie wirklich, Menschen wie mich, die immernoch eine Webcam im Einsatz haben, die noch irgendwann aus dem vorvorletzten Jahrhundert stammt.

Bissher (das heist bis Version 2.x) hatte Skype damit auch garkein Problem, also denkt man blauäugig wie man ist, man installiert Skype 3 und alles läuft…

denkste!

Irgendwie mag Skype keine alten PenCam mehr, aber noch einigem gegoogle fand sich dann doch die Rettung: SplitCam, ein nützliches kleines Tool, das den Webcamstream abfängt, einen eigenen kompatiblen Gerätetreiber installiert und das Ganze dann für Skype tauglich über dieses neue Pseudodevice weiterleitet.

http://www.splitcamera.com

Und hier das Ergebnis:

Skins für den alten 7er:
http://www.mess.be/ unter [customization] MSN 6 Skins findet sich der link auf die 7er Skins
http://www.msgstuff.com/downloads/cat/6/
http://www.sanalcafe.sc/download.asp?id=44
http://www.messengeradictos.com/Skins
http://forums.fanatic.net.nz/index.php?showtopic=12078 – db kaputt, gelegentlkich mal schaun obs wieder geht